Botón que flota

Este es el inicio de una categoría de posts relacionados a una de mis pasiones informáticas.

El código sirve para que un CommandButton 'flote' en la hoja de cálculo, de modo que al desplazarnos por la hoja, el botón siempre esté en la misma posición.

Espero le sea útil a alguien alguna vez.

Tener cuidado con los saltos de línea... :)

'******************************************************************************

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Dentro_de As String, Debe_estar_en As String, _

Izquierda As Single, Arriba As Single Dentro_de = ActiveWindow.VisibleRange.Address Debe_estar_en = Range(Dentro_de).Cells(2, 2).Address

With ActiveSheet.Shapes("CommandButton1")

If .TopLeftCell.Address = Debe_estar_en Then Exit Sub

Izquierda = Range(Debe_estar_en).Left Arriba = Range(Debe_estar_en).Top

.Left = Izquierda: .Top = Arriba

End With

End Sub

'******************************************************************************