Menüleiste positionieren
06.12.2008 15:32:00
Fred
Ich habe hier im Netzt Einen coolen Code gefunden der mir eine Zusätzliche Menüleiste erstellt. Kann mir jemand sagen wie mann den Code ändern muss, das die Symbolleiste eine bestimmte Position beim Start einnimmt.
Hier mal der Code
Option Explicit
Sub Menü_einfügen()
Dim NeuesMenue As CommandBar, Pop1 As CommandBarButton, Sh As Worksheet
On Error Resume Next
Application.CommandBars("Tabellen").Delete
On Error GoTo 0
Set NeuesMenue = CommandBars.Add(Name:="Tabellen", temporary:=True)
With NeuesMenue
.Position = msoBarFloating
.Visible = True
End With
For Each Sh In ActiveWorkbook.Sheets
Set Pop1 = NeuesMenue.Controls.Add(Type:=msoControlButton)
With Pop1
.Style = msoButtonCaption
.Caption = Left(Sh.Name & " ", 16)
.Tag = Sh.Name
.OnAction = "Start"
.BeginGroup = True
End With
Next Sh
Set Pop1 = NeuesMenue.Controls.Add(Type:=msoControlButton)
With Pop1
.Style = msoButtonCaption
.Caption = "Auffrischen"
.OnAction = "menü_einfügen"
.BeginGroup = True
End With
NeuesMenue.Width = 1
End Sub
Sub Start()
Sheets(Application.CommandBars.ActionControl.Tag).Activate
End Sub
Danke vorraus
Grüße Fred
Anzeige