AW: Antwort zu Frage 1
14.03.2008 07:43:41
gio
Hallo Beverly,
habe Code geändert und "DoEvent" wie gesagt rein getan.
Geht nicht.
Meine Version Excel 2000
Danke
gio
Public Sub proc_CommandBar()
Dim doOben As Double
Dim doLinks As Double
On Error Resume Next
doOben = CommandBars("Stoppuhr").Top
doLinks = CommandBars("Stoppuhr").Left
CommandBars("Stoppuhr").Delete
On Error GoTo 0
Set myCommandBar = CommandBars.Add(Name:="Stoppuhr", _
Position:=msoBarFloating, Temporary:=True)
myCommandBar.Top = doOben
myCommandBar.Left = doLinks
' On Error Resume Next
' CommandBars("Stoppuhr").Delete
' On Error GoTo 0
' Set myCommandBar = CommandBars.Add(Name:="Stoppuhr", _
' Position:=msoBarFloating, Temporary:=True)
Set myCommandBarButton1 = myCommandBar.Controls.Add(Type:=msoControlButton)
With myCommandBarButton1
.Caption = "Start"
.Style = msoButtonCaption
.OnAction = "proc_Start"
End With
Set myCommandBarButton2 = myCommandBar.Controls.Add(Type:=msoControlButton)
With myCommandBarButton2
.Caption = "Stop"
.Style = msoButtonCaption
.OnAction = "proc_Stop"
.Enabled = False
End With
Set myCommandBarButton3 = myCommandBar.Controls.Add(Type:=msoControlButton)
With myCommandBarButton3
.Caption = "Log"
.Style = msoButtonCaption
.OnAction = "proc_Lap"
.Enabled = False
End With
Set myCommandBarButton4 = myCommandBar.Controls.Add(Type:=msoControlButton)
With myCommandBarButton4
.Caption = "Reset"
.Style = msoButtonCaption
.OnAction = "proc_Reset"
.Enabled = False
End With
Set myCommandBarButton5 = myCommandBar.Controls.Add(Type:=msoControlButton)
With myCommandBarButton5
.Caption = "00:00:00"
.Style = msoButtonCaption
.TooltipText = "Zeit"
.BeginGroup = True
End With
With myCommandBar
.Protection = msoBarNoChangeDock + msoBarNoCustomize + _
msoBarNoHorizontalDock + msoBarNoResize + msoBarNoVerticalDock
.Visible = True
End With
DoEvents
End Sub