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.

 

[gentunian]

I realized that no always ID matches the faceID from msdn:

Note When you specify a control's Id property, you also specify the action the control will take when it is selected and, if applicable, the image that appears on the face of the control. To add a control's image without its built-in action, you specify only the FaceId property.

So I decided to get all the files in some "/icons" folder:

Private Sub generateFaceIdsBitmapFiles(count As Integer)
    Dim i As Integer
    
    For i = 0 To count
        Set c = Application.CommandBars.FindControl(Type:=msoControlButton, Tag:=i)
        If Not c Is Nothing Then
            c.CopyFace
            Dim ImgFileName As String
            ImgFileName = Environ("userprofile") & "\icons\faceId-" & i & ".bmp"
            '// Save the img
            SavePicture PastePicture(xlBitmap), ImgFileName
            'Kill ImgFileName
        End If
    Next
End Sub

Private Sub createDumbCommandBar(count As Integer, cbName As String)
    Dim objCBs
    Dim objMyCB
    Dim objButton
    Dim i
    
    On Error Resume Next
        Application.CommandBars(cbName).delete
    On Error GoTo 0
    
    Set objCBs = Application.CommandBars
    Set objMyCB = objCBs.Add(cbName)
    objMyCB.Visible = True
    For i = 0 To count
        Set objButton = objMyCB.Controls.Add(Type:=msoControlButton)
        objButton.Style = 3
        objButton.Caption = i
        objButton.faceId = i
        objButton.Tag = i
        objButton.Visible = True
    Next
End Sub

Public Sub buildIconFiles()
    Dim max As Integer
    Dim name As String
    
    name = "DumbCommandBar"
    max = 50
    
    createDumbCommandBar max, name
    generateFaceIdsBitmapFiles max
    Application.CommandBars(name).delete
    
End Sub

It seems that the command bar needs to be showing or visible for the .CopyFace method work. I have try the code from Ivan F Moala without success.

And then instead I could set the image programmatically or in the design mode.

Regards