Error 438 Object doesn't support this property

Thank for reading,

Line 200 is giving me an error as "Error 438 Object doesn't support this property or method"

Appreciate your help as I am sure this was working previously in this project. I've migrated to a new machine and cannot compile this.

thanks



          Dim RibbonBar As RibbonBar
80        Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")
90        RibbonBar.EnableDocking xtpFlagStretched
100       RibbonBar.ShowQuickAccess = False
         
          Dim ControlFile As CommandBarPopup
          Dim Control As CommandBarControl
          Dim PopupBar As CommandBar
          Dim TabWrite As RibbonTab
         
110       Set ControlFile = RibbonBar.AddSystemButton()
120       ControlFile.IconId = ID_SYSTEM_ICON
130       ControlFile.Caption = "&File"
140       ControlFile.CommandBar.SetIconSize 32, 32
150       With ControlFile.CommandBar.Controls

160           Set Control = .Add(xtpControlButton, ID_FILE_USERS, "&Users")
             
170           Set Control = .Add(xtpControlSplitButtonPopup, ID_FILE_DRIVES, "&Drives")
180           Control.BeginGroup = True
190           Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")

200           Set Control.CommandBar = PopupBar

Thanks for the reply,

The confusing thing for me is that this was working fine in V11 but has thrown this error when we upgraded to V13.

I have tried the mod as you suggested but now I get Error 13 type mismatch on line 190 per below.

I'll fiddle some more but if you have a thought on this I'd appreciate it.

thanks

          Dim RibbonBar As RibbonBar
80        Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")
90        RibbonBar.EnableDocking xtpFlagStretched
100       RibbonBar.ShowQuickAccess = False
         
          Dim ControlFile As CommandBarPopup
          Dim Control As CommandBarControl
          Dim PopupBar As CommandBar
          Dim TabWrite As RibbonTab
         
          Dim ControlPopup As CommandBarPopup
         
110       Set ControlFile = RibbonBar.AddSystemButton()
120       ControlFile.IconId = ID_SYSTEM_ICON
130       ControlFile.Caption = "&File"
140       ControlFile.CommandBar.SetIconSize 32, 32
150       With ControlFile.CommandBar.Controls

160           Set Control = .Add(xtpControlButton, ID_FILE_USERS, "&Users")
             
170           Set Control = .Add(xtpControlSplitButtonPopup, ID_FILE_DRIVES, "&Drives")
180           Control.BeginGroup = True
' 190           Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")
190           Set ControlPopup = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")

'200           Set Control.CommandBar = PopupBar
200           Set Control.CommandBar = ControlPopup

'210           Set Control = PopupBar.Controls.Add(xtpControlLabel, 0, "Create and DisMount Drives")
210           Set Control = ControlPopup.Controls.Add(xtpControlLabel, 0, "Create and DisMount Drives")

Hi,

Use this code in v13.2.1 and it will work fine...

Set ControlPopup = .Add(xtpControlSplitButtonPopup, ID_FILE_PRINT, "&Print")         ControlPopup.BeginGroup = True     Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")     Set ControlPopup.CommandBar = PopupBar

Here it is in your sample code:

Dim RibbonBar As RibbonBar     Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")     RibbonBar.EnableDocking xtpFlagStretched     RibbonBar.ShowQuickAccess = False         Dim ControlFile As CommandBarPopup     Dim Control As CommandBarControl     Dim PopupBar As CommandBar     Dim TabWrite As RibbonTab         Dim ControlPopup As CommandBarPopup         Set ControlFile = RibbonBar.AddSystemButton()     ControlFile.IconId = ID_SYSTEM_ICON     ControlFile.Caption = "&File"     ControlFile.CommandBar.SetIconSize 32, 32         With ControlFile.CommandBar.Controls             Set Control = .Add(xtpControlButton, ID_FILE_USERS, "&Users")                    Set Control = .Add(xtpControlSplitButtonPopup, ID_FILE_DRIVES, "&Drives")             Control.BeginGroup = True         Set ControlPopup = .Add(xtpControlSplitButtonPopup, ID_FILE_PRINT, "&Print")             ControlPopup.BeginGroup = True         Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")         Set ControlPopup.CommandBar = PopupBar                 Set Control = ControlPopup.Controls.Add(xtpControlLabel, 0, "Create and DisMount Drives")     End With

Basically when major versions of software change there may be some changes to the way in which it previously worked. All I did was look at the sample code to get this working!