lior03
01-23-2006, 12:38 AM
hello
i found this macro of a pop up toolbar
i set it to work every 30 seconds.
Sub POPUP_EXAMPLE()
Application.OnTime Now + TimeSerial(0, 0, 30), "POPUP_EXAMPLE"
Dim popUpBar As CommandBar
Dim newButton As CommandBarControl
On Error Resume Next
CommandBars("Pop UP Bar").Delete
On Error GoTo 0
Set popUpBar = CommandBars _
.Add(Name:="Pop Up Bar", Position:=msoBarPopup)
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 67
.OnAction = "autofitAll"
.Caption = "auto fit "
End With
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 69
.OnAction = "savemode"
.Caption = "last save"
End With
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 78
.OnAction = "numberformation"
.Caption = "cell's number format"
End With
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 196
.OnAction = "dillan"
.Caption = "cell's font"
End With
popUpBar.ShowPopup
End Sub
why do i get an roor message every time i exit excel to another application?
thanks
i found this macro of a pop up toolbar
i set it to work every 30 seconds.
Sub POPUP_EXAMPLE()
Application.OnTime Now + TimeSerial(0, 0, 30), "POPUP_EXAMPLE"
Dim popUpBar As CommandBar
Dim newButton As CommandBarControl
On Error Resume Next
CommandBars("Pop UP Bar").Delete
On Error GoTo 0
Set popUpBar = CommandBars _
.Add(Name:="Pop Up Bar", Position:=msoBarPopup)
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 67
.OnAction = "autofitAll"
.Caption = "auto fit "
End With
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 69
.OnAction = "savemode"
.Caption = "last save"
End With
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 78
.OnAction = "numberformation"
.Caption = "cell's number format"
End With
Set newButton = popUpBar.Controls _
.Add(Type:=msoControlButton, id:=1)
With newButton
.FaceId = 196
.OnAction = "dillan"
.Caption = "cell's font"
End With
popUpBar.ShowPopup
End Sub
why do i get an roor message every time i exit excel to another application?
thanks