Symbolleiste erweitern

Hallo,
ich habe da ein Problem mit einer Symbolleiste.
Ich habe eine Datei, welche beim Start automatisch eine
Symbolleiste öffnet.
Diese Symbolleiste möchte ich nun erweitern. Das geht auch über Symbolleisten anpassen. Schliesse ich allerdings die Datei sind die Änderungen beim nächsten öffnen weg.
Ich finde aber die Symbolleiste nirgens, geöffnet wird sie in einem Makro.
Allerdings wird sie dort nur aufgerufen, allerdings nicht so:
Dim cb As CommandBar
Dim CBC As CommandBarButton
Dim j%
On Error Resume Next
Set cb = Application.CommandBars.Add(Name:="Leiste1", _
temporary:=True, Position:=msoBarTop)
' Oben Position:=msoBarTop
' Rechts Position:=msoBarRight
' Links Position:=msomsoBarLeft
' unten Position:=msoBarBottom
On Error GoTo 0
If Application.CommandBars("Leiste1").Visible = False Then '
cb.Visible = True
For j = 1 To 14
Set CBC = cb.Controls.Add(Type:=msoControlButton)
With CBC
.Style = msoButtonIconAndCaption
Select Case j
Case 1
.FaceId = 1786
.Caption = ""
.OnAction = "Auto_close"
.TooltipText = "Datei schliessen"
Ich habe auch schon die Symbolleiste gelöscht, anschliessend Excel geschlossen, Excel.xlb umbenannt. Öffne ich die Datei wieder ist die Symbolleiste auch wieder da.
Gibt es eine Möglichkeit Symbolleisten zu generieren und dann so an eine Datei zu hängen dass sie nicht zu finden ist?
Wie kann ich so eine Leiste erweitern?
Gruß Heinz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heinz,
ich weiß zwar nicht ob es das ist was du suchst. Aber ich habe dir mal meine Symbolleiste hier reingestellt! Diese wird automatisch beim öffnen der Mappe erstellt und beim schließen der Arbeitsmappe wird das alte Excel Menü wieder hergestellt, damit man in anderen Bereich noch mit der alten Leiste arbeiten kann.
Diese Symbolleiste funktioniert bei jedem neustart. Die Beschriftungen sind jetzt noch für mein Projekt bestimmt, kannst ja event. anpassen.
Gruß NATI
In Bereich der Arbeitsmappe:


Private Sub Workbook_Open()
Call MenuErstellen
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call MenuLoeschen
End Sub

eigenes Modul:
Sub MenuErstellen()
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
Set oBar = Application.CommandBars.Add( _
name:="MyCommandBar", _
Position:=msoBarTop, _
MenuBar:=True, _
temporary:=True)

'DATEI Wiederherstellen Menüleiste
' Schließen Arbeitsmappe
' Excel beenden
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = "Datei"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Menue zurückstellen "
.Style = msoButtonCaption
.OnAction = "MenuLoeschen"

End With

Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Arbeitsmappe schließen"
.Style = msoButtonCaption
.OnAction = "SchließenArbeitsmappe"
End With

Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Excel beenden"
.Style = msoButtonCaption
.OnAction = "SchließenExcel"
End With
'Bearbeiten Neuen Kalender anlegen
' Tabellen wieder nach Jahr löschen
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = "Bearbeitung"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Neuen Kalender Anlegen"
.Style = msoButtonCaption
.OnAction = "Main"
End With

Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Tabellen löschen"
.Style = msoButtonCaption
.OnAction = "LoeschenTabellenblätter"
End With

'Admin Aktivitäten anlegen
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = "Admin"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Aktivitäten anlegen"
.Style = msoButtonCaption
.OnAction = "OeffneAktivitaet"
End With
CommandBars("MyCommandbar").Visible = True
End Sub

'Löschen meines eigen angelegten Menüs
Sub MenuLoeschen()
On Error Resume Next
Application.CommandBars("MyCommandbar").Delete
On Error GoTo 0
End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread