Symbolleiste farbif gestalten

Dim o,s as object

Set o = CommandBar.Add("Symbolleiste")
Set s = o.Controls.Add(msocontrolbutton)

weiß vielleicht jemand mit welcher methode ich der schaltfläche
(s) eine datei (*.bmp) zuweisen kann?