在單元格中放置一個命令按鈕MS Excel vba

Question

我想通過VBA代碼在單元格中放置一個命令按鈕。說出位置B3。我爲此使用了宏記錄器，但它給了我按鈕的最低值。如果我用其他屏幕分辨率將我的代碼帶到其他計算機上，我不希望這樣，代碼將失敗。單元格位置（示例B3）將是絕對位置。

你能建議我一種方法來做到這一點。

P.S它的一個ActiveX按鈕

感謝

Answer 1

不能放置任何物品「在」一個細胞，只有在它。您可以將按鈕的左側和頂部屬性設置爲單元的左側/頂部。

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