カスタムツールバーのテキストボックス

Question

Excelのカスタムツールバーにテキストボックスコントロールを配置することは可能ですか？私は、このツールバーを表示するアドインを作成しました。私がしたいのは、ユーザーがテキストボックスに入力するときです。アドインは、ユーザーが入力した内容に応じてプロシージャまたは関数を呼び出す必要があります。

私はVBAでMS Excelでやりたいと思います。

ありがとうございました。

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

あなたは、Excel 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>