---

Hallo zusammen, hab schon wieder ein Buttonproblem

Ich will in einem Partdocument in diesem Fall die "Ursprungsebenen" in die Schnellstartleiste als Button einfügen.

Der Button erscheint aber als Text und ist nicht anklickbar, hat jemand eine Idee wie der Knopf funktionsfähig wird ?

Code:

---

Public Sub part_Quickaccess_bar()

' Part Document

On Error Resume Next
  ThisApplication.UserInterfaceManager.Ribbons("Part").QuickAccessControls.Item(22).Delete ' hier lösche ich den Button wieder falls er schon erstellt ist
   
  Dim r As Ribbon
  Set r = ThisApplication.UserInterfaceManager.Ribbons("Part")
 
  Dim Bdef As ButtonDefinition
  Set Bdef = ThisApplication.Commandmanager.ControlDefinitions.Item("AssemblyHalfSectionViewCmd") 'DisplayName : "Ursprungsebenen"
 
  Dim cc As CommandControl
  cc = ThisApplication.UserInterfaceManager.Ribbons("Part").QuickAccessControls.AddButton(Bdef)
 
End Sub

---

Gruß Berno

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP