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

Sub set_FaceID()
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

Next
Stop
'hier den Index (Position) eintragen
iIndex = 1
Set oCMBButton = oCMB.Controls(iIndex)
oCMBButton.FaceId = 145
End Sub