'マクロボタンの設置+実行マクロを登録 ActiveSheet.Buttons.Add(157.5, 21.75, 45.75, 21.75).Select Selection.OnAction = "呼び出すマクロ名" Selection.Characters.Text = "ボタンのタイトル" With Selection.Characters(Start:=1, Length:=8).Font .Name = "Meiryo UI" .Size = 11 End With Range("A1").Select