Option Explicit

'### 리본에 연결하는 프로시저

Private Sub RbWindowsArrage(control As IRibbonControl)

    Call windowsArrage

End Sub

'### 실제 동작하는 프로시저는 별도로 작성한 다음,

'### 리본에 연결하는 프로시저에서 Call로 호출하는게 좋습니다.             

Sub windowsArrage()

    If ActiveWindow.WindowState <> xlMaximized Then

        ActiveWindow.WindowState = xlMaximized

    Else

        Windows.Arrange ArrangeStyle:=xlVertical

    End If

End Sub

Sub callback1(control As IRibbonControl)

    MsgBox "callback1"

End Sub

Sub callback2(control As IRibbonControl)

    MsgBox "callback2"

End Sub

Sub callback3(control As IRibbonControl)

    MsgBox "callback3"

End Sub

 <?xml version="1.0" encoding="euc-kr"?>

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">

    <ribbon startFromScratch="false">

        <tabs>

            <tab insertBeforeMso="TabHome" id="abyulSampleTab" label="abyulSampleTab">

                <group id="customGroup" label="Custom Group">

                    <button id="customButton" label="Custom Button" imageMso="HappyFace" size="large" onAction="RbWindowsArrage" />

                </group>

                <!-- Add 개인수급자료 group -->

                <group id="CustomGroup" label="수급자료">

                    <box id="CustomGroup1" boxStyle="horizontal">

                    <button id="customButton1" label="삭제" size="normal" onAction="callback1" imageMso="SaveAndClose" />

                    <button id="customButton2" label="입력1" size="normal" onAction="callback2" imageMso="TableDrawTable" />

                    <button id="customButton3" label="입력2" size="normal" onAction="callback3" imageMso="ReviewShareWorkbook" />

                    </box>

                </group>

            </tab>

        </tabs>

    </ribbon>

</customUI>

 <?xml version="1.0" encoding="euc-kr"?>