在单元格MS Excel vba中放置一个命令按钮

Question

我想通过VBA代码在单元格中放置一个命令按钮.说位置B3.我为此目的使用了宏录制器,但它给了我按钮的最高位值.如果我将我的代码带到另一台具有其他屏幕分辨率的计算机上,我不想要这样做,代码将失败.单元格位置(示例B3)将是绝对位置.

你能建议我这样做吗？

PS它是一个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