Office Ribbon Editor를 사용하여 리본 UI에 매크로 실행 버튼 추가

6398 단어 ribbonVBAExcel우이

소개


  • 현상: 매크로를 복수 만들었습니다만, 매크로 파일만 증식해 미활용이었습니다. 작성한 매크로 파일을 찾아 열어 실행하는 것이 억원으로, 결국 매크로를 사용하지 않고 작업을 시작하고 있었습니다.
  • 문제점 : 그러나 작업의 생산성은 역시 나쁘다. 어떻게든하고 싶다.
  • 해결책 : 거기에서 리본 UI 사용자 정의 소프트웨어를 사용하여 매크로 실행 버튼을 만들었습니다.

  • 완성 이미지





    운영 환경


  • Windows10
  • Office365 or Office2010

  • 리본 UI 사용자 정의 소프트웨어



    커스터마이즈 소프트웨어는 2 종류 있습니다. 설치 방법은 링크처를 참조 바랍니다. 지원이 종료되었지만 1 개의 Office Ribbon Editor를 사용 중입니다.
  • Office Ribbon Editor → 설치 방법 (지원 종료)
  • Custom UI Editor Tool → 설치 방법 및 사용법

  • 리본 UI 측 작성 예


  • 리본 UI는 XML 기반으로 만들 수 있습니다.
  • 커스터마이즈 소프트는, 병아리를 자동 작성해 줍니다. 그런 다음 자신의 취향에 맞게 사용자 정의
  • 각 버튼의 "onAction="뒤에 ""안에 실행할 매크로의 프로시저 이름을 입력합니다. (예 : google)
  • <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
        <ribbon startFromScratch="false">
            <tabs>
                <tab id="ad" label="myHome00.85">
                    <group id="web" label="link">
                        <button id="web_link" label="google" 
                        imageMso="G" size="normal" onAction="google" />
                        <button id="web_uni" label="Unicode" 
                        imageMso="U" size="normal" onAction="The Unicode Consortium" /> 
                    </group>
    
                    <group id="sagyo" label="作業">               
                        <button id="haba_size" label="行列幅自動調整" 
                        imageMso="G" size="normal" onAction="行列幅自動調整" />
                        <button id="half_size" label="英数仮名→半角" 
                        imageMso="S" size="normal" onAction="英数仮名→半角" />
                        <button id="uni_do" label="unicode表処理" 
                        imageMso="S" size="normal" onAction="unicode表処理" />       
                    </group>
    <!--省略-->
                </tab>
            </tabs>
        </ribbon>
    </customUI>
    

    VBA 측 작성 예


  • 프로시저 이름 'google' 뒤에 괄호 안에 'control As IRibbonControl'을 입력합니다. (약속)
  • 다음은 버튼을 누르면 IE에서 Google 검색 사이트를 여는 매크로 예입니다.
  • Option Explicit
    Sub google(control As IRibbonControl)
        Dim objIE As Object
        Set objIE = CreateObject("InternetExplorer.Application")  
        objIE.Visible = True
        objIE.Navigate ("https://www.google.co.jp/")
    End Sub
    

    동작 확인




    ※ 열었습니다.

    보충


  • 커스터마이즈 소프트를 이용하지 않아도, 자작으로 작성 가능인 것 같습니다만, 조금 힘들다.
  • 좋은 웹페이지 즐겨찾기