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

Question

我试过这个

    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")

但是不行，Error Invalid Picture，我试过了。ICO Icons 但还是一样。 如何从我的电脑加载图片并将其用作图标而不是 faceID 方法？ 提前致谢

Answer 1

嗨，

我从： Docs.Microsoft得到这个

看起来您需要先创建一个 IPictureDisp，然后将其链接到相关控件。 也尝试使用 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

期待您的解决方案...