Symbolleisten (@Hajo??)
17.02.2004 09:20:42
Jonathan
Ich habe von Deiner Homepage die Datei Symbolleisten heruntergeladen. Das hat auch alles SUPER geklappt!!
Habe eine eigenen Symbolleiste erstellt, die original - Leiste wird ausgeblendet!
Nun möchte ich aber in diese Symbolleiste den Menü "Fenster" der Originalen einbinden.
Ich habe es mit Hilfe von Panicman und Nepumuk "geschafft", das Menü zu kopieren und habe es einfach auf meine Selbsterstellte gezogen, aber dieses wird beim Ausblenden der Original Symbolleisten auch ausgeblendet.......
Ich habe hier mal einen Ausschnitt aus dem Code:
Option Private Module
Const SymbolleistenName = "StandardSymbolleiste"
Const SymbolleistenName2 = "SheetsSymbolleiste"
Sub NurMeineLeiste()
Dim cBar As CommandBar
For Each cBar In Application.CommandBars
'"Cell"=Rechtsklick-Kontextmenü für Zellen
If cBar.Name <> SymbolleistenName And cBar.Name <> SymbolleistenName2 And cBar.Name <> "Cell" Then
cBar.Enabled = False
Else
cBar.Enabled = True
End If
Next cBar
End Sub
---
Sub NurSystemLeisten()
Dim cBar As CommandBar
For Each cBar In Application.CommandBars
If cBar.Name <> SymbolleistenName And cBar.Name <> SymbolleistenName2 And cBar.Name <> "Cell" Then
cBar.Enabled = True
Else
cBar.Enabled = False
End If
Next cBar
End Sub
----
Sub LöscheSymbolleiste(n)
On Error Resume Next 'falls nicht vorhanden
Application.CommandBars(n).Delete 'löschen, falls vorhanden
On Error GoTo 0
End Sub
----
Sub BaueSymbolleiste()
Dim cB As CommandBar
Dim CBC As CommandBarButton
Dim i%
On Error Resume Next
Application.CommandBars(SymbolleistenName).Delete 'löschen, falls vorhanden
Set cB = Application.CommandBars.Add(Name:=SymbolleistenName, _
Temporary:=True, Position:=msoBarTop)
On Error GoTo 0
If Application.CommandBars(SymbolleistenName).Visible = False Then
cB.Visible = True
For i = 1 To 13
Set CBC = cB.Controls.Add(Type:=msoControlButton)
With CBC
.Style = msoButtonIconAndCaption
Select Case i
Case 1
.Caption = "Speichern"
.OnAction = "Dateispeichern"
.BeginGroup = False
.TooltipText = "Produktionsliste speichern"
.Style = msoButtonIconAndCaption
.FaceId = 3
und so geht das dann weiter........
Liebe Grüße
Jonathan
Anzeige