Inserire un pulsante di comando in una cella MS Excel vba

Question

Desidero inserire un pulsante di comando in una cella tramite codice VBA. Dì la posizione B3. Ho usato il registratore di macro per questo scopo, ma mi dà i valori di fondo in alto del pulsante. Non voglio che cuz se prendo il mio codice su un altro computer con un'altra risoluzione dello schermo, il codice fallirà. Una posizione di cella (esempio B3) sarà una posizione assoluta.

Potete suggerirmi un modo per farlo.

P.S suo un Button ActiveX

Grazie

Answer 1

Non è possibile inserire un oggetto "in" una cella, solo su di esso. Puoi impostare le proprietà Left e Top del pulsante su Left/Top della cella.

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