I am adding some custom toolbars to an excel workbook. I create the
bitmaps using Paint, sized to 16 by 16, using the standard colors.

When they are inserted into a custom toolbar using this type of code...

Set myBar = CommandBars.Add(Name:="MyName", Position:=msoBarTop,
Temporary:=True)
myBar.Visible = True

Set oldControl = myBar.Controls.Add(Type:=msoControlButton)
oldControl.OnAction = "myCode"
Set s = ActiveSheet.Shapes.AddPicture("myPath\myFile.bmp", msoTrue,
msoFalse, 0, 0, 16, 16)
s.Select
Selection.Cut
oldControl.PasteFace

The bitmap comes out looking awful. How do I make the bitmap look nice
(and transparent) like the MS provided toolbars?

Regards, Brad

See this thread:

http://groups.google.co.uk/group/mic...1644f30a327685

or the tinyurl version:

http://tinyurl.com/8hh5l

--
Regards,
Tom Ogilvy

wrote in message
oups.com...
I am adding some custom toolbars to an excel workbook. I create the
bitmaps using Paint, sized to 16 by 16, using the standard colors.

When they are inserted into a custom toolbar using this type of code...

Set myBar = CommandBars.Add(Name:="MyName", Position:=msoBarTop,
Temporary:=True)
myBar.Visible = True

Set oldControl = myBar.Controls.Add(Type:=msoControlButton)
oldControl.OnAction = "myCode"
Set s = ActiveSheet.Shapes.AddPicture("myPath\myFile.bmp", msoTrue,
msoFalse, 0, 0, 16, 16)
s.Select
Selection.Cut
oldControl.PasteFace

The bitmap comes out looking awful. How do I make the bitmap look nice
(and transparent) like the MS provided toolbars?

Regards, Brad