1

PPT 2010 の挿入リボン内にアドインがあります。基本的にやりたいことは、コンボ ボックスで選択を行い、マクロを実行して、コンボ ボックスを空白に設定することです。残念ながら、選択をクリアできませんでした。

さまざまな方法でウェブ全体を検索しましたが、何も役に立ちません。誰かが助けてくれることを願っています。

私のXML

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="VirtusInitialize">
<ribbon>
<tabs>
<tab idMso="TabInsert">
<group id="CustomGroup1" label="Sticker">
<box id="box1" boxStyle="horizontal">
    <comboBox id="ddlItem" label="STICKER 1" onChange="Sticker1">
      <item id="BU" label="BACK UP" />
    </comboBox>
</box>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

VBA コード:

Private MyRibbonV As IRibbonUI


Public Sub VirtusInitialize(ByVal ribbon As Office.IRibbonUI)
  Set MyRibbonV = ribbon
End Sub

Sub Sticker1(ByVal control As IRibbonControl, text As String)
 'do stuff
  MyRibbonV.InvalidateControl ("ddlItem")
End Sub
4

2 に答える 2

0

これを試して：

Sub Sticker1(ByVal control As IRibbonControl, text As String)
'do stuff
Call MyRibbonV.InvalidateControl ("ddlItem")
End Sub

元のコードに「Call」というキーワードが追加されていることに注意してください。

于 2014-07-23T09:17:14.577 に答える