excel - 创建两个命令按钮的功能

Question

我想在工作表中同时创建两个命令按钮。

该函数只创建一个（第一个）。

我分离了功能，但它仍然没有添加第二个按钮。

Sub AddCommandButtons()

    Dim sh1 As Excel.Worksheet
    Dim btn1, btn2 As Shape

    set sh1= ThisWorkbook.Sheets(1)
      
    x1 = 4.2
    y1 = 1.8
    w1 = 140
    h1 = 21
    
    x2 = 160
    y2 = 1.8
    w2 = 140
    h2 = 21
    
    Set btn1 = sh1.Shapes.AddFormControl(xlButtonControl, x1, y1, w1, h1)
    btn1.OLEFormat.Object.Caption = "Add New Lines"
    btn1.OnAction = "Module8.AddNewLines"

    Set btn2 = sh1.Shapes.AddFormControl(xlButtonControl, x2, y2, w2, h2)
    btn2.OLEFormat.Object.Caption = "Write Out Lines"
    btn2.OnAction = "Module11.WriteOutLines"
    
End Sub

标签： excelvba