Πώς να αφαιρέσει το μπλε Titlebar Από UserForm στο Excel 2003

Δημιουργία φόρμας του χρήστη στο Microsoft Excel 2003 προσθέτει αυτόματα το μπλε Χρήστης Φόρμα γραμμή τίτλου στο πάνω μέρος του παραθύρου φόρμας . Μπορείτε να προσαρμόσετε την εμφάνιση της φόρμας χρήστη του Excel σας με την αφαίρεση τη γραμμή τίτλου από το παράθυρο της φόρμας . Για να διαγράψετε το «Έντυπο χρήστη" γραμμή τίτλου , χρησιμοποιήστε το Microsoft Visual Basic για να αλλάξετε τον κωδικό του μονάδα φόρμας χρήστη . Οδηγίες
Η 1

Εκκίνηση του Microsoft Excel 2003 . Πατήστε τα πλήκτρα " Alt " " F11 " στο πληκτρολόγιο του υπολογιστή σας, την ίδια στιγμή για να ξεκινήσει η εφαρμογή Visual Basic Editor Microsoft Excel μέσα . 2

Κάντε κλικ στο " Εισαγωγή" στο κύριο μενού πλοήγησης . Επιλέξτε " UserForm " από το drop-down μενού .
Εικόνων 3

Κάντε διπλό κλικ στο παράθυρο " UserForm1 " για να ανοίξετε το παράθυρο κώδικα . . Επισημάνετε και διαγράψτε οποιοδήποτε κώδικα στο παράθυρο
Η 4

Επικολλήστε τον ακόλουθο κώδικα στο παράθυρο :

Option Explicit

Private Sub UserForm_Initialize ( )

Call RemoveCaption ( Me )

End Sub
5

Κάντε κλικ στο " Εισαγωγή" στο κύριο μενού πλοήγησης . Επιλέξτε " ενότητα " από το drop -down μενού
Η 6

Επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της λειτουργικής μονάδας : .

Option Explicit

Private Declare Function FindWindow Lib " ? User32 " _Alias ​​" FindWindowA " ( _ByVal lpClassName As String , _ByVal lpWindowName Όπως String ) Όπως Long

Private Declare Function GetWindowLong Lib " User32 " _Alias ​​" GetWindowLongA " ( _ByVal hWnd Όπως Long , _ByVal nIndex Όπως Long ) Όπως Long

Private Declare Function SetWindowLong Lib " User32 " _Alias ​​" SetWindowLongA " ( ByVal hwnd Όπως Long , _ByVal nIndex Όπως Long , _ByVal dwNewLong Όπως Long ) Όπως Long

Private Declare λειτουργία DrawMenuBar Lib " User32 " ( _ByVal hWnd Όπως Long ) Όπως Long

Sub RemoveCaption ( objForm As Object )

Dim lStyle Όπως LongDim hMenu Όπως LongDim mhWndForm Όπως Long

Αν Val ( Application.Version ) <= 9 ThenmhWndForm FindWindow ( " ThunderXFrame " , objForm.Caption ) « XL97ElsemhWndForm = FindWindow ( " ThunderDFrame " , objForm.Caption )« XL2000 + End IflStyle = GetWindowLong ( mhWndForm , -16 ) lStyle = lStyle And Not & HC00000SetWindowLong mhWndForm , -16 , lStyleDrawMenuBar mhWndForm

Sub End Sub

ShowForm ( )

UserForm1.Show False

End υπο
Η

7 Κάντε κλικ στο κουμπί "x " στην πάνω δεξιά γωνία του παραθύρου του Visual Basic για να κλείσετε την εφαρμογή και όλα τα παράθυρα . Δεν χρειάζεται να αποθηκεύσετε το περιεχόμενο των κιβωτίων κώδικα .
8

Κάντε κλικ στο " Εργαλεία" στο κύριο μενού . Επιλέξτε " Macro ", ακολουθούμενο από " Μακροεντολές . " Επιλογή " ShowForm . " Κάντε κλικ στο κουμπί " Run" . Η φόρμα του χρήστη Excel εμφανίζει τώρα χωρίς γραμμή τίτλου .
Η
εικόνων