|
假如有如下CustomUI.xml文件内容:
<customUIxmlns=“http://schemas.microsoft.com/office/2006/01/customui“>
<ribbon startFromScratch=“false“>
<tabs>
<tab id=“rxtabCustom“
label=“My Tools“
insertBeforeMso=“TabHome“>
<group id=“rxgrpCustom“
label=“Worksheet“>
<editBox id=“rxtxtRename“
label=“Rename Sheet to:“
imageMso=“SignatureLineInsert“
keytip=“R“
sizeString=“123456789012345“
onChange=“rxtxtRename_Click“/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
然后回调函数如下:
Sub rxtxtRename_Click(control As IRibbonControl, text As String)
MsgBox “你输入的是” & text
'在这里我怎么得到这个editBox编辑框组件的引用,并使该编辑框显示的内容为“你好,Excel”
End Sub
期待高手能够给予答复,不胜感激,谢谢! |
|