使用 Excel VBA，如何将工作表上的选项按钮捕捉到特定范围？

Question

我在工作表上有许多单选按钮（表单选项按钮，而不是 activex）。我遇到一个问题，当我通过电子邮件发送工作簿时，选项按钮会扭曲并调整为不可用的大小并位于不同的位置。但它们在我的电脑上看起来很好，所以我不知道是什么原因造成的。

所以，我试图通过将按钮固定到单元格来修复它。我已经使用这个子将其捕捉到按钮左上角触摸的任何单元格。但是，我想要做的是将按钮捕捉到精确的范围，例如 Range("C5")。这个可以实现吗？

Sub OptionButton_Align()

    With Sheets("Training").OptionButtons("Option Button 1")
        .Left = .TopLeftCell.Left
        .Top = .TopLeftCell.Top
        .Width = .TopLeftCell.Width
        .Height = .TopLeftCell.Height
    End With

End Sub

Answer 1

请尝试一下。

Sub OptionButton_Align()
    Dim rCell as Range
    Set rCell = Sheets("Training").Range("C5")
    With Sheets("Training").OptionButtons("Option Button 1")
        .Left = rCell.Left
        .Top = rCell.Top
        .Width = rCell.Width
        .Height = rCell.Height
    End With
End Sub