如何在快捷菜单vba访问中使用图片作为图标？

Question

I tried this

    Set cbCat = CommandBars.Add(conBarName, msoBarPopup, False, False)
 
  Set cbCatCtrl = cbCat.Controls.Add(msocontrolpopup)
  cbCatCtrl.Caption = "Open Form"
 
  Do While Not rsForms.EOF
      Set cbObjectCtrl = cbCatCtrl.Controls.Add()
      With cbObjectCtrl
      
       .Caption = rsForms!Name
       .Tag = rsForms!Name
       .OnAction = "OpenForm"
'      .Picture = stdole.StdFunctions.LoadPicture("D:\1.bmp")

But it doesn't work, Error Invalid Picture, I tried.ICO Icons but still the same. How can I load a picture from my pc and use it as icon instead of faceID method? Thanks in Advance

Answer 1

Hy,

I got this from: Docs.Microsoft

It looks like you need to create a IPictureDisp first and then link this to the relevant control. Also try using a.bmp

Sub ChangeButtonImage() 
    Dim picPicture As IPictureDisp 
 
    Set picPicture = stdole.StdFunctions.LoadPicture( _ 
        "c:\images\picture.bmp") 
 
    'Here you need to reference your control.  
    With Application.CommandBars.FindControl(msoControlButton) 
        'Change the button image. 
        .Picture = picPicture 
     End With 
End Sub

Looking forward to your solution...