Action.BeforeCaptionShow 事件 (2007 system)

更新:2007 年 11 月

在用户单击智能标记图标之后、智能标记菜单显示之前发生。

命名空间:  Microsoft.Office.Tools.Excel
程序集:  Microsoft.Office.Tools.Excel.v9.0(在 Microsoft.Office.Tools.Excel.v9.0.dll 中)

语法

声明
Public Event BeforeCaptionShow As BeforeCaptionShowEventHandler
用法
Dim instance As Action
Dim handler As BeforeCaptionShowEventHandler

AddHandler instance.BeforeCaptionShow, handler
public event BeforeCaptionShowEventHandler BeforeCaptionShow

备注

此事件为您提供了基于上下文更改智能标记标题的机会。

示例

下面的代码示例演示 BeforeCaptionShow 事件的处理程序。该事件处理程序修改操作的菜单标题。此代码示例摘自为 Action 类提供的一个更大示例。

此示例针对的是文档级自定义项。

Private Sub OpenMessageBox_BeforeCaptionShow(ByVal sender As Object, _
    ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
    Handles DisplayAddress.BeforeCaptionShow

    Dim clickedAction As Microsoft.Office.Tools.Excel.Action = _
        TryCast(sender, Microsoft.Office.Tools.Excel.Action)

    If clickedAction IsNot Nothing Then
        clickedAction.Caption = "Display the address of " & e.Text
    End If
End Sub
void DisplayAddress_BeforeCaptionShow(object sender, 
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    Microsoft.Office.Tools.Excel.Action clickedAction =
        sender as Microsoft.Office.Tools.Excel.Action;

    if (clickedAction != null)
    {
        clickedAction.Caption = "Display the address of " +
            e.Text;
    }
}

权限

另请参见

参考

Action 类

Action 成员

Microsoft.Office.Tools.Excel 命名空间