엑셀,VBA) VBA로 메크로버튼 만들고 메크로 연걸시키기

Option Explicit

Sub Make_Button()

   With ActiveSheet.Buttons

      '버튼 추가(

         '왼쪽에서부터 좌표,위에서부터 좌표

         '가로크기,세로크기)

         '버튼 ID이름 설정

      .Add( _

         Range("a1").Left, Range("a1").Top, _

         Range("a1").Width * 2, Range("a1").Height) _

         .name = "DeleteButton"

      '버튼에 표시될 내용 설정

      .Caption = "Button 지우기"

      '캡션 폰트 크기

      .Characters.Font.Size = 9

      '버튼 클릭시 실행될 메크로 설정

      .OnAction = "Delete_Button"

   End With

End Sub

Sub Delete_Button()

   '버튼형 변수 생성

   Dim btn As Button

   '현재시트의 버튼들 마다

   For Each btn In ActiveSheet.Buttons 'DrawingObjects

      '버튼 아이디가 "~~"일경우

      If btn.name = "DeleteButton" Then

         '해당 버튼 삭제

         btn.Delete

      End If

   Next btn

End Sub