Zwicke
Lieutenant
- Registriert
- Aug. 2006
- Beiträge
- 526
Bisher lief das ganze so(Office 2003):
In 2010 macht er mir aber einen neuen Reiter auf (Add-Ins). Ich würde den Button aber gerne unter Start haben.
Leider konnte mir Doktor Google nicht weiterhelfen.
mfg
Zwicke
Code:
Set oldCtrl = CommandBars.FindControl(, ID:=CommandBars("Standard").Controls("PDF").ID)
If oldCtrl Is Nothing Then
Dim cmb As CommandBar
Set cmb = Application.CommandBars("Standard")
With cmb.Controls.Add(Type:=msoControlButton, Before:=cmb.Controls("Seiten&ansicht").Index, Temporary:=False)
.Caption = "PDF"
.BeginGroup = True
.FaceId = 59
.Style = msoButtonCaption
.OnAction = "PDF"
.TooltipText = "PDF erzeugen..."
End With
Else
If (oldCtrl.Caption = "PDF") Then
oldCtrl.OnAction = "PDF"
oldCtrl.TooltipText = "PDF erzeugen..."
End If
End If
In 2010 macht er mir aber einen neuen Reiter auf (Add-Ins). Ich würde den Button aber gerne unter Start haben.
Leider konnte mir Doktor Google nicht weiterhelfen.
mfg
Zwicke