CustomXMLParts.PartBeforeDelete event (Office)

Ocorre antes que um objeto CustomXMLPart é excluído da coleção CustomXMLParts.

Sintaxe

expressão. PartBeforeDelete (Parte Antiga)

expressão Uma expressão que devolve um objeto CustomXMLParts .

Parâmetros

Exemplo

O exemplo seguinte confirma que o utilizador quer eliminar a peça XML personalizada e, em seguida, elimina a peça se o utilizador escolher Sim na caixa de diálogo.

Sub CustomXMLParts_PartBeforeDelete(ByVal oldPart As CustomXMLPart) 
Dim result As Boolean 
 
result = MsgBox("Are you sure you want to delete the " & oldPart.ID & " part?", vbYesNo) 
 
If result Then 
   oldPart.Delete 
End If 
 
End Sub

Confira também

• Membros do objeto CustomXMLParts

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.