VBA技巧：自动给每个工作表添加相同大小和位置的按钮并指定相同的宏

Sub AddButtons()
 Dim ws As Worksheet
 Dim oButton As Shape
 Dim T As Double, L As Double, H As Double, W As Double
 Dim M As String, C As String
 
 Set oButton = Worksheets("Sheet1").Shapes("Button 1")
 With oButton
   T = .Top
   L = .Left
   H = .Height
   W = .Width
   M = .OnAction
   ActiveSheet.Shapes.Range(Array("Button 1")).Select
   C = Selection.Characters.Text
 End With
 
 For Each ws In ThisWorkbook.Worksheets
   If Not ws Is Sheet1 Then
     ws.Select
     ws.Buttons.Add(L, T, W, H).Select
     Selection.OnAction = M
     Selection.Text = C
   End If
 Next
End Sub

Sub MacroToRun()
 MsgBox ActiveSheet.Name
End Sub