Compartilhar via

Evento SensitivityLabel.LabelChanged (Office)

  • Artigo

Gerado quando um Rótulo é alterado no documento.

Sintaxe

expressão. LabelChanged (OldLabelInfo, NewLabelInfo, HResult, Context)

Expressão Uma variável que representa um objeto SensitivityLabel .

Comentários

O evento LabelChanged é gerado depois que o SetLabel é chamado para indicar o sucesso da operação de conjunto LabelInfo . Se o HResult contiver um valor diferente de 0, ele indicará falha de operação do conjunto LabelInfo . O contexto se passado durante SetLabel é retornado aqui.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
OldLabelInfo Obrigatório LabelInfo Informações de rótulo anteriores que existiam no documento.
NewLabelInfo Obrigatório LabelInfo Novas informações de rótulo que foram aplicadas no documento.
Hresult Obrigatório Long Um inteiro que representa o código de erro.
Context Obrigatório Object O objeto de contexto que foi definido com a chamada SetLabel .

Exemplo

O exemplo a seguir mostra o uso do 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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.