B
bradley.vernon
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
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