次の方法で共有

SensitivityLabel.LabelChanged イベント (Office)

  • [アーティクル]

ドキュメントでラベルが変更されたときに発生します。

構文

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

式SensitivityLabel オブジェクトを表す変数。

注釈

LabelChanged イベントは、LabelInfo set 操作の成功を示すために SetLabel が呼び出された後に発生します。 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 のサポートおよびフィードバックを参照してください。