Symbolleiste Button Icon über FaceID zuweisen
wenn ein Icon aus der FaceID-Liste gefällt dann kann mit diesem kleinen Code das Icon zugeweisen werden. Dies ist nur eine Hilfestellung!
In den VBA-Editor wechseln (ALT-F11). Die SUB in ein Modul kopieren und mit F5 starten. Rot ist die gwünschte FaceID
VBA-Code
Dim oCMB As CommandBar
Dim oCMBButton As CommandBarControl ' Button
Dim iIndex%
'hier den Namen der Symbolleiste (Commandbar) eintragen.
Const cCbarName = "FID"
'hier die Info über die gesuchte Schaltfläche (Controls) eintragen.
'wenn TAG bekannt ist
Const cTAG = "XYZ"
' oder wenn die ID bekannt ist
Const cID = "1"
'oder die Position auf der Symbolleiste
iIndex = 1
Set oCMB = ActiveExplorer.CommandBars(cCbarName)
'wenn etwas bekannt ist z.B. der TAG oder ID dann einkommentieren.
'Set oCMBButton = oCMB.FindControl(, , cTAG)
'Set oCMBButton = oCMB.FindControl(, cID)
Stop
'ein mögliche Hilfe das richtige Control zu finden
For Each oCMBButton In oCMB.Controls
Debug.Print "Caption: "; oCMBButton.Caption; " Position: "; oCMBButton.Index; " _
ID: "; oCMBButton.ID; " TAG: "; oCMBButton.Tag; " TooltipText: "; oCMBButton.TooltipText
NextStop
'hier den Index (Position) eintragen
iIndex = 1
Set oCMBButton = oCMB.Controls(iIndex)
oCMBButton.FaceId = 145
End Sub