请教各位老师，新增按钮这还有办法精简吗？

炽幻恶魔

网上搜的语句加上宏录制雪来这么个按钮增加语句，但是非得加个select指令才能增加，没有就不行，不加select就能增加按钮的写法该怎么写？还有这加的是表格控件，换成窗体控件也就是ActiveX控件又该怎么写？求教大家，谢谢了！
   Set Sht1 = ThisWorkbook.Worksheets("sheet1")
    Set DanYuanGe = Sht1.Cells(2, 1)
    Sht1.Buttons.Add(DanYuanGe.Left, DanYuanGe.Top, DanYuanGe.Width, DanYuanGe.Height).Select
    With Selection
        .OnAction = "新增用户"
        .Name = "btn"
        .Characters.Text = "新增"
        With .Characters(Start:=1, Length:=1).Font
            .Name = "黑体"
            .FontStyle = "常规"
            .Size = 11
        End With
    End With

chxw68

不用select也行。

1. Sub test()
   
2.   Set Sht1 = ThisWorkbook.Worksheets("sheet1")
   
3.   Set DanYuanGe = Sht1.Cells(2, 1)
   
4.   With Sht1.Buttons.Add(DanYuanGe.Left, DanYuanGe.Top, DanYuanGe.Width, DanYuanGe.Height)
   
5.       .OnAction = "新增用户"
   
6.       .Name = "btn"
   
7.       .Characters.Text = "新增"
   
8.       With .Characters(Start:=1, Length:=1).Font
   
9.           .Name = "黑体"
   
10.           .FontStyle = "常规"
    
11.           .Size = 11
    
12.       End With
    
13.   End With
    
14. End Sub
    

复制代码

chxw68

1. Sub test2()
   
2.   With Worksheets("sheet1")
   
3.     With .OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=200, Top:=20, Width:=75, Height:=22.5)
   
4.       .Object.Caption = "新增"
   
5.     End With
   
6.   End With
   
7. End Sub
   

复制代码

炽幻恶魔

非常感谢！