Het creëren van een gebruiker in Microsoft Excel 2003 voegt automatisch de blauwe gebruiker Vorm titelbalk aan de bovenkant van het venster vormen . U kunt het uiterlijk van uw Excel- gebruiker vorm aanpassen door het verwijderen van de titelbalk van het venster vormen . Aan de "User Form " titelbalk verwijderen , gebruikt u de Microsoft Visual Basic Editor om de code van de gebruiker formulier module te wijzigen . Instructies
Lancering Microsoft Excel 2003 1 . Druk op de " Alt " en " F11 " toetsen op uw toetsenbord van de computer op hetzelfde moment om de Microsoft Visual Basic Editor applicatie binnen Excel te starten . Kopen van 2 Klik op "Invoegen " in het hoofd navigatiemenu . Selecteer " UserForm " uit het drop - down menu .
3 Dubbelklik op het " UserForm1 " venster om het venster code te openen . Markeer en verwijder alle code in het venster
4 Plak de volgende code in het venster : . Option Explicit Private Sub
UserForm_Initialize ( ) op Call RemoveCaption ( Me ) End Sub
5
Klik op "Invoegen " in het hoofd navigatiemenu . . Selecteer " Module " uit het drop - down menu
6 Plak de volgende code in het venster Module : Option Explicit
Private Declare Function FindWindow Lib " ; User32 " _Alias " FindWindowA " ( _ByVal lpClassName als Koord , _ByVal lpWindowName As String ) As Long
Private Declare Function GetWindowLong Lib " User32 " _Alias " GetWindowLongA " ( _ByVal hwnd zoals lang, _ByVal nIndex Zoals Long ) As Long Private Declare Function
SetWindowLong Lib " User32 " _Alias " SetWindowLongA " ( ByVal hwnd zoals lang, _ByVal nIndex zoals lang, _ByVal dwNewLong als lang) als Long
Private Declare functie DrawMenuBar Lib " User32 " ( _ByVal hwnd als lang) als Long Sub RemoveCaption
( objForm As Object ) Dim lstyle Zoals LongDim HMENU Zoals LongDim mhWndForm zoals lang
Als Val ( Application.Version ) < 9 ThenmhWndForm = FindWindow ( " ThunderXFrame " , objForm.Caption ) ' XL97ElsemhWndForm = FindWindow ( " ThunderDFrame " , objForm.Caption ) ' Excel 2000 + End IflStyle = GetWindowLong ( mhWndForm , -16 ) lstyle = lstyle en Niet & HC00000SetWindowLong mhWndForm , -16 , lStyleDrawMenuBar mhWndForm
End Sub
Sub ShowForm ( ) op UserForm1.Show False End
sub
7 Klik op de " x " knop in de rechterbovenhoek van de Visual Basic Editor -venster om de toepassing en alle ramen sluiten . U hoeft niet naar de inhoud van de code dozen slaan .
8 Klik op 'Extra' in het hoofdmenu . Selecteer " Macro " gevolgd door " Macro's . " Selecteer " ShowForm . " Klik op de " Run" knop . De Excel- gebruikers formulier wordt nu zonder de titelbalk .
|
