is it possible to make a command button "Float"

[whiteghost]

Hi is it possible to make a command button stay in one part of screen even when the user scrolls up or down?
at the moment Ihave the buttons on row1 and the panes frozen.

 

[orangehairedboy]

That's what I have to keep the buttons visible...I don't know of any other way

 

[Tom Urtis]

You could try two workarounds.

One is to place the command button or such icon on a custom floating toolbar by itself.

The other option, depending on how ubiquitous you want the command button to be, is to place this code in your sheet module. Modify for CommandButton reference and how far away you want it from your selected cell.

This has its drawbacks though...for one you lose your undo feature, and for another, the button will be like your shadow, always there but maybe that's what you want. Modify the offsets and Exit Sub line to suit.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 3 Or Target.Row < 3 Then Exit Sub
With ActiveSheet.Shapes("CommandButton1")
.Top = Target.Offset(-2).Top
.Left = Target.Offset(, -2).Left
End With
End Sub

 

[whiteghost]

Thanks Tom. I actually do want it to follow like a shadow. so your solution will be perfect.

 

[tomcatonnet99]

this solution is exactly what I've implemented some time back and have only just realised that the worksheet looses its copy/paste functionality ...

any ideas as to why ? as also how to resolve this issue


thanks

Regds

Tom

You could try two workarounds.

One is to place the command button or such icon on a custom floating toolbar by itself.

The other option, depending on how ubiquitous you want the command button to be, is to place this code in your sheet module. Modify for CommandButton reference and how far away you want it from your selected cell.

This has its drawbacks though...for one you lose your undo feature, and for another, the button will be like your shadow, always there but maybe that's what you want. Modify the offsets and Exit Sub line to suit.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 3 Or Target.Row < 3 Then Exit Sub
With ActiveSheet.Shapes("CommandButton1")
.Top = Target.Offset(-2).Top
.Left = Target.Offset(, -2).Left
End With
End Sub