セルにコマンドボタンを配置するMS Excel vba

Question

VBAコードを使用してセルにコマンドボタンを配置します。位置B3と言う。私はこの目的のためにマクロレコーダーを使用しましたが、それは私にボタンの一番下の値を与えます。別の画面解像度で私のコードを他のコンピュータに持って行っても、そのコードは失敗します。セル位置（例B3）は絶対位置になります。

これを行う方法を教えてもらえますか？

P.SそのActiveXのボタン

おかげ

Answer 1

あなたはそれの上に、セル「の」任意のオブジェクトを配置することはできません。ボタンのLeftプロパティとTopプロパティをCellのLeft/Topに設定できます。

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