사용자 지정 도구 모음의 텍스트 상자

Question

Excel에서 사용자 지정 도구 모음에 텍스트 상자 컨트롤을 넣을 수 있습니까? 이 도구 모음을 보여주는 추가 기능을 만들었습니다. 내가 원하는 것은 사용자가 텍스트 상자에 입력 할 때 추가 기능에서 사용자가 입력 한 내용에 따라 프로 시저 또는 함수를 호출해야하는 경우입니다.

MS Excel의 VBA에서 수행하고 싶습니다.

감사합니다.

Answer 1

내가 발견 :

Sub test() 
    Set myControl = CommandBars("Test").Controls.Add(Type:=msoControlEdit, Before:=1) 
    With myControl 
     .Caption = "Search" 
     .OnAction = "Tester" 
    End With 
End Sub 


Sub Tester() 
    MsgBox "I am gonna search for: " & CommandBars("Test").Controls(1).Text 
    CommandBars("Test").Controls(1).Text = "" 
End Sub 

Answer 2

당신은 엑셀 2007을 사용하고 IRibbonExtensibility이 :: GetCustomUI는 당신이 당신의 추가 기능 GUI에서 편집 상자를 정의하려면 다음 XML을 사용하여 구현 한 경우 :

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
    <ribbon startFromScratch="false"> 
     <tabs> 
      <tab id="MyTab" label="My Tab"> 
       <group id="MyGroup" label="My Group"> 
        <editBox id="MyEditBox" getText="MyEditBoxCallbackgetText" label="Editbox Label" onChange="MyEditBoxCallbackOnChange"/> 
       </group> 
      </tab> 
     </tabs> 
    </ribbon> 
</customUI>