1 Ανοίξτε ένα νέο Visual Basic αρχείο και να ξεκινήσετε μια νέα υπο ρουτίνα , χρησιμοποιώντας τον ακόλουθο κώδικα : Sub
RemoveToolbars ( ) 2
Ορισμός όταν οι γραμμές εργαλείων θα πρέπει να αφαιρεθεί και υπό ποιες συνθήκες, για παράδειγμα :
On Error Resume Επιστροφή
με Εφαρμογή
DisplayFullScreen = True
CommandBars . . ( " Full Screen" ) . Visible = False
. CommandBars ( " ExampleToolbarItemName " ) . Enabled = True
. CommandBars ( " ExampleToolbarItemName2 " ) . Enabled = True
η προσθήκη " On Error Resume back" θα αναγκάσει την εφαρμογή να επαναλάβει πίσω στην αρχική , μη τροποποιημένη κατάσταση , θα πρέπει να αντιμετωπίσετε τυχόν λάθη . Αλλαγή " ExampleToolbarItemName " και " ExampleToolbarItemName2 " στα ονόματα των στοιχείων της γραμμής εργαλείων που θέλετε να τροποποιήσετε , όπως "Επεξεργασία" ή " Format ".
Εικόνων 3
Κλείστε την υπο - ρουτίνα με τον ακόλουθο κώδικα :
End With
On Error GoTo 0
End Sub
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα