Floating Command Button

[Don Lowe]

How do I create a floating command button?

 

[Gary''s Student]

Create a custom toolbar and place it on the worksheet directly rather than at
tool area at the top of the window.

Then place any required buttons in the new toolbar. It will "float" as you
scroll up or down.

 

[Jim Rech]

Here's an example:

Sub MakeFloatingCommandbar()
On Error Resume Next
CommandBars("MyCB").Delete
On Error GoTo 0
CommandBars.Add "MyCB", msoBarFloating, , True
With CommandBars("MyCB")
With .Controls.Add(msoControlButton)
.Caption = "Btn1"
.FaceId = 80
.OnAction = "Macro1"
End With
With .Controls.Add(msoControlButton)
.Caption = "Btn2"
.FaceId = 81
.OnAction = "Macro2"
End With
.Visible = True
End With
End Sub

 

[Don Lowe]

Jim,

I have taken your example and tried to create a Floating Command Bar (Shown
Below). I am guessing that I have done something wrong, because I get
nothing. Please Help!!!

Sub CommandButton97_Click()
'
' CommandButton97_Click Macro
' Macro recorded 5/6/2008 by g141183
'

Application.Goto Reference:=Worksheets("Master Report").Range("A1"),
Scroll:=True

End Sub

-----------------------------------------------------------------------------------------
Sub Scroll31Right()
ActiveWindow.SmallScroll Toright:=31
End Sub

-----------------------------------------------------------------------------------------
Sub Scroll31Left()
ActiveWindow.SmallScroll Toleft:=31
End Sub

-----------------------------------------------------------------------------------------
Sub MakeFloatingCommandbar()
On Error Resume Next
CommandBars("MyCB").Delete
On Error GoTo 0
CommandBars.Add "MyCB", msoBarFloating, , True
With CommandBars("MyCB")
With .Controls.Add(msoControlButton)
.Caption = "Right"
.FaceId = 80
.OnAction = "Scroll31Right()"
End With
With .Controls.Add(msoControlButton)
.Caption = "Left"
.FaceId = 81
.OnAction = "Scroll31Left()"
End With
With .Controls.Add(msoControlButton)
.Caption = "Main"
.FaceId = 83
.OnAction = "CommandButton97_Click()"
End With
.Visible = True
End With
End Sub