Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Wird ausgelöst, wenn eine Bezeichnung für das Dokument geändert wird.
Syntax
Ausdruck. LabelChanged (OldLabelInfo, NewLabelInfo, HResult, Context)
Ausdruck Eine Variable, die ein SensitivityLabel-Objekt darstellt.
Hinweise
Das LabelChanged-Ereignis wird ausgelöst, nachdem SetLabel aufgerufen wurde, um den Erfolg des LabelInfo-Set-Vorgangs anzugeben. Wenn das HResult einen anderen Wert als 0 enthält, weist dies auf einen Fehler beim LabelInfo-Setvorgang hin. Der Kontext , wenn er während SetLabel übergeben wird, wird hier zurückgegeben.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| OldLabelInfo | Erforderlich | LabelInfo | Vorherige Bezeichnungsinformationen, die im Dokument vorhanden waren. |
| NewLabelInfo | Erforderlich | LabelInfo | Neue Bezeichnungsinformationen, die auf das Dokument angewendet wurden. |
| HResult | Erforderlich | Long | Eine ganze Zahl, die den Fehlercode darstellt. |
| Context | Erforderlich | Objekt | Das Kontextobjekt , das mit dem SetLabel-Aufruf festgelegt wurde. |
Beispiel
Das folgende Beispiel zeigt die Verwendung der GetLabel-Methode .
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.