Evento SensitivityLabel.LabelChanged (Office)

Se genera cuando se cambia una etiqueta en el documento.

Sintaxis

expresión. LabelChanged (OldLabelInfo, NewLabelInfo, HResult, Context)

Expresión Variable que representa un objeto SensitivityLabel .

Comentarios

El evento LabelChanged se genera después de llamar a SetLabel para indicar el éxito de la operación de conjunto LabelInfo . Si el valor HResult contiene un valor distinto de 0, indica un error de operación del conjunto LabelInfo . El contexto si se pasa durante SetLabel se devuelve aquí.

Parameters

Ejemplo:

En el ejemplo siguiente se muestra el uso del método 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

Consulte también

• Miembros del objeto SensitivityLabel
• Referencia del modelo de objeto

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.