2009-11-03 7 views
0

버튼에 리본을 추가하는 Excel 2007 VBA 스크립트가 있지만 불행히도 아이콘은 작습니다. 몇 가지 FaceId를 시도했지만 모두 작은 아이콘 버튼을 추가하는 것처럼 보였습니다. 새로운 2007 크기 아이콘 중 일부를로드 할 수있는 방법이 있습니까? 아이콘의 크기를 증가에 대한 통찰력Excel 2007 리본 버튼에 큰 아이콘 추가

Set NewButton = NewToolbar.Controls.Add(Type:=msoControlButton) 
With NewButton 
    .FaceId = 752 
    .TooltipText = "Convert XLS Files to CSVs" 
    .OnAction = "XLSTOCSV" 

감사 : 여기

내가에서 ThisWorkbook에로드있어 한 코드의 조각이다.

답변

1

NewButton.Height 및 NewButton.Width를 사용하여 단추의 크기를 설정하십시오.

이 시도 : 다른 속성이 here

희망을 발견 할 수있다이

편집하는 데 도움이

Set NewButton= .Controls.Add(Type:=msoControlButton, Id:=YourFaceID) 

잘 모르겠어요,하지만 그것은 당신을 위해

를 자동 크기 조정을 할 수 있습니다

EDIT 2 :

도움이 될 경우, 버튼을 사용하는 경우 리복을 요구합니다. 기본적인 XML을 알고 있다면 코딩은 정말 간단합니다.

  1. 열기 새 Excel 통합 문서
  2. 을이를 얻기에

    Excel Ribbon

    간단한 단계 :이 다음과 같습니다 리본을 만들어

    <?xml version="1.0" encoding="utf-8" ?> 
    <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" > 
        <ribbon> 
         <tabs> 
          <tab id="myTab" label="New Tab"> 
           <group id="group1" label="New Buttons"> 
            <button id="MyButton" label="My Button" imageMso="HappyFace" size="large" onAction="myButton_ClickHandler" /> 
           </group> 
          </tab> 
         </tabs> 
        </ribbon> 
    </customUI> 
    

    : 예는 이것이다 Excel로 저장 (* .xlam)

  3. 다운로드 이 프리웨어 : XML UI editor
  4. 가>를
  5. 그것을 저장
  6. 열기 엑셀 Excel 옵션을
  7. 이동에 위의 코드를 붙여 추가 기능> 이동하고 진드기는
  8. 가 재미 있으 귀하의 추가 기능에 붙인 :)

코드에 대한 몇 가지 메모 : OnAction은 해당 버튼을 클릭 할 때 호출되는 Excel 추가 기능의 하위 이름입니다. 나머지는 꽤 자기 ... 내가 엑셀 ​​2007에서 더 큰 기본 아이콘을로드하거나 채우기 위해 자동 크기 조정했다 가질 수있는 방법이 존재한다는 기대했다 추측,

추가 정보를 위해

을 설명적인 here

+0

저런 모습입니다 사용 가능한 전체 영역 ... 기본적으로 ... – JustADude

+0

사용 가능한 전체 영역을 채우려면 높이와 너비를 컨테이너의 높이와 너비와 동일하게 설정하십시오. 기본적으로 '기본'을 정의하는 것과 같이 기본 크기 나 기본 단추를 만들어서는 안됩니다. 잠깐만, 'copy template'기능이 있다고 생각해. – TerrorAustralis

+0

가능한 해결책을 편집해라. – TerrorAustralis