通过

(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 支持和反馈，获取有关如何接收支持和提供反馈的指南。