Create ribbon with vba

[nucliabrasil]

Hi !

Is it possible ?

Thanks

[bradeneuropeArthur]

Please explain a little more what you need, because a/the ribbon is always there.

[JhoelForshav]

Hi @nucliabrasil 

Do you want to create a new ribbon tab?

Here is an example i made in iLogic. Should be easy to rewrite as VBA code.

Class ThisRule
Sub Main

            ' Get the assembly ribbon.
            Dim AssemblyRibbon As Ribbon = ThisApplication.UserInterfaceManager.Ribbons.Item("Assembly")

            ' Create a new tab.
            Dim oTab As RibbonTab = AssemblyRibbon.RibbonTabs.Add("New Tab", "id_newTab", Guid.NewGuid().ToString())

            ' Create a new panel.
            Dim oPanel As RibbonPanel = oTab.RibbonPanels.Add("New Panel", "id_newPanel", Guid.NewGuid().ToString())


 Dim controlDefs As Inventor.ControlDefinitions = ThisApplication.CommandManager.ControlDefinitions
            Dim m_sampleButton As ButtonDefinition = controlDefs.AddButtonDefinition("Button", "oButton", CommandTypesEnum.kShapeEditCmdType)


            ' Add a button.
            oPanel.CommandControls.AddButton(m_sampleButton, True)
	End Sub
	   
 End Class
  

 This should really be done in an AddIn but you can do it this way

[JhoelForshav]

The code i posted creates a tab in the assembly environment. So if you run it from within a part you won't see the tab appear. I'm sure you can tell by the code but I might as well mention it 🙂