ich habe eine Symbolleiste erstellt und will die dortigen Icons (mittels FaceId erstellt) auch in einer Hilfe-Maske (UserForm) nutzen.
Wie kann ich diese Icons bei der Formularerstellung (UserForm) einbinden?
Danke vorab.
Joachim
Private Sub UserForm_Initialize()
Dim icon1 As CommandBarControl
Set icon1 = CommandBars.FindControl(ID:=231)
Hilfe.Img1_Einruecken.Picture = icon1.Picture
End Sub
Hilfe = die UserForm
Img1_Einruecken = Das eingefügte "leere" Bild
Danke vorab.
Joachim
Sub IconListe()
Dim CB As CommandBar
Dim CBC As CommandBarControl
Dim i As Integer
On Error Resume Next
Set CB = Application.CommandBars.Add("Symbole", msoBarFloating)
For i = 200 To 255
Set CBC = CB.Controls.Add(msoControlButton)
CBC.FaceId = i
CBC.TooltipText = i
Next i
CB.Visible = True
End Sub
Eine Zuweisung zur Symbolleiste hat geklappt und das Makro ist auch angebunden.
Evtl liegt der Fehler woanders?
Grüße
Joachim