通过

(Office) 的 SensitivityLabel.LabelChanged 事件

  • 项目

更改文档上的标签时引发。

语法

表达式。LabelChanged (OldLabelInfo、 NewLabelInfo、 HResult、 Context)

表达 一个代表 SensitivityLabel 对象的变量。

备注

在调用 SetLabel 以指示 LabelInfo 设置操作是否成功后引发 LabelChanged 事件。 如果 HResult 包含的值而不是 0，则表示 LabelInfo 设置操作失败。 此处返回在 SetLabel 期间传递的上下文。

参数

名称 必需/可选 数据类型 说明
OldLabelInfo 必需 LabelInfo 文档上存在的先前标签信息。
NewLabelInfo 必需 LabelInfo 应用于文档的新标签信息。
[HRESULT] 必需 Long 表示错误代码的整数。
Context 必需 Object 使用 SetLabel 调用设置的上下文对象。

示例

以下示例演示 GetLabel 方法的用法。

Public WithEvents sensitivityLabel As SensitivityLabel

Private Sub sensitivityLabel_LabelChanged(ByVal OldLabelInfo As Office.LabelInfo, ByVal NewLabelInfo As Office.LabelInfo, ByVal HResult As Long, ByVal Context As Object)

 MsgBox "Event raised: " + NewLabelInfo.LabelId

End Sub

Sub SetLabelInfo()

 Set sensitivityLabel = ActiveDocument.SensitivityLabel
 Dim myLabelInfo As Office.LabelInfo
 Set myLabelInfo = sensitivityLabel.CreateLabelInfo()

 With myLabelInfo
  .AssignmentMethod = MsoAssignmentMethod.PRIVILEGED
  .Justification = "Some justification needed only if downgrading label."
  .LabelId = "9203368f-916c-4d59-8292-9f1c6a1e8f39"
  .LabelName = "MyLabelName"
  .SiteId = "6c15903a-880e-4e17-818a-6cb4f7935615"
 End With

 sensitivityLabel.SetLabel myLabelInfo, myLabelInfo

End Sub

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。