이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
<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>
댓글 '6'
맑은이슬님..
쏘주 한잔이 생각나는 닉네임님.. ㅎㅎ
원래 이런거 잘 안 만들어드리는데..
맑은이슬님의 열정에 감동 받아 만들어드립니다. ^_^;;
일단 샘플파일을 다운받아 실행시켜보세요..
Home탭 앞에.. "abyulSampleTab" 이라는 탭을 추가하는 파일입니다.
다운받기 : abyul.com_20130320_RibbonX_Sample_Kor.xlsm
[미리보기]
CustomUIEditor.exe로 편집을 하면 한글이 지원이 안되기 때문에..
압축프로그램으로 압축을 푼 다음.. 메모장으로 편집하고 다시 압축시키는 방법을 사용했습니다.
일단..
"abyul.com_20130320_RibbonX_Sample_Kor.xlsm"파일의 VBE창의 Module에는 아래 내용이 있지요..
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 |
압축풀어서 편집한 customUI.xml 파일에는 아래와 같은 코드가 있구요..
<?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"?> |
도움이 되셨기를.. ^^
맑은이슬님..
오~~ Office Ribbon Editer는 한글이 지원되는군요!! +_+;;
못보던 사이에 이리 발전을.. ㅎㅎ
저는 제가 엑셀로 만들어둔 에디터가 있어서
그걸로 계속 작업을 하다보니 다른 에디터를 사용할 생각을 안했었네요.. @_@;;
스크롤이 안되는거랑..
처음 열었을때.. .xml파일 내용이 바로 보이지 않는거..
엑셀에서 열고 있을때는 xml파일 내용이 보이지 않게되는데.. 경고창 하나 없는 문제 등등..
몇개를 빼면 괜찮은 에디터인 것 같습니다. ㅎㅎ
좋은 정보 감사합니다.
이제 리본메뉴에 어느정도 적응하셨나봐요.. ㅎㅎ
훨씬 깔끔해졌죠?
화이팅입니다. ^^