Ribbon ansprechen
06.05.2013 16:20:37
Marc
ich habe vor kurzen schon Mal zu diesem Thema geschrieben. Inzwischen habe ich mir dank eurer Hilfe und dank der Internetsuche das meiste zusammengesucht. Ich habe aber noch ein Problem dabei den letzten Schritt zu tun.
Mein Ziel ist es, das Kontextmenü Ply auszublenden und nur auf Knopfdruck hin wieder einzublenden.
Hier ist der dazu gehörige XML Code
Damit habe ich mir ein eigenes Kontextmenü erstellt, welches auch, wenn es sichtbar ist, funktioniert.
Mit dem folgenden VBA Code will ich die Elemente einzeln sichtbar machen können. Exemplarisch soll hier nur ein Element sichtbar gemacht werden. Die weiteren Elemente kommen später hinzu.
Sub MakeVisible()
Dim myCb As CommandBar
Dim ctrl As IRibbonControl
Set myCb = Application.CommandBars("ply")
Set ctrl = myCb.FindControl(ID:=889)'Dies ist der Menüpunkt "Umbenennen".
Call setVisible(ctrl, False)
End Sub
Sub setVisible(ByVal control As IRibbonControl, ByVal vis As Boolean)
vis = True
control.visible = vis
End Sub
Leider gibt mir Excel den Laufzeitfehler 13 zurück und behauptet, dass die Variable ctrl = Nothing ist. Ich nehme an, ich habe nicht den richtigen Code, um diese Variable zu füllen. Könnt Ihr mir helfen den richtigen Code für die Zeile:Set ctrl = myCb.FindControl(ID:=889)
zu finden?
Vielen Dank schonmal im Voraus!
Liebe Grüße,
Marc