Copying a FaceID on a userform commandbutton !

[Jaafar Tribak]

Hi Guys,

I am trying to copy The Excel standard print icon on a userform command button that runs a printing procedure on clicking on it.

I have tried different approaches but without any luck.

The following code copies the icon on cell A1 of the activesheet:


Sub copy_faceid()

CommandBars(1).Controls(1).Controls("print...").CopyFace

ActiveSheet.Paste Cells(1, 1)

Application.CutCopyMode = False

End Sub


The approach above however, doesn't seem to work with userforms.

Any suggestions will be much appreciated as I have been like mad looking for a solution for a long long time.

Thanks.

Jaafar.

 

[Ivan F Moala]

On 2002-12-29 00:02, rafaaj2000 wrote:
Hi Guys,

I am trying to copy The Excel standard print icon on a userform command button that runs a printing procedure on clicking on it.

I have tried different approaches but without any luck.

The following code copies the icon on cell A1 of the activesheet:


Sub copy_faceid()

CommandBars(1).Controls(1).Controls("print...").CopyFace

ActiveSheet.Paste Cells(1, 1)

Application.CutCopyMode = False

End Sub


The approach above however, doesn't seem to work with userforms.

Any suggestions will be much appreciated as I have been like mad looking for a solution for a long long time.

Thanks.

Jaafar.

I'm not with you ??
Are you trying to copy an image off of a Commandbutton on a Userform ??
If you are then try the following little known code

SavePicture CommandButton1.Picture, "C:aa.ico"

Then just import into excel Via import
button etc.

 

[Legacy 98055]

Hi Ivan.
I think he wants to take the face id from the commandbar button, place it on the clipboard using the copyface method, and then use it as a picture on the commandbutton. You're the API guru here! Will likely need the API to accomplish this.

 

[Ivan F Moala]

On 2002-12-29 06:05, TsTom wrote:
Hi Ivan.
I think he wants to take the face id from the commandbar button, place it on the clipboard using the copyface method, and then use it as a picture on the commandbutton. You're the API guru here! Will likely need the API to accomplish this.

Oh, I think I understand now
Thanks Tom

 

[Legacy 12630]

Check whether this is any help :-

http://www.BMSLtd.co.uk (PastePicture.zip)

To do what you want manually :-
1. After pasting the icon to the worksheet, select and copy it
2. Go to the userform and add an image control
3. Go to the picture property of the image control, click in it and press Ctrl+V

 

[Anne Troy]

Can't find that picture with j-walk's utility? Or maybe the macro at the bottom of that page...

http://j-walk.com/ss/excel/tips/tip67.htm

 

[Jaafar Tribak]

Hi Ponsonby,

I tried doing it manually and it does give a result!.However it doesn't look as expected.Anyway thank you very much for this,at least we are approaching the propper solution.

Thanks everyone else.

Jaafar.

 

[Legacy 98055]

Hi rafaaj2000
I did find several examples using the Windows API. They were all in C and over my head. My search which yielded the best results on Google was "clipboard bitmap file api"
Have fun.

 

[Ivan F Moala]

Hi rafaaj2000

If you use Stevens routine then just use
this code to get what you want.
This will change the Picture of commandbutton2 to the Printer img.<pre/>
Const ImgFileName As String = "C:ATest.bmp"

Private Sub CommandButton1_Click()

'// Copy the FaceImage to the ClipBoard
CommandBars(1).Controls(1).Controls("print...").CopyFace
'// Save the img
SavePicture PastePicture, ImgFileName
'// Load the Img
CommandButton2.Picture = LoadPicture(ImgFileName)
'// Cleanup
Kill ImgFileName

End Sub</pre>



_________________
Kind Regards,<font size=+2><font color="red"> I<font color="blue">van<font color="red"> F M</font color="blue">oala</font><font size=1> From the City of Sails

This message was edited by Ivan F Moala on 2002-12-30 02:10

 

[gentunian]

This post has helped me a lot, so I decided to register and show what I've done.

I wanted to set FaceIds to a bunch of command buttons. After trying a lot of code in the web (and the one in this OLD post), I end up using this:

Public Sub setCommandButtonFaceId(faceId As Integer, _
 ByRef control As CommandButton)
 
    Application.CommandBars.FindControl(Type:=msoControlButton, ID:=faceId).CopyFace
    
    Dim ImgFileName As String
    ImgFileName = Environ("temp") & "\tmppicture.bmp"
     
    '// Save the img
    SavePicture PastePicture(xlBitmap), ImgFileName

    '// Load the Img
    control.Picture = LoadPicture(ImgFileName)
    control.PicturePosition = 0
    
    '// Cleanup
    Kill ImgFileName
   
End Sub

The preconditions are to KNOW the face id you want to set, and have the Stephen PastePicture.zip module that you can find here:

http://www.oaltd.co.uk/excel/default.htm

Specially here: http://www.oaltd.co.uk/DLCount/DLCount.asp?file=PastePicture.zip

Hope this helps.
Best Regards