abyul.com > Excel > Question & Answer - 사용자 지정 메뉴 크기조정

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

글 수 113

사용자 지정 메뉴 크기조정

VBA 조회 수 3260 추천 수 0 2013.01.29 18:42:19

맑은이슬 *.247.145.54 http://abyul.com/zbxe/115011

사용자지정 메뉴를 사용 합니다

아래와 같이 사용자 지정 메뉴를 만들어 사용하고자 하는데 메뉴가 옆으로만 추가되고(위에그림)
아래로는 추가 되지 않네요(2단,3단 형식)
옆으로 5-10개 이후에는 아래에 추가 되도록 할수는 없나요(아래그림)

코드는
Sub dhMakeMenu()
'메뉴 만들기
Dim c As CommandBar
Dim strCur As String
    strCur = "'" & ThisWorkbook.Name & "'!"
    dhDeleteMenu
    Set c = Application.CommandBars.Add(Name:=cMenu, Position:=msoBarTop, MenuBar:=False, temporary:=True)
        dhMakeSubMenu c, msoControlButton, False, strCur & "전체시트삭제11", "SO Sheet 내용 삭제", "SO Sheet 내용 삭제", 270


        dhMakeSubMenu c, msoControlButton, False, strCur & "data입력국내1", "첫째Data 입력", "첫째Data 입력", 66

        dhMakeSubMenu c, msoControlButton, False, strCur & "data입력해외3", "두번째Data 입력", "두번째Data 입력", 350

        dhMakeSubMenu c, msoControlButton, False, strCur & "실행1", "일일BackOrder 확인", "일일BackOrder 확인", 284

        dhMakeSubMenu c, msoControlButton, True, strCur & "실행2", "전체Order 확인", "전체Order 확인", 433

        dhMakeSubMenu c, msoControlButton, False, strCur & "대영주문", "대영화학 주문추가", "대영화학 주문추가", 83

        dhMakeSubMenu c, msoControlButton, False, strCur & "유창주문", "유창 주문추가", "유창 주문추가", 104

        dhMakeSubMenu c, msoControlButton, False, strCur & "미래주문", "미래테크윈 주문추가", "미래테크윈 주문추가", 92

        dhMakeSubMenu c, msoControlButton, False, strCur & "신규확인", "신규Item 확인", "신규Item 확인", 93

        dhMakeSubMenu c, msoControlButton, False, strCur & "신규등록00", "신규ITEM Master 등록", "신규ITEM Master 등록", 136

        dhMakeSubMenu c, msoControlButton, False, strCur & "SO_NO중복1", "대치PO 확인(all)", "대치PO 확인(all)", 351

        dhMakeSubMenu c, msoControlButton, False, strCur & "필터", "MyData 확인", "MyData 확인", 361

        dhMakeSubMenu c, msoControlButton, True, strCur & "JSH필터", "짝지Data 확인(BackOrder)", "짝지Data 확인(BackOrder)", 165

        dhMakeSubMenu c, msoControlButton, False, strCur & "SH필터1", "짝지Data 확인(ALL)", "짝지Data 확인(ALL)", 51

        dhMakeSubMenu c, msoControlButton, False, strCur & "ETD대상", "ETD대상 보기", "ETD대상 보기", 59

        dhMakeSubMenu c, msoControlButton, False, strCur & "모두표시", "전체PO보기", "전체PO보기", 247

        'dhMakeSubMenu c, msoControlButton, False, strCur & "esGoHome", "엑사모 방문", "엑사모 방문", 1016
        'dhMakeSubMenu c, msoControlButton, False, strCur & "esHelp", "도움말", "도움말", 984
        'dhMakeSubMenu c, msoControlButton, False, strCur & "esQuit", "프로그램 종료", "종료", 1019
        'With c.Controls
         '   .Add ID:=369 '서식 붙여넣기
          ' .Item(.Count).BeginGroup = True
           ' .Add ID:=370 '값붙여넣기
            '.Add ID:=441 '화면에 보이는셀
            '.Add ID:=442 '현재 영역 선택


               '2004.11.12 버그 수정
         ' If Val(Application.Version) > 9 Then
          '      .Add ID:=5837 '테두리없음
           '     dhAddFaceID .Item(.Count), 20
            '    .Add ID:=5836 '수식
             '   dhAddFaceID .Item(.Count), 387
              ' .Add ID:=1956 '연결하여 붙여넣기
               ' dhAddFaceID .Item(.Count), 226
            'Else
            'End If
