Bitmaps in custom toolbars look awful...

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

<[email protected]> wrote in message
news:[email protected]...
> 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
>