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

Question

我想通过 VBA 代码在单元格中放置一个命令按钮。说位置B3。我为此目的使用了宏记录器，但它为我提供了按钮的顶部底部值。我不希望这样，因为如果我将代码带到具有其他屏幕分辨率的其他计算机上，代码将会失败。单元格位置(例如 B3)将是绝对位置。

你能建议我一种方法吗？

P.S 它是一个 activeX 按钮

谢谢

Answer 1

您不能将任何对象放置在单元格“内”，只能放置在单元格上方。您可以将按钮的 Left 和 Top 属性设置为单元格的 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