Wie die Blau Titlebar Von UserForm entfernen in Excel 2003

Mitglieder-Login

InformationenMicrosoft Access

Wie die PCT Wachstum in Excel 2007 … Prozent oder PCT Wachstum ist eine genaue und einfache Möglichkeit, Änderungen in viele Arten von St
Wie man Excel-Tabellen in MicroStat… MicroStation ist eine branchenweit führende Computer Aided Drafting (CAD )-Programm , die ein Komma
Wie man einen Lotus 123 Datei in Ex… Die Office-Suite für Lotus eine Tabellenkalkulation Programm, das Dateien speichert in einem proprie
Wie man in einer männlichen Stimme… Excel ist ein Datenmanagement -Programm in der populären Office- Suite von Microsoft -Software -Pake

Software

HOME

* Computer Wissen >> Software >> Microsoft Access >> .

Wie die Blau Titlebar Von UserForm entfernen in Excel 2003

Anlegen eines Benutzers in Microsoft Excel 2003 fügt automatisch die blaue User Form Titelleiste am oberen Rand des Formulars angezeigt. Sie können das Aussehen Ihres Excel Benutzer Form , indem Sie auf die Titelleiste aus dem Formular Fenster anpassen. Um die " User Form " title bar zu löschen, verwenden Sie den Microsoft Visual Basic-Editor des Benutzers Form Moduls Code ändern. Anleitung
1

Starten Sie Microsoft Excel 2003 . Drücken Sie die "Alt " und " F11 "-Taste auf Ihrer Tastatur gleichzeitig die Microsoft Visual Basic Editor Anwendung in Excel zu starten.
2

Klicken Sie auf " Einfügen" in der Hauptnavigation . Wählen Sie " UserForm " aus dem Drop -Down-Menü .
3

Doppelklicken Sie auf das " UserForm1 "-Fenster , um den Code zu öffnen. Markieren und löschen Sie alle Code im Fenster
4

Fügen Sie folgenden Code in das Fenster : .

Option Explicit Private Sub

UserForm_Initialize ()
< p > Anrufen RemoveCaption (Me)

End Sub
5

Klicken Sie auf " Einfügen" in der Hauptnavigation . . Wählen Sie " Module " aus dem Drop -Down-Menü
6

den folgenden Code in das Modul-Fenster einfügen:

Option Explicit

Private Declare Function FindWindow Lib " ; User32 " _Alias " FindWindowA " ( _ByVal lpClassName As String , _ByVal lpWindowName As String ) As Long

private Declare Function GetWindowLong Lib" User32 " _Alias " GetWindowLongA " ( _ByVal hwnd As Long , _ByVal nIndex Wie Long) As Long

private Declare Function SetWindowLong Lib " User32 " _Alias " SetWindowLongA " (ByVal hwnd As Long , nIndex _ByVal As Long , _ByVal DwNewLong As Long ) As Long private Declare

Funktion DrawMenuBar Lib " User32 " ( _ByVal hwnd As Long ) As Long

Sub RemoveCaption ( objForm As Object )

Dim lStyle Wie LongDim hMenu Wie LongDim mhWndForm As Long

Wenn 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

End Sub Sub

ShowForm ()

UserForm1.Show Falsch

End Sub
7

Klicken Sie auf das "x " in der rechten oberen Ecke des Visual Basic -Editor-Fenster , um die Anwendung und alle Fenster zu schließen. Sie brauchen nicht um den Inhalt der Code- Boxen retten.
8

Klicke auf "Extras " im Hauptmenü . Wählen Sie " Macro " gefolgt von " Makros ". Wählen Sie " ShowForm . " Klicken Sie auf die Schaltfläche "Ausführen" . Die Excel- Benutzer Form zeigt nun ohne Titelleiste.