Popupcontrol cannot associate imageManager.

Hi there,

thanks.

General Declarations
Option Explicit

Dim Popup As CommandBar

'load icons into image manager with the corresponding id numbers
Private Const ID_DESPECKLE = 1
Private Const ID_REMOVELINES = 2


Private Sub CreatePopup

    Dim Control As CommandBarControl
    Dim PopupControl As CommandBarPopup
    
    'name of the control placed on the form is CommandBars
    Set Popup = CommandBars.Add("Popup", xtpBarPopup)
   
    With Popup.Controls
       
      Set Control = .Add(xtpControlButton, ID_DESPECKLE, "Despeckle", -1, False)
      Set Control = .Add(xtpControlButton, ID_REMOVELINES, "Remove Lines", -1, False)
           
    end with

    CommandBars.Icons = ImageManager.Icons
End Sub

Private Sub Form_Load()
    Call CreatePopup
End Sub

Oops.  I think I misunderstood.  You're not using PopupMenu but popup control instead?  Wow.  I guess I need to go eat lunch to recharge the batteries.

Hello,