'            .Add ID:=5837 '테두리없음
'            dhAddFaceID .Item(.Count), 20
'            .Add ID:=5836 '수식
'            dhAddFaceID .Item(.Count), 387
'            .Add ID:=1956 '연결하여 붙여넣기
            'dhAddFaceID .Item(.Count), 226
            'Add ID:=755 '선택하여붙여넣기
           'dhAddFaceID .Item(.Count), 45
        'End With
    c.Visible = True
    Set c = Nothing

    '선택하여 붙여넣기 단축 메뉴
    'ctrl + shift + v
    Application.OnKey "^+v", "dhRunPasteSpecial"

End Sub

이 게시물을...

esMagicConvert(원).xls [File Size:314.0KB/Download:95]

엮인글 :: http://abyul.com/zbxe/115011/f73/trackback

2013.01.29 23:48:25
*.130.73.75

안녕하세요? 맑은이슬님..

도구모음을 만들어서 사용했던게 오만년 전이라 잠시 생소했습니다. ^_^;;

요즘은 전부 리본메뉴로 만들어서 사용해서 도구 모음 만들었던게 기억이 가물가물했습니다. 하하..

도구모음을 2개 만들어서 아이템을 나눠 넣으면 해결 될 것 같습니다.

VBA를 좀 더 공부해보고 싶으시면 리본메뉴를 만드는 것을 한번 공부해보시는 것도 재미있을 것 같네요..

참조 게시물 : http://www.abyul.com/zbxe/83200

첨부파일을 참고하세요..

다운받기 : abui.com_splitCommandBars_20130129.xls

'===============================================================================

1. eMenu2를 하나 더 만드시구요..

2. Commandbar를 하나 더 만드셔서 아이템을 나눠 넣습니다.

3. Sub dhDeleteMenu() 프로시저에 새로 만든 도구모음을 삭제하는 코드를 추가해줍니다.

'===============================================================================

Option Explicit

Const cMenu As String = "JaeHyeon Kim" '도구 모음의 이름
Const cMenu2 As String = "JaeHyeon Kim2" '도구 모음의 이름

