自定义工具栏中的文本框

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

如果您使用Excel 2007和已实施IRibbonExtensibility :: GetCustomUI那么你可以使用下面的XML在外接GUI定义一个编辑框：

<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>