Extract image from toolbar button
 

I have an Excel95 (Excel 5) workbook with an attached toolbar. Because
the toolbar is causing problems for some users, I want to instead
create the toolbar dynamically on the fly.

No problem doing this, apart from extracting the face icon. I have no
access to the original icons so I've extracted the image 'manually'. I
used the CopyFace method and pasted the resulting picture from the
clipboard as a bitmap to a worksheet (bitmap was the only option for
pastespecial). The Picture object looks exactly the same (e.g. same
resolution) as the original.

I'm now using the Picture object at run-time for the dynamic toolbar
button's face i.e.

oSheet.Pictures("Picture 1").Copy
oToobarButton.PasteFace

However, the resulting image on the toolbar button has lost some
resolution: the image is smaller, lacks definition and looks blurred.

Is there an alternative approach which will enable me to use a true
copy of the original face for my dynamic toolbar button?

Many thanks.

--

Extract image from toolbar button
 

If you want to use one of the builtion icons, you could use the FaceId
property.

John Walkenbach has a nice utility to help you pick the id at
http://j-walk.com/ss/excel/tips/tip67.htm


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"jamieuk" wrote in message
om...
I have an Excel95 (Excel 5) workbook with an attached toolbar. Because
the toolbar is causing problems for some users, I want to instead
create the toolbar dynamically on the fly.

No problem doing this, apart from extracting the face icon. I have no
access to the original icons so I've extracted the image 'manually'. I
used the CopyFace method and pasted the resulting picture from the
clipboard as a bitmap to a worksheet (bitmap was the only option for
pastespecial). The Picture object looks exactly the same (e.g. same
resolution) as the original.

I'm now using the Picture object at run-time for the dynamic toolbar
button's face i.e.

oSheet.Pictures("Picture 1").Copy
oToobarButton.PasteFace

However, the resulting image on the toolbar button has lost some
resolution: the image is smaller, lacks definition and looks blurred.

Is there an alternative approach which will enable me to use a true
copy of the original face for my dynamic toolbar button?

Many thanks.

--