Sub dhMakeMenu()
'메뉴 만들기
Dim c As CommandBar
Dim strCur As String
    strCur = "'" & ThisWorkbook.Name & "'!"
    dhDeleteMenu

    Set c = Application.CommandBars.Add(Name:=cMenu, Position:=msoBarTop, MenuBar:=False, temporary:=False)
        dhMakeSubMenu c, msoControlButton, False, strCur & "전체시트삭제11", "SO Sheet 내용 삭제", "SO Sheet 내용 삭제", 270
        dhMakeSubMenu c, msoControlButton, False, strCur & "data입력국내1", "첫째Data 입력", "첫째Data 입력", 66
        dhMakeSubMenu c, msoControlButton, False, strCur & "data입력해외3", "두번째Data 입력", "두번째Data 입력", 350
        dhMakeSubMenu c, msoControlButton, False, strCur & "실행1", "일일BackOrder 확인", "일일BackOrder 확인", 284
        dhMakeSubMenu c, msoControlButton, True, strCur & "실행2", "전체Order 확인", "전체Order 확인", 433
        dhMakeSubMenu c, msoControlButton, False, strCur & "대영주문", "대영화학 주문추가", "대영화학 주문추가", 83
        dhMakeSubMenu c, msoControlButton, False, strCur & "유창주문", "유창 주문추가", "유창 주문추가", 104
        dhMakeSubMenu c, msoControlButton, False, strCur & "미래주문", "미래테크윈 주문추가", "미래테크윈 주문추가", 92
    c.Visible = True
    Set c = Nothing

    Set c = Application.CommandBars.Add(Name:=cMenu2, Position:=msoBarTop, MenuBar:=False, temporary:=False)
        dhMakeSubMenu c, msoControlButton, False, strCur & "신규확인", "신규Item 확인", "신규Item 확인", 93
        dhMakeSubMenu c, msoControlButton, False, strCur & "신규등록00", "신규ITEM Master 등록", "신규ITEM Master 등록", 136
        dhMakeSubMenu c, msoControlButton, False, strCur & "SO_NO중복1", "대치PO 확인(all)", "대치PO 확인(all)", 351
        dhMakeSubMenu c, msoControlButton, False, strCur & "필터", "MyData 확인", "MyData 확인", 361
        dhMakeSubMenu c, msoControlButton, True, strCur & "JSH필터", "짝지Data 확인(BackOrder)", "짝지Data 확인(BackOrder)", 165
        dhMakeSubMenu c, msoControlButton, False, strCur & "JSH필터1", "짝지Data 확인(ALL)", "짝지Data 확인(ALL)", 51
        dhMakeSubMenu c, msoControlButton, False, strCur & "ETD대상", "ETD대상 보기", "ETD대상 보기", 59
        dhMakeSubMenu c, msoControlButton, False, strCur & "모두표시", "전체PO보기", "전체PO보기", 247
    c.Visible = True
    Set c = Nothing

    '선택하여 붙여넣기 단축 메뉴
    'ctrl + shift + v
    Application.OnKey "^+v", "dhRunPasteSpecial"

End Sub

'===============================================================================

Sub dhDeleteMenu()
On Error Resume Next
    Application.CommandBars(cMenu).Delete '메뉴 삭제하기
    Application.CommandBars(cMenu2).Delete '메뉴 삭제하기
    Application.OnKey "^+v", "" '바로가기 메뉴 취소
On Error GoTo 0
End Sub

'===============================================================================

2013.01.30 07:20:03
*.247.145.54

아별님 감사 합니다,원하는 결과를 얻게 되엇습니다

정말 존경 합니다,정말 감사 드립니다,

» 편집 도구모음 건너뛰기

하이퍼링크

새 창으로
특수문자 삽입
선택한 기호
찾기/바꾸기
- 찾기
- 바꾸기
찾을 단어

찾을 단어
바꿀 단어

칸 수 지정

행
열

표 속성 지정

테두리 굵기
테두리 색
표 배경색

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)

비밀글 기능

List of Articles

번호	제목	글쓴이	날짜	조회 수
공지	공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요..	아별	2015-04-23	42846
13	VBA ^^ 또다른 질문입니다. _ 한 시트에서 다른 시트로 데이터를 순차적으로 붙여넣기 [1]	광택입니다	2011-11-15	3166
12	VBA SUMPRODUCT 질문 !! [1]	광택입니다	2011-11-01	3216
11	VBA 두번째 질문 [1]	광택입니다	2011-10-21	2959
10	VBA 도와 주세요. [1]	광택입니다	2011-10-21	3375
9	VBA 매크로.. [1]	광택입니다	2011-10-18	3008
8	VBA 한셀안의 서식을 다르게 지정할 수 있는 방법 없을까요? [5]	부루끄	2011-09-28	6075
7	VBA 현재 선택 된 셀을 기준으로 같은방식의 연산결과 값을 산출하는 법 [1]	부루끄	2011-07-26	4081
6	VBA VBA로 정렬하는 법 문의 [6]	부루끄	2011-07-21	6090
5	VBA 수식이 입력된 셀은 자동으로 색상이 들어가게 하는 방법 [5]	부루끄	2011-07-15	4570
4	VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select [1]	눈물바다	2009-08-27	10095
3	VBA .Find 재고 입고월 분석(vba) [3]	럽웨어	2009-07-24	7797
2	VBA .Find ListBox1 에 추가가 되지를 않습니다. [3]	사오정원조	2009-07-03	6815
1	VBA .Find 매크로 질문입니다.~ [2]	카멜	2009-07-02	6820