VBA를 사용하여 사용자 지정 리본 탭을 추가하는 방법은 무엇입니까?
몇 개의 버튼이있는 Excel 리본에 사용자 지정 탭을 추가하는 방법을 찾고 있습니다. Google을 통해 문제를 해결하는 일부 리소스를 찾았지만 모두 어리 석고 엄청나게 복잡해 있습니다.
이를 수행하는 간단한 방법은 무엇입니까? VBA가 Excel에로드 될 때 새 탭을로드하고 싶습니다.
업데이트 : 여기 에서이 예제를 시도했지만 마지막 명령에서 "개체 필요"오류가 발생합니다.
Public Sub AddHighlightRibbon()
Dim ribbonXml As String
ribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">"
ribbonXml = ribbonXml + " <mso:ribbon>"
ribbonXml = ribbonXml + " <mso:qat/>"
ribbonXml = ribbonXml + " <mso:tabs>"
ribbonXml = ribbonXml + " <mso:tab id=""highlightTab"" label=""Highlight"" insertBeforeQ=""mso:TabFormat"">"
ribbonXml = ribbonXml + " <mso:group id=""testGroup"" label=""Test"" autoScale=""true"">"
ribbonXml = ribbonXml + " <mso:button id=""highlightManualTasks"" label=""Toggle Manual Task Color"" "
ribbonXml = ribbonXml + "imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
ribbonXml = ribbonXml + " </mso:group>"
ribbonXml = ribbonXml + " </mso:tab>"
ribbonXml = ribbonXml + " </mso:tabs>"
ribbonXml = ribbonXml + " </mso:ribbon>"
ribbonXml = ribbonXml + "</mso:customUI>"
ActiveProject.SetCustomUI (ribbonXml)
End Sub
AFAIK에서는 VBA Excel을 사용하여 Excel 리본에서 사용자 지정 탭을 만들 수 없습니다. 그러나 VBA를 사용하여 리본 구성 요소를 숨기거나 표시 할 수 있습니다. 또한 언급 된 한 링크는 MS Excel이 아닌 MS 프로젝트 용 링크입니다.
Custom UI Editor 라는 무료 유틸리티를 사용하여 Excel 응용 프로그램 / 추가 기능에 대한 탭을 만듭니다 .
편집 : OP의 새로운 요청을 수용하기 위해
지도 시간
다음은 약속 된 짧은 튜토리얼입니다.
사용자 정의 UI 편집기 (CUIE)를 설치 한 후 CU 파일 | 관련 Excel 파일을 선택합니다. CUIE를 통해 Excel 파일이 있는지 확인하십시오. 새로운 워크 시트를 사용하고 있습니다.
아래 이미지와 같이 마우스 오른쪽 버튼을 클릭하고 "Office 2007 Custom UI Part"를 클릭합니다. "customUI.xml"이 삽입됩니다.
다음 메뉴 클릭 삽입 | 샘플 XML | 맞춤 탭. 기본 코드가 자동으로 생성됩니다. 이제 요구 사항에 따라 편집 할 수 있습니다.
코드를 살펴 보자
label="Custom Tab"
: "사용자 정의 탭"을 탭에 이름으로 바꿉니다. 당분간은 "제롬"이라고 부르 자.아래 부분은 사용자 정의 버튼을 추가합니다.
<button id="customButton" label="Custom Button" imageMso="HappyFace" size="large" onAction="Callback" />
imageMso
: 버튼에 표시되는 이미지입니다. "HappyFace"는 지금 당신이 엄청난 될 것입니다. 여기에서 더 많은 이미지 ID를 다운로드 할 수 있습니다 .onAction="Callback"
: "콜백"은 버튼을 클릭 할 때 실행되는 프로 시저의 이름입니다.
도장
"JG Button 1"과 "JG Button 2"라고 부르겠습니다. 첫 번째 이미지는 행복한 얼굴을 유지하고 두 번째 이미지는 "태양"을 유지합시다. 수정 된 코드는 이제 다음과 가변됩니다.
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="MyCustomTab" label="Jerome" insertAfterMso="TabView">
<group id="customGroup1" label="First Tab">
<button id="customButton1" label="JG Button 1" imageMso="HappyFace" size="large" onAction="Callback1" />
<button id="customButton2" label="JG Button 2" imageMso="PictureBrightnessGallery" size="large" onAction="Callback2" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
CUIE에서 생성 된 모든 코드를 삭제 한 다음 대신 위 코드를 넣습니다. CUIE를 저장하고 닫습니다. 이제 Excel 파일을 열면 다음과 같이 표시됩니다.
이제 코드 부분입니다. VBA 편집기를 삽입 모듈을 삽입 한 후 다음 코드를 넣습니다.
Public Sub Callback1(control As IRibbonControl)
MsgBox "You pressed Happy Face"
End Sub
Public Sub Callback2(control As IRibbonControl)
MsgBox "You pressed the Sun"
End Sub
Excel 파일을 매크로 사용 파일로 저장합니다. 이제 Smiley 또는 Sun을 클릭하면 관련 메시지 상자가 표시됩니다.
도움이 되셨기를 바랍니다!
Excel 2013에서 VBA 로이 작업을 수행 할 수 있습니다. 특별한 편집기가 필요하지 않습니다. 개발자 탭에서 액세스하는 Visual Basic 코드 편집기 만 있으면됩니다. 개발자 탭은 기본적으로 표시되지 않은 파일> 옵션> 리본 사용자 지정에서 활성화해야합니다. 개발 도구 탭에서 Visual Basic 단추를 클릭하십시오. 코드 편집기가 시작됩니다. 왼쪽의 프로젝트 탐색기 창을 마우스 오른쪽 버튼으로 클릭합니다. 삽입 메뉴를 클릭하고 모듈을 선택하십시오. 아래의 두 구독 튼 새 모듈에 추가하십시오.
Sub LoadCustRibbon()
Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String
hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"
ribbonXML = "<mso:customUI xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + " <mso:qat/>" & vbNewLine
ribbonXML = ribbonXML + " <mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + " <mso:tab id='reportTab' label='Reports' insertBeforeQ='mso:TabFormat'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:button id='runReport' label='PTO' " & vbNewLine
ribbonXML = ribbonXML + "imageMso='AppointmentColor3' onAction='GenReport'/>" & vbNewLine
ribbonXML = ribbonXML + " </mso:group>" & vbNewLine
ribbonXML = ribbonXML + " </mso:tab>" & vbNewLine
ribbonXML = ribbonXML + " </mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + " </mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "</mso:customUI>"
ribbonXML = Replace(ribbonXML, """", "")
Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile
End Sub
Sub ClearCustRibbon()
Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String
hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"
ribbonXML = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
"<mso:ribbon></mso:ribbon></mso:customUI>"
Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile
End Sub
Wookbook에서 LoadCustRibbon 하위를 호출해도 열리고 ThisWorkbook 코드 파일의 Before_Close 이벤트에서 ClearCustRibbon 하위를 호출합니다.
나는 미친 듯이 고생했지만 실제로는 정답입니다. 그것은 내가 놓친 것입니다.
- 다른 사람들이 말하는 것처럼, 하나는 VBA와 CustomUI 리본을 만들 수 없습니다, 그러나 당신은 할 필요가 없습니다!
- 아이디어는 Excel의 파일> 옵션> 리본 사용자 지정을 사용하여 xml 리본 코드를 만든 다음 리본을 .customUI 파일로 작성할 것입니다 (xml이 포함 된 txt 파일).
- 이제 트릭 이 있습니다. 여기서 참조하는 MS 도구를 사용하여 .customUI 파일에서 코드를 복사하여 .xlsm 파일에 .customUI를 코드 포함 할 수 있습니다 .
- .xlsm 파일에 포함 된 후에는 열 때마다 정의한 리본이 사용자의 리본에 추가 됩니다. 그러나 <ribbon startFromScratch = "false"> 사용하지 않는 묶음 리본이됩니다. 통합 문서를 종료하면 리본이 제거됩니다.
- 여기에서 간단합니다. 리본을 만들고 .customUI 파일에서 리본과 관련된 xml 코드를 복사 한 다음 위에대로 래퍼에 넣습니다 (... <tabs> xml </ tabs ...)
그런데 Ron의 사이트에서 설명하는 페이지는 현재 http://www.rondebruin.nl/win/s2/win002.htm입니다.
다음은 리본에서 버튼을 활성화 /.하는 방법에 대한 그의 예입니다 http://www.rondebruin.nl/win/s2/win013.htm
리본의 다른 xml 예제는 http://msdn.microsoft.com/en-us/library/office/aa338202%28v=office.12%29.aspx를 참조하십시오 .
여기에 대한 답변은 사용자 정의 UI 편집기 사용에 한정됩니다. 그 멋진 프로그램없이 인터페이스를 만드는 데 시간을 보냈기 때문에 다른 사람이 사용자 정의 UI 편집기가 필요한지 여부를 구축하기 위해 여기에 솔루션을 문서화하고 있습니다.
다음 마이크로 소프트 도움말 웹 페이지를 발견했습니다 -https : //msdn.microsoft.com/en-us/library/office/ff861787.aspx . 이 인터페이스를 수동으로 설정하는 방법을 보여 주지만 사용자 지정 추가 기능 코드를 가리킬 때 약간의 문제가 있음.
버튼이 사용자 정의 매크로와 함께 작동 광고주가 SO 응답- 리본에서 엑셀 매크로 호출에 설명 된대로 호출 할 .xlam 서브에 매크로를 설정하십시오 . 기본적으로 리본 xml에서 모듈에 "control As IRibbonControl"매개 변수를 추가해야합니다. 또한 리본 xml에는 추가 기능에 의해로드 된 모듈을 호출하기 위해 onAction = "myaddin! mymodule.mysub"구문이 있어야합니다.
VBA가 추가 기능과 함께 Excel에로드 할 때 사용자 지정 탭이로드 된 Excel 추가 기능 (.xlam 파일)을 만들 수 있습니다. 단추는 추가 기능에서 코드를 실행하고 사용자 지정 탭은 추가 기능을 제거합니다.
Roi-Kyi Bryant 외에도이 코드는 Excel 2010에서 완벽하게 작동합니다. Alt + F11을 나타내는 VBA 편집기가 나타납니다. ThisWorkbook
왼쪽을 두 번 클릭하고 다음 코드를 누르십시오.
Private Sub Workbook_Activate()
Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String
hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"
ribbonXML = "<mso:customUI xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + " <mso:qat/>" & vbNewLine
ribbonXML = ribbonXML + " <mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + " <mso:tab id='reportTab' label='My Actions' insertBeforeQ='mso:TabFormat'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:button id='runReport' label='Trim' " & vbNewLine
ribbonXML = ribbonXML + "imageMso='AppointmentColor3' onAction='TrimSelection'/>" & vbNewLine
ribbonXML = ribbonXML + " </mso:group>" & vbNewLine
ribbonXML = ribbonXML + " </mso:tab>" & vbNewLine
ribbonXML = ribbonXML + " </mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + " </mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "</mso:customUI>"
ribbonXML = Replace(ribbonXML, """", "")
Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile
End Sub
Private Sub Workbook_Deactivate()
Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String
hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"
ribbonXML = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
"<mso:ribbon></mso:ribbon></mso:customUI>"
Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile
End Sub
통합 문서를 저장하고 다시 여는 것을 잊지 않습니다. 도움이 되셨기를 바랍니다!
Roi-Kyi Bryant의 솔루션에 많은 애드 인이 리본을 수정 해야합니다. 또한 내 직장 컴퓨터에 대한 관리자 액세스 권한이 없어 Custom UI Editor
. 따라서 나와 같은 보트에있는 경우 Excel 만 사용하여 리본을 사용자 지정 하는 다른 예가 있습니다. 내 솔루션은 Microsoft 가이드 에서 파생 된 .
- 리본을 사용자에게 Excel 파일 / 파일을 만듭니다. 필자의 경우 여러 추가 기능이 리본과 상호 작용하는 방법을 보여주기 위해 두 개의
.xlam
파일Chart Tools.xlam
및 만들었습니다Priveleged UDFs.xlam
. - 만든 방금 각 파일 에 대해 임의의 폴더 이름으로 폴더를 만듭니다 .
- 한 각 폴더 안에
customUI
및_rels
폴더를 추가 합니다. - 각
customUI
폴더 안에customUI.xml
파일을 만듭니다 . 이customUI.xml
파일은 Excel 파일이 리본과 상호 작용하는 방식을 자세히 설명합니다. Microsoft 가이드의 2 부 에서는customUI.xml
파일 의 요소를 다룹니다 .
내 customUI.xml
파일은 Chart Tools.xlam
다음과 달라집니다.
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" xmlns:x="sao">
<ribbon>
<tabs>
<tab idQ="x:chartToolsTab" label="Chart Tools">
<group id="relativeChartMovementGroup" label="Relative Chart Movement" >
<button id="moveChartWithRelativeLinksButton" label="Copy and Move" imageMso="ResultsPaneStartFindAndReplace" onAction="MoveChartWithRelativeLinksCallBack" visible="true" size="normal"/>
<button id="moveChartToManySheetsWithRelativeLinksButton" label="Copy and Distribute" imageMso="OutlineDemoteToBodyText" onAction="MoveChartToManySheetsWithRelativeLinksCallBack" visible="true" size="normal"/>
</group >
<group id="chartDeletionGroup" label="Chart Deletion">
<button id="deleteAllChartsInWorkbookSharingAnAddressButton" label="Delete Charts" imageMso="CancelRequest" onAction="DeleteAllChartsInWorkbookSharingAnAddressCallBack" visible="true" size="normal"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
내 customUI.xml
파일은 Priveleged UDFs.xlam
다음과 달라집니다.
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" xmlns:x="sao">
<ribbon>
<tabs>
<tab idQ="x:privelgedUDFsTab" label="Privelged UDFs">
<group id="privelgedUDFsGroup" label="Toggle" >
<button id="initialisePrivelegedUDFsButton" label="Activate" imageMso="TagMarkComplete" onAction="InitialisePrivelegedUDFsCallBack" visible="true" size="normal"/>
<button id="deInitialisePrivelegedUDFsButton" label="De-Activate" imageMso="CancelRequest" onAction="DeInitialisePrivelegedUDFsCallBack" visible="true" size="normal"/>
</group >
</tab>
</tabs>
</ribbon>
</customUI>
- 들어 각 파일 당신은 접미사-step 1 만든에서
.zip
자신의 파일 이름. 제 경우에는, 및 로 이름Chart Tools.xlam
을 변경 했습니다 .Chart Tools.xlam.zip
Privelged UDFs.xlam
Priveleged UDFs.xlam.zip
- 각
.zip
파일을 열고_rels
폴더로 이동 합니다. 3 단계에서 만든 폴더에.rels
파일을 복사합니다 . 편집기로 텍스트 각 파일을_rels
편집 합니다.rels
. 로부터 마이크로 소프트 가이드
마지막
<Relationship>
요소와 닫는<Relationships>
요소 사이에 문서 파일과 사용자 정의 파일 관계를 만드는 줄을 추가합니다. 폴더 및 파일 이름을 지정했는지 확인하십시오.
<Relationship Type="http://schemas.microsoft.com/office/2006/
relationships/ui/extensibility" Target="/customUI/customUI.xml"
Id="customUIRelID" />
내 .rels
파일은 Chart Tools.xlam
다음과 달라집니다.
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
<Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
<Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/>
<Relationship Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="/customUI/customUI.xml" Id="chartToolsCustomUIRel" />
</Relationships>
내 .rels
파일은 Priveleged UDFs
다음과 달라집니다.
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
<Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
<Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/>
<Relationship Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="/customUI/customUI.xml" Id="privelegedUDFsCustomUIRel" />
</Relationships>
.rels
각.zip
파일의.rels
파일을 이전 단계에서 수정 한 파일로 바꿉니다 ..customUI
생성 한 폴더를.zip
파일 / 파일 의 홈 디렉토리에 복사하여 넣 습니다 ..zip
생성 한 Excel 파일에서 파일을 제거합니다 ..xlam
파일을 만든 경우 Excel로 돌아가서 Excel 추가 기능에 추가합니다.- 하는 경우 해당 각 추가 기능 현관에서 콜백 을 만듭니다 . 4 단계에서는
onAction
버튼에 키워드 가 있습니다 .onAction
키워드를 포함하는 요소가 트리거 될 때, Excel 응용 프로그램이 직접 후 따옴표로 스케쥴 다 서브 루틴 트리거, 나타냅니다onAction
키워드를. 이를 위해이라고 합니다. 내.xlam
파일CallBacks
에는 콜백 sub-루틴이 포함 된 모듈 이 있습니다.
내 CallBacks
모듈은 Chart Tools.xlam
다음과 달라집니다.
Option Explicit
Public Sub MoveChartWithRelativeLinksCallBack(ByRef control As IRibbonControl)
MoveChartWithRelativeLinks
End Sub
Public Sub MoveChartToManySheetsWithRelativeLinksCallBack(ByRef control As IRibbonControl)
MoveChartToManySheetsWithRelativeLinks
End Sub
Public Sub DeleteAllChartsInWorkbookSharingAnAddressCallBack(ByRef control As IRibbonControl)
DeleteAllChartsInWorkbookSharingAnAddress
End Sub
내 CallBacks
모듈은 Priveleged UDFs.xlam
다음과 달라집니다.
명시 적 옵션
Public Sub InitialisePrivelegedUDFsCallBack(ByRef control As IRibbonControl)
ThisWorkbook.InitialisePrivelegedUDFs
End Sub
Public Sub DeInitialisePrivelegedUDFsCallBack(ByRef control As IRibbonControl)
ThisWorkbook.DeInitialisePrivelegedUDFs
End Sub
요소마다 다른 가용성 서브 루틴 서명이 있습니다. 버튼의 경우 필수 서브 루틴 변수는 ByRef control As IRibbonControl
입니다. 필수 서명을 준수하지 VBA 프로젝트 / 프로젝트를 수행하는 동안 오류가 발생합니다. Microsoft 가이드의 3 부 에서는 모든 경우에 서명을 정의합니다.
완성 된 예제는 다음과 가변합니다.
마무리 팁
- 기능 현관에서 리본 추가 요소를 공유하려면
idQ
및xlmns:
키워드를 사용하십시오 . 내 예에서Chart Tools.xlam
와Priveleged UDFs.xlam
모두와 요소에 액세스 할 수 있습니다.idQ
들에 동일 'x:chartToolsTab
과x:privelgedUDFsTab
. 이 작업을 수행 한 후이 필요x:
하며,customUI.xml
파일 의 첫 번째 줄에 네임 스페이스를 정의했습니다<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" xmlns:x="sao">
. 섹션 유창 UI를 사용자 정의하는 두 가지 방법 에 마이크로 소프트 가이드는 좀 더 세부 사항을 제공합니다. - 추가 기능이 Excel과 함께 제공되는 리본 요소에 액세스하려는
isMSO
키워드를 사용합니다 . 섹션 유창 UI를 사용자 정의하는 두 가지 방법 에 마이크로 소프트 가이드는 좀 더 세부 사항을 제공합니다.
참고 URL : https://stackoverflow.com/questions/8850836/how-to-add-a-custom-ribbon-tab-using-vba
'IT' 카테고리의 다른 글
Django URL 리디렉션 (0) | 2020.08.29 |
---|---|
코드 숨김에서 어떤 속성에 액세스하는 방법은 무엇입니까? (0) | 2020.08.29 |
마크 다운의 MIME 유형은 무엇입니까? (0) | 2020.08.29 |
여러 파일을 선택하는 방법 (0) | 2020.08.29 |
bash 펼쳐보기를 사용하여 모든 git 분기를 반복하는 방법 (0) | 2020.08.29 |