hast Du schon die Symbolleiste gemacht?
Gruß
Micha
Mit diesem Makro kann man sich Standard Icon anzeigen lassen
Sub faceid_s()
Dim symb As CommandBar
Dim Icon As CommandBarControl
Dim i As Integer
On Error Resume Next
Set symb = Application.CommandBars.Add("Symbole", msoFloating)
For i = 1 To 50 'kann bis auf 1000 gesetzt werden
Set Icon = symb.Controls.Add(msoControlButton)
Icon.FaceId = i
Icon.TooltipText = i
Next i
symb.Visible = True
End Sub
---------------------------------------
Mit diesem Makro erzeuge ich eine Symbolleiste, doch ich kann nur die Standardsymbole verwenden.
Wie kann ich eine x-beliebige *.bmp als Icon in die Symbolleiste einbinden??????????????
Sub symbolleiste_mit_Button_erstellen()
On Error Resume Next
Dim CB As CommandBar
Dim CBC_1 As CommandBarButton
Set CB = Application.CommandBars(Symbolleistenname)
Application.CommandBars(Symbolleistenname).Delete
Set CB = Application.CommandBars.Add(Name:=Symbolleistenname, temporary:=False, Position:=msoBarTop)
Set CBC_1 = CB.Controls.Add(Type:=msoControlButton)
With CBC_1
.FaceId = 10
.OnAction = "Baugruppe__select"
'.Style = msoButtonCaption
End With
Dim CBC_2 As CommandBarButton
Set CBC_2 = CB.Controls.Add(Type:=msoControlButton)
With CBC_2
.FaceId = 15
.OnAction = "Neue__Baugruppe"
'.Style = msoButtonCaption
End With
CB.Visible = True
End Sub