Evento Document.DocumentCreated (Visio)

Ocorre após um documento ser criado.

Sintaxe

expressão. DocumentCreated (doc)

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

Parâmetros

Comentários

O evento DocumentCreated é muitas vezes adicionado à coleção EventList de um arquivo de modelo do Microsoft Visio (.vst). A ação do evento é disparada sempre que um documento novo é criado com base naquele modelo.

Se estiver usando o Microsoft Visual Basic ou o Visual Basic for Applications (VBA), a sintaxe deste tópico descreverá uma maneira comum e eficiente de lidar com eventos.

Se você quiser criar seus próprios objetos Event , use o método Add ou AddAdvise .

Para criar um objeto Event que execute um complemento, use o método Add, uma vez que ele aplica-se à coleção EventList.

Para criar um objeto Event que receba notificação, use o método AddAdvise.

Para localizar um código de evento que você deseja criar, consulte Códigos de eventos.

Você pode adicionar eventos DocumentCreated à coleção EventList de um objeto Application, coleção Documents ou objeto Document. As duas primeiras são diretas; se um documento é aberto ou criado no escopo do objeto Application ou sua coleção Documents, o evento DocumentCreated ocorre.

No entanto, adicionar um evento DocumentCreated à coleção EventList de um objeto Document só faz sentido se a ação do evento for visActCodeRunAddon. Nesse caso, o evento é persistência; ele pode ser armazenado com o documento. Se o documento que contém o evento persistente for aberto, sua ação será disparada. Se um novo documento for baseado ou copiado do documento que contém o evento persistente, o evento DocumentCreated será copiado para o novo documento e sua ação será disparada. No entanto, se a ação do evento for visActCodeAdvise, esse evento não será persistente e, portanto, não será armazenado com o documento; portanto, ele nunca é disparado.

Você pode impedir que códigos sejam executados em resposta ao evento DocumentCreated, DocumentOpened ou DocumentAdded e que todos os eventos sejam disparados, definindo o valor da propriedade EventsEnabled de um objeto Application para False.

Exemplo

Este exemplo VBA mostra como contar formas adicionadas a um desenho com base em um mestre chamado Square.

O manipulador de eventos DocumentCreated é executado quando um novo desenho com base no modelo que contém esse código é criado. O manipulador inicializa uma variável inteira, intNumberOfSquares, usada para armazenar a contagem.

O manipulador de eventos ShapeAdded é executado a cada vez que uma forma é adicionada à página de desenho, seja a forma arrastada de um estêncil, desenhada com uma ferramenta de desenho ou colada a partir da Área de transferência. O manipulador verifica a propriedade Mestre da nova forma e, se a forma for baseada no mestre square , incrementa intNumberOfSquares.

 
Dim intNumberOfSquares As Integer 
 
Private Sub Document_DocumentCreated(ByVal vsoDocument As Visio.IVDocument) 
 
'Initialize number of squares added. 
 intNumberOfSquares = 0 
 
End Sub 
 
 
Private Sub Document_ShapeAdded(ByVal vsoShape As Visio.IVShape) 
 
 Dim vsoMaster As Visio.Master 
 
 'Get the Master property of the shape. 
 'the shape was created locally. 
 Set vsoMaster = vsoShape.Master 
 
 'Check whether the shape has a master. If not, 
 If Not (vsoMaster Is Nothing) Then 
 
 'Check whether the master is "Square". 
 If vsoMaster.Name = "Square" Then 
 
 'Increment the count for the number of squares added. 
 intNumberOfSquares = intNumberOfSquares + 1 
 
 End If 
 
 End If 
 
 MsgBox "Number of squares: " & intNumberOfSquares, vbInformation, _ 
 "Document Created Example" 
 
End Sub

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.