title image


Smiley Re: So könnte der Code aussehen...
Das Makro braucht in der Regl nur einmal ausgeführt zu werden.



'Attribute VB_Name = "Modul110"

Private Sub NeueSöeiste()

'Erzeugt eine neue Symbolleiste

'wird in der Normal.dot gespeichert

CustomizationContext = NormalTemplate



Dim xLeiste As CommandBar

Dim Titel As String

Dim CmdBar, neuesElement

' Erzeugen der Symbolleiste

Titel = "Meine Vorlagen"



'Prüfen, ob die Symbolleiste existiert

For Each xLeiste In CommandBars

If xLeiste.Name = Titel Then

xLeiste.Delete

Exit Sub

End If

Next xLeiste



Set CmdBar = CommandBars.Add( _

Name:=Titel, Position:=msoBarBottom, Temporary:=False)

'

Dim CBut As CommandBarButton

Set CBut = CommandBars(Titel).Controls.Add(ID:=1)



With CBut

.Style = msoButtonCaption

.Caption = "Privater Brief"

.TooltipText = "Private Korrespondenz"

.OnAction = "Privat"

End With

'

Dim CBut1 As CommandBarButton

Set CBut1 = CommandBars(Titel).Controls.Add(ID:=1)

'

With CBut1

.Style = msoButtonCaption

.Caption = "Geschäftsbrief"

.TooltipText = "Geschäftliche Korrespondenz"

.OnAction = "Geschäftlich"

End With

'

CmdBar.Visible = True

End Sub

'

Private Sub Geschäftlich()

Dim CBut As CommandBarButton

Set CBut = CommandBars.ActionControl

'

With CBut

'nur zur Demonstration

MsgBox "Geschäftliche Korrespondenz"

End With

End Sub

'

Private Sub Privat()

Dim CBut As CommandBarButton

Set CBut = CommandBars.ActionControl



With CBut

MsgBox "Private Korrespondenz"

End With

End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: