Create customised control Face Id's and attach them to Excel control controls
Posted on 2003-12-01
I've written some simple code below to add some toolbar controls to a custom commandbar. I want to put custom built face iIs on the buttons and it sounds like this can be done by pasting the Face Id's from the Clipboard. But this is outside my Excel programming skill, how do I create, then acess custom button faceid's via the Clipboard?
Public Const CB As String = "Colour Toolbar"
Dim Ctrl As CommandBarControl
Dim TB As CommandBar
On Error Resume Next
On Error GoTo 0
Set TB = Application.CommandBars.Add(Name:=CB, Position:=msoBarTop)
TB.Visible = True
For i = 1 To 3
Set Ctrl = TB.Controls.Add(Type:=msoControlButton)
Ctrl.FaceId = 400 + i 'Random id's
Ctrl.Caption = "Control " & i