title image


Smiley Menuleiste erweitern
servus,



ich habe folgende Code generiert, um eine neue Menuleiste zu herstellen.



Sub Auto_Open()

Set ML = Application.CommandBars("Worksheet Menu Bar")

' Name für neues Menü wird gesetzt

Set U1 = ML.Controls.Add(Type:=msoControlPopup, Before:=10)

U1.Caption = "&WAGO"

U1.Tag = "WAGO" ' dient zur eindeutigen Identifizierung des Menüs







'--------------------------------------------------------------------------------

' Menu 4Bit DO

Set Punkt = U1.Controls.Add(Type:=msoControlPopup)

With Punkt

.Caption = "4Bit DO"

End With



Set U2 = Punkt ' Variable für das 2. Untermenü wird gesetzt

'Neuer Menüeintrag im 2.Untermenü

Set Punkt = U2.Controls.Add(Type:=msoControlButton)

With Punkt

.Caption = "&4Bit DO Einfügen"

.OnAction = "DO_Erweitern_4_Bit"

.Style = msoButtonIconAndCaption

End With



Set Punkt = U2.Controls.Add(Type:=msoControlButton)

With Punkt

.Caption = "&4Bit DO Ausblenden"

.OnAction = "DO_Reduzieren_4_Bit"

.Style = msoButtonIconAndCaption

End With

'--------------------------------------------------------------------------------

' Menu 8Bit DO

Set Punkt = U1.Controls.Add(Type:=msoControlButton)

With Punkt

.Caption = "&8Bit DO"

End With



' Variable für das 2. Untermenü wird gesetzt

'Neuer Menüeintrag im 2.Untermenü

Set Punkt = U2.Controls.Add(Type:=msoControlButton)

With Punkt

.Caption = "&8Bit DO Einfügen"

.OnAction = "DO_Erweitern_8_Bit"

.Style = msoButtonIconAndCaption

End With



Set Punkt = U2.Controls.Add(Type:=msoControlButton)

With Punkt

.Caption = "&8Bit DO Ausblenden"

.OnAction = "DO_Reduzieren_8_Bit"

.Style = msoButtonIconAndCaption

End With





End Sub





das problem lieg daran dass die information für den 8Bit DO sich auf der 4Bit DO befindet. was soll ich machen damit die information auf die richtige stelle seien wird.



Grüß

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: