Excel FaceID - individual icons

[Formula11]

Hi, is there anywhere these individual icons are available.

VBA Ribbon - Face Ids 2003
For the latest Office version though.

I was planning on inserting some of the images in a VBA userform.

 

[Formula11]

Thanks for responding.
The Face Ids will be used in a useform to give similar command as Excel, mostly for Insert shapes, for example insert Text Box.

Probably best as original image file, it may or may not be an "ico" extension.

I didn't know about imageMso, but whatever is used in Excel commands.

 

[Dan_W]

Those are all imageMso images. Let me check.

 

[Dan_W]

Yes, those shape icons are also imageMso's, and they are also much easier to access with VBA that FaceIDs are.

For example, the imageMso for the Visual Basic button is "VisualBasic". So the following code will produce this image in the middle of the UserForm:

Private Sub UserForm_Click()
Me.BackColor = vbWhite
Set Me.Picture = Application.CommandBars.GetImageMso("VisualBasic", 96, 96)
End Sub

There are lists online with all the imageMsos for you to look at. Alternatively, if you know the imagMSo codename, you can just replace "VisualBasic" in the code above with the imageMso. One way of finding them out, is you can hover over the image in the QAT customisation window. For example, here you can see in the brackets at the end: ShapeRoundedRectangle

Be careful to get the capitalisation correct, because imageMsos are case sensitive.

Does that seem like it might help?

 

[Formula11]

Thanks, this may be a better way if it works in the sense that the image is called up through code instead of attaching an image to the form.

At the moment I was going to attach an image to the Image control. When clicked, it would carry out the relevant procedure.
Essentially the same as clicking a Command Button but with an image.

So I will continue with this.
The third line is giving an error when run.

Private Sub UserForm_Initialize()
    Me.BackColor = vbWhite
    Set Me.Picture = Application.CommandBars.GetImageMso("VisualBasic", 96, 96)
    'Set Me.Image1 = Application.CommandBars.GetImageMso("VisualBasic", 96, 96)
End Sub

 

[Dan_W]

Using 4 image boxes, this is what I got:

Private Sub CommandButton1_Click()
Set Image1.Picture = Application.CommandBars.GetImageMso("PageSetupPageDialog", 32, 32)
Set Image2.Picture = Application.CommandBars.GetImageMso("FileSave", 32, 32)
Set Image3.Picture = Application.CommandBars.GetImageMso("CalculateNow", 32, 32)
Set Image4.Picture = Application.CommandBars.GetImageMso("ScreenClipping", 32, 32)
End Sub

Are you using it in Excel?

 

[Formula11]

Thanks very much for this, it did work.
Very good solution.

 

[Dan_W]

Very glad to hear it. Here is a very long list of imageMsos to explore: BERT | ImageMSO List Reference
Let me know if you have any questions re: imageMsos. They're fun.

 

[Formula11]

Thanks.

 

[Jon Peltier]

Using 4 image boxes, this is what I got:

Private Sub CommandButton1_Click()
Set Image1.Picture = Application.CommandBars.GetImageMso("PageSetupPageDialog", 32, 32)
Set Image2.Picture = Application.CommandBars.GetImageMso("FileSave", 32, 32)
Set Image3.Picture = Application.CommandBars.GetImageMso("CalculateNow", 32, 32)
Set Image4.Picture = Application.CommandBars.GetImageMso("ScreenClipping", 32, 32)
End Sub

Are you using it in Excel?

View attachment 65844

I don't remember ever knowing this technique, thanks for sharing it. I just made myself a little UserForm to test it, so I can preview images by name and size. Interesting that the Set keyword is not required.

 

[Dan_W]

I don't remember ever knowing this technique, thanks for sharing it. I just made myself a little UserForm to test it, so I can preview images by name and size. Interesting that the Set keyword is not required.

View attachment 68530

One other thing I've learnt is that transparency persists if you use a Label control (with the backstyle settings adjusted accordingly) versus an image control.