title image


Smiley Re: Schaltflächensymbole für selbstdefinierte Menüleisten ??
Hallo,

veruch mals so:















Sub Symbolleiste_erstellen()

'erstellt eine Symbolleiste

Dim mein_Menue As CommandBar  

Dim neues_Element As CommandBarControl  



Set mein_Menue = Application.CommandBars.Add(Name:="Bingo")

 

With mein_Menue

  .Visible = True

  .Position = msoBarTop

   

  Set neues_Element = .Controls.Add(Type:=msoControlButton, ID:=2949)

  With neues_Element

      .FaceId = 1612

      .Caption = "und wieder wg"

      .OnAction = "weg"

  End With  

End With  



End Sub  

Sub weg()

Application.CommandBars("Bingo").Delete

End Sub  









Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: