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

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

myimg



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


끝.