AW: msoControlButton
11.07.2006 15:39:09
AndreasB
Hallo Jan,
da ich kein Excelprofi bin, verstehe ich Deine Antwort leider nicht.
Ich habe Dir mein Makro unten angefügt und die Stelle wo ein phi anstatt
eines f stehen soll gekennzeichnet.
Könntest Du mir bitte weiterhelfen!
Danke und schöne Grüße
Andreas
Sub Bsp()
Dim Befehlsleiste As CommandBar
Dim Befehlsleistenknopf As CommandBarButton
Dim Popupsteuerelement As CommandBarPopup
Dim Befehlsleistenname As String
Befehlsleistenname = "Querschnitte"
On Error Resume Next
Application.CommandBars(Befehlsleistenname).Delete
On Error GoTo 0
Set Befehlsleiste = Application.CommandBars.Add(Befehlsleistenname, msoBarFloating, False, True)
With Befehlsleiste
.Left = 950
.Visible = True
End With
Set Befehlsleistenknopf = Befehlsleiste.Controls.Add(msoControlButton)
With Befehlsleistenknopf
.Caption = "01f06" 'hier sollte für das f ein phi stehen!!!
.BeginGroup = True
.FaceId = 0
.OnAction = "01f06"
.State = 0
.Style = 2
End With
End Sub