如何使用宏创建按钮以运行宏

Question

我记录了一个宏来帮助我运行编写的代码。 代码本身有效。 但是，我似乎无法创建一个可以运行代码的按钮。

With Summary 
        .Buttons.Add(1039.8, 60.6, 66.6, 28.8).Select
        Selection.OnAction = "PERSONAL.XLSB!Clear_Error"
        Selection.Characters.Text = "Clear"
        With Selection.Characters(Start:=1, Length:=11).Font
            .Name = "Calibri"
            .FontStyle = "Regular"
            .Size = 11

End With

摘要是工作表。按钮已创建，但按钮本身不执行任何操作。 另外，当我尝试手动将宏分配给按钮时，代码仍然不起作用。 但是，当我运行代码时，它运行平稳。

谢谢，

G

Answer 1

您可以尝试首先Set按钮Set为声明为Button的变量。

Option Explicit

Sub Test()

    Dim Btn As Button, Summary As Worksheet
    Set Summary = ThisWorkbook.Worksheets(1)
    Set Btn = Summary.Buttons.Add(1039.8, 60.6, 66.6, 28.8)
    With Btn
        .OnAction = "PERSONAL.XLSB!Clear_Error"
        .Characters.Text = "Clear"
        With .Characters(Start:=1, Length:=11).Font
            .Name = "Calibri"
            .FontStyle = "Regular"
            .Size = 11
        End With
    End With

End Sub

我个人（以及大多数VBA社区）对.Select ， .Selection ， .Activate等非常不喜欢。因此，这通常是我在解决问题时首先要摆脱的第一件事，然后从那里移动。

注意：我确实将Summary设置为工作表1，因此可能需要根据您的需要进行修改。