|
Création d'un formulaire utilisateur dans Microsoft Excel 2003 ajoute automatiquement l' utilisateur barre de titre du formulaire bleu en haut de la fenêtre du formulaire . Vous pouvez personnaliser l'apparence de votre formulaire utilisateur Excel en enlevant la barre de titre de la fenêtre du formulaire . Pour supprimer le "Formulaire utilisateur" barre de titre , utilisez le Microsoft Visual Basic Editor pour modifier le code du module de formulaire utilisateur. Instructions
1 Lancez Microsoft Excel 2003. Appuyez sur la touche "Alt" et "F11" touches du clavier de votre ordinateur en même temps pour lancer l'application de l'éditeur Microsoft Visual Basic dans Excel .
2 Cliquez sur "Insérer" dans le menu principal de navigation . Sélectionnez « UserForm » dans le menu déroulant.
3 Double -cliquez sur la fenêtre " UserForm1 " pour ouvrir la fenêtre de code . Mettez en surbrillance et supprimer n'importe quel code dans la fenêtre
4 Collez le code suivant dans la fenêtre : .
Option Explicit
Private Sub UserForm_Initialize ()
Appel RemoveCaption (Me)
End Sub
5 Cliquez sur "Insérer" dans le menu principal de navigation . . Sélectionnez " Module " dans le menu déroulant
6 Collez le code suivant dans la fenêtre du module:
Option Explicit
Private Declare Function FindWindow Lib " ; User32 " _Alias " FindWindowA " ( lpClassName _ByVal As String , _ByVal lpWindowName As String) As long
Private Declare Function Lib GetWindowLong " User32 " _Alias " GetWindowLongA " ( _ByVal hwnd As Long , nIndex _ByVal Comme long) As Long
Private Declare Function SetWindowLong Lib " User32 " _Alias " SetWindowLongA " ( ByVal hwnd As Long , _ByVal nIndex As Long , dwNewLong _ByVal As Long ) As Long
déclarer privé fonction DrawMenuBar Lib " User32 " ( _ByVal hwnd As Long ) As Long
Sous RemoveCaption ( objForm As Object )
lStyle As LongDim hMenu Comme LongDim mhWndForm As Long
Si Val ( Application.Version ) <9 ThenmhWndForm = FindWindow ( " ThunderXFrame " , objForm.Caption ) ' XL97ElsemhWndForm = FindWindow ( " ThunderDFrame " , objForm.Caption ) ' XL2000 + Fin IflStyle = GetWindowLong ( mhWndForm , -16) lStyle = lStyle And Not & HC00000SetWindowLong mhWndForm , -16 , lStyleDrawMenuBar mhWndForm
End Sub Sub
ShowForm ()
UserForm1.Show Faux
Fin sous
7 Cliquez sur le bouton «X» dans le coin supérieur droit de la fenêtre de l'éditeur de Visual Basic pour fermer l'application et toutes les fenêtres . Vous n'avez pas besoin de sauvegarder le contenu des boîtes de code.
8 Cliquez sur "Outils" dans le menu principal . Sélectionnez " Macro ", puis " Macros ". Sélectionnez " ShowForm . " Cliquez sur le bouton "Exécuter " . Le formulaire utilisateur Excel affiche désormais sans la barre de titre .
|
