Still working on a toolbar add-in for a project. I searched and found a few
methods for assigning a transparency mask in XL2003, which would be a nice
feature (makes the buttons look better). I'm trying to use a method provided
by KeepItCool in 2005, because I don't have an image editor on my work PC
that would allow me to change the transparency flag of my icons.

source:
http://www.tech-archive.net/Archive/.../msg05807.html

KeepItCool's procedure requires the passing of the following parameters:

Sub SetIcon(ByVal oBtn As Office.CommandBarButton, _
ByVal shpIcon As Excel.Shape, _
ByVal shpMask As Excel.Shape)

I'm having trouble figuring out the syntax to pass the Excel.shapes that I
have pasted on my worksheet, e.g.

For example,

frontface = ActiveSheet.DrawingObjects("ShowAllShifts")
maskface = ActiveSheet.DrawingObjects("mask2")
SetIcon(Newbtn, FrontFace, maskface)

or

Dim frontface As Excel.Shape
Set frontface = Sheet1.DrawingObjects("ShowAllShifts")
'etc

Can anyone tell me how to pass (by name) the icons on my sheet as
Excel.shape?
Thanks!
Keith