Coloque un botón de comando en una celda MS Excel vba

Question

Quiero colocar un botón de comando en una celda a través del código VBA. Diga la posición B3. Utilicé la grabadora de macros para este propósito, pero me da los valores inferiores superiores del botón. No quiero eso porque si llevo mi código a otra computadora con otra resolución de pantalla, el código fallará. Una posición de celda (ejemplo B3) será una posición absoluta.

¿Puede sugerirme una forma de hacerlo?

P.S Es un botón ActiveX

, gracias

Answer 1

No se puede colocar cualquier objeto "en" una célula, solamente sobre él. Puede establecer las propiedades izquierda y superior del botón en la celda izquierda/arriba.

Sub Tester() 
    Dim rng As Range 
    Set rng = ActiveSheet.Range("B3") 
    With ActiveSheet.OLEObjects("CommandButton1") 
     .Top = rng.Top 
     .Left = rng.Left 
     .Width = rng.Width 
     .Height = rng.RowHeight 
    End With 
End Sub