1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic " για να ανοίξετε το παράθυρο επεξεργασίας VB . . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να προσθέσετε μια νέα λειτουργική μονάδα κώδικα 2
Δημιουργήστε μια νέα διαδικασία ρουτίνας :
Private Sub resizeSheet ( )
με 3
Ορίστε την θέση του κύριου παραθύρου του Excel , χρησιμοποιώντας το αριστερό και το Top ιδιότητες του αντικειμένου εφαρμογής :
Application.Left = 133.75
Application.Top = 7,75
Η
4 Ορίστε το πλάτος και το ύψος του κύριου παραθύρου του Excel :
Application.Width = 1.173,75
Application.Height = 884,25
Η 5
Προσθέστε τον ακόλουθο κώδικα για να ορίσετε τη θέση του υπολογιστικού φύλλου του Excel χρησιμοποιώντας το πάνω και αριστερά ιδιότητες του αντικειμένου εφαρμογής :
ActiveWindow.WindowState = xlNormal
με ActiveWindow
<. . p> Top = 111.25
Αριστερά = 19.75
End με τη
6
Ορίστε το μέγεθος του παραθύρου του υπολογιστικού φύλλου του Excel χρησιμοποιώντας το πλάτος και τις ιδιότητες Ύψος :
με ActiveWindow
. Πλάτος = 1.010,25
. Ύψος = 590,25
End με τη
7
Ολοκληρώστε τη διαδικασία, πληκτρολογώντας " End Sub ". Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα