Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Déclenché lorsqu’une étiquette est modifiée sur le document.
Syntaxe
expression. LabelChanged (OldLabelInfo, NewLabelInfo, HResult, Context)
Expression Variable qui représente un objet SensitivityLabel .
Remarques
L’événement LabelChanged est déclenché après l’appel de SetLabel pour indiquer la réussite de l’opération de définition LabelInfo . Si HResult contient une valeur autre que 0, cela indique l’échec de l’opération de définition LabelInfo . Le contexte s’il est passé pendant SetLabel est retourné ici.
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| OldLabelInfo | Requis | LabelInfo | Informations d’étiquette précédentes qui existaient sur le document. |
| NewLabelInfo | Requis | LabelInfo | Nouvelles informations d’étiquette appliquées au document. |
| HResult | Obligatoire | Long | Entier représentant le code d’erreur. |
| Context | Obligatoire | Object | Objet de contexte qui a été défini avec l’appel SetLabel . |
Exemple
L’exemple suivant montre l’utilisation de la méthode 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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.