Error displaying MSO image in object from GetImageMSO method of CommandBars with Access 2021

Question

Hello,

With access 2021 I am trying to display an MSO image of the CommandBars object either in a button or in an image object on a form.

Here is the VBA code used to display the image in a button enter code here.

Private Sub Commande3_Click()  
  
Me.btnEssai.Picture = Application.CommandBars.GetImageMso("Paste", 16, 16)  
  
End Sub  

When I run this code I get the following error:

runtime error '2220'
Microsoft cannot open the file.

If I assign the MSO image to a variable, I do get a value.

I was also able to try with Access 2016 which reports the same error.
Where is the problem?

I performed the same test in Excel 2021 with viewing the MSO image in an Image object, it worked fine.

Answer 1

Hello,

The only solution I could find is to use stdole's SavePicture function to save the MSO image to a folder and then assign the path of the image to the Picture property of the image.

This solution does not deal with the image transparency problem.
You would have to use GDI+ functions to transform the image.

Private Sub Commande3_Click()

Dim ImageMSO As IPictureDisp

Set ImageMSO = CommandBars.GetImageMso("Paste", 32, 32)
stdole.SavePicture ImageMSO, "D:\Documents\Tempo\Essai.png"
Me.Image1.Picture = "D:\Documents\Tempo\Essai.png"

Answer 2

You should to see 16/16 image

Try to set this object:

set Me.btnEssai.Picture = Application.CommandBars.GetImageMso("Paste", 16, 16)  

Regards.

Answer 3

Hello,

Thank you for your suggestion.
This line of code does not work with Access.
The 'Set' statement triggers the error.
With Access in VBA you have to write:
'Me.btnEssai.Picture = Application.CommandBars.GetImageMso("Paste", 16, 16)' to avoid this error.

For this problem, as I pointed out in my comment, I performed the same test in Excel 2021 by viewing the MSO image in an Image object, it works fine.

Managing the 'Picture' property is certainly different between Access and Excel.
With Access, the Picture property contains (bitmap) or the path and file name of a bitmap or other type of graphic to be displayed.

Answer 4

In ACC you can add form in your VBA project.

Then where you want to use it?

Answer 5

Hello,

The VBA code is placed in the form.