Anzeige
Archiv - Navigation
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Trennlinie in CommandBar

Trennlinie in CommandBar
05.06.2003 14:02:22
MikeS


Hallo Leute,

ich erzeuge bei jedem Öffnen der Mappe eine Symbolleiste mit 6 Buttons.

Wie kann ich Trennlinien zwischen den 4 /5 und 5/6 Button einbauen?

mein Code:

Private Sub Workbook_Open()
      Dim Menue
      Dim Button1, Button2, Button3, Button4, Button5, Button6
      
      Set Menue = Application.CommandBars.Add(Name:="    Navigationshilfe", Temporary:=True)
            With Menue
                  .Visible = True

                  .Top = 130
                  .Left = 28
            End With

      
      Set Button1 = Menue.Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
            With Button1
                  .Style = msoButtonIconAndCaption
                  .Caption = "erste Zeile"
                  .FaceId = 594
                  .OnAction = "ErsteZelle"
            End With

      
      Set Button2 = Menue.Controls.Add(Type:=msoControlButton, Before:=2, Temporary:=True)
            With Button2
                  .Style = msoButtonIconAndCaption
                  .Caption = "erste Spalte"
                  .FaceId = 154
                  .OnAction = "GeheNachLinks"
            End With

      
     Set Button3 = Menue.Controls.Add(Type:=msoControlButton, Before:=3, Temporary:=True)
            With Button3
                  .Style = msoButtonIconAndCaption
                  .Caption = "letzte Zeile"
                  .FaceId = 597
                  .OnAction = "GoToEnde"
            End With

      
      Set Button4 = Menue.Controls.Add(Type:=msoControlButton, Before:=4, Temporary:=True)
            With Button4
                  .Style = msoButtonIconAndCaption
                  .Caption = "letzte Spalte"
                  .FaceId = 157
                  .OnAction = "GeheNachRechts"
            End With

      
      Set Button5 = Menue.Controls.Add(Type:=msoControlButton, Before:=5, Temporary:=True)
            With Button5
                  .Style = msoButtonIconAndCaption
                  .Caption = "nächste TNR."
                  .FaceId = 129
                  .OnAction = "NächsteTeilenummer"
            End With

      
      Set Button6 = Menue.Controls.Add(Type:=msoControlButton, Before:=6, Temporary:=True)
            With Button6
                  .Style = msoButtonIconAndCaption
                  .Caption = "alle Filter entfernen"
                  .FaceId = 605
                  .OnAction = "AlleFilterEntfernen"
            End With

End Sub

Vielen Dank

MikeS


     Code eingefügt mit Syntaxhighlighter 2.1


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Trennlinie in CommandBar
05.06.2003 14:16:08
L.Vira

Set Button5 = Menue.Controls.Add(Type:=msoControlButton, Before:=5, Temporary:=True)
With Button5
.Style = msoButtonIconAndCaption
.Caption = "nächste TNR."
.FaceId = 129
.OnAction = "NächsteTeilenummer"
.begingroup = true
End With

Set Button6 = Menue.Controls.Add(Type:=msoControlButton, Before:=6, Temporary:=True)
With Button6
.Style = msoButtonIconAndCaption
.Caption = "alle Filter entfernen"
.FaceId = 605
.OnAction = "AlleFilterEntfernen"
.begingroup = true
End With

Anzeige
Re: Trennlinie in CommandBar
05.06.2003 14:17:14
PeterA

Hallo Mike

Das müßte dein Problem lösen.

Ciao Peter




Re: Trennlinie in CommandBar
05.06.2003 14:19:43
MikeS

Dankeschön, funzt perfekt.

Ciao MikeS

P.S. Danke auch dem anderen Antworter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige