Eigenes Menü ergänzen
20.11.2005 14:39:54
HansH
ich habe folgenden Code aus diesem Forum, ich glaube es war Nepumuk. Jetzt habe ich versucht, einen 2. Button, siehe Code, einzubringen. Das geht auch, aber er wird rechts angehängt und nicht unterhalb. Wie könnte man das ändern?
Option Explicit
Public Const strCommandbarName As String = "Kontenklärung"
Public
Sub prcCreateCommandBar()
Dim objCommandBar As CommandBar
Dim objCommandBarButton As CommandBarButton
On Error Resume Next
Application.CommandBars(strCommandbarName).Delete
On Error GoTo 0
Worksheets("Tabelle2").Shapes("Bild 1").Copy
Set objCommandBar = Application.CommandBars.Add(Name:=strCommandbarName, _
Position:=msoBarFloating, Temporary:=True)
Set objCommandBarButton = objCommandBar.Controls.Add(Type:=msoControlButton)
With objCommandBarButton
.Caption = "Daten vorbereiten"
.PasteFace
.OnAction = "Datenvorbereitung"
.Style = msoButtonIconAndCaption
.TooltipText = "Die Daten werden vorbereitet!"
End With
'*** 2. Button
Worksheets("Tabelle2").Shapes("Bild 2").Copy
Set objCommandBarButton = objCommandBar.Controls.Add(Type:=msoControlButton)
With objCommandBarButton
.Caption = "Noch einmal"
.PasteFace
.OnAction = "schließen_öffnen"
.Style = msoButtonIconAndCaption
.TooltipText = "Der Zustand seit letzter Speicherung wird wiederhergestellt !"
End With
'***Ende 2. Button
With objCommandBar
.Left = 400
.Top = 160
.Visible = True
.Protection = msoBarNoCustomize + msoBarNoResize + _
msoBarNoChangeVisible + msoBarNoChangeDock
End With
End Sub
Gruß
Hans