AW: Menü erstellen
15.07.2004 22:31:55
K.Rola
Hallo,
Private Sub Workbook_Open()
'eigene Symbolleiste anlegen für die Ausbauprofilerstellung
Dim Symb As CommandBar
Dim Symbol As CommandBarButton
On Error Resume Next
Application.CommandBars("Geoprofil").Delete
On Error GoTo 0
Set Symb = Application.CommandBars.Add("Geoprofil", Position:=msoBarTop, Temporary:=True)
ActiveWindow.Zoom = 100
With Symb
.Left = 0
.Visible = True
End With
CalcStatus = Application.Calculation
''Wenn du auf manuell stellen möchtest, sollte es heißen: xlManual, oder?
Application.Calculation = xlAutomatic 'auf Manuell stellen, damits schneller geht
Set Symbol = Symb.Controls.Add(Type:=msoControlButton)
With Symbol
.Style = msoButtonIconAndCaption
.FaceId = 59
.Caption = "Geopegel-Projektdaten"
.TooltipText = "Eingabe der Projektdaten"
.BeginGroup = True
.OnAction = "ProjektdatenEingeben"
End With
Set Symbol = Symb.Controls.Add(Type:=msoControlButton)
With Symbol
.Style = msoButtonIconAndCaption
.FaceId = 59
.Caption = "Geopegel-Brunnendaten"
.TooltipText = "Eingabemaske der Pegel- und Ausbaudaten"
.BeginGroup = True
.OnAction = "Testuserform"
End With
Set Symbol = Symb.Controls.Add(ID:=200)
With Symbol
.Style = 3
.BeginGroup = True
End With
End Sub
Gruß K.Rola