Hi,

This will put a picture from a sheet to a commandbar
control. You'll have to create a sheet named "Pictures"
and a image called "Pic_1" to run this example.

Dim CBCtrl As CommandBarControl

Set CBCtrl = CBPopUp.CommandBar.Controls.Add
(msoControlButton)

ThisWorkbook.Worksheets("Pictures").Activate

ThisWorkbook.Worksheets("Pictures").Shapes
("Pic_1").Select

Selection.Copy
CBCtrl.PasteFace

Hope this helped.

/Nicke
-----Original Message-----
Gents,

upon opening a file I included some code to add a
commandbar to excel. At this stage, I load an external
image to display as button.

Question: how can I include those (10) small bitmaps
inside the workbook so I don't need external files (looks
messy)

(I've tried to include them as pictures and then load
from there, but can get it to work)

Thanks in advance
Christof
.