如何在快捷菜單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

期待您的解決方案...