How to convert "Height", "Left", "Top" and "Width" dimensions

[Glory]

Is there a way, for instance, to tell VBA to just put a button at the cursor?

 

[VoG]

Try like this

Sub addbutton()
Dim btn As Object
Set btn = ActiveSheet.Buttons.Add(ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height)
End Sub

 

[Glory]

thx