[파워포인트VBA] 파워포인트 매크로 리본 메뉴에 넣기

파워포인트 매크로(애드인, ADDIN) 리본 메뉴에 넣는 방법

허접하지만, 자작 매크로를 사용하기 편한 위치에 두고자 한다. 방법은 뭐 많을 수는 있지만, 리본메뉴에 넣어두려고 한다.

 

 

 

PPAM 파일을 활용

방법이 많겠지만, 구글링을 통해 가장 편한 방법을 찾아봤다. 일단, 내장되어 있는 아이콘을 사용하고, PPT 오픈시에 자동으로 시작되도록 PPAM파일로 변환하여, ADDIN 폴더에 넣어주면 끝이다. auto_open 코드는 아래와 같다. 꼭 필요한지는 모르겠지만, auto_close도 해주는 것 같다.

 

 

Sub auto_open()

    With Application.CommandBars("tools").Controls

           

        With .Add(msoControlButton, 1, "8889", , True)

            .Caption = "MakeTable"

            .OnAction = "tableMaker"

            .FaceId = 8

            .Style = msoButtonIconAndCaption

            .Visible = True            

        End With

       

        With .Add(Type:=msoControlButton)

            .Caption = "TableSize"

            .OnAction = "twidthandheight"

            .FaceId = 6

            .Style = msoButtonIconAndCaption

            .Visible = True

        End With

       

       

        With .Add(Type:=msoControlButton)

            .Caption = "RGB_Color"

            .OnAction = "myColor"

            .FaceId = 17

            .Style = msoButtonIconAndCaption

            .Visible = True            

        End With

       

        With .Add(Type:=msoControlButton)

            .Caption = "Text_arrange"

            .OnAction = "tt"

            .FaceId = 19

            .Style = msoButtonIconAndCaption

            .Visible = True            

        End With

       

        With .Add(Type:=msoControlButton)

            .Caption = "Color_palette"

            .OnAction = "pal"

            .FaceId = 30            

            .Style = msoButtonIconAndCaption

            .Visible = True            

        End With        

       

    End With

End Sub

Sub auto_close()

    Application.CommandBars("tools").Reset

End Sub

 

 

 

끝.