Método Shape.AddRow (Visio)

Adiciona uma linha a uma seção ShapeSheet em uma posição especificada.

Sintaxe

expression. AddRow( _Section_ , _Row_ , _RowTag_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Section	Obrigatório	Integer	A seção na qual a fila deve ser adicionada.
Linha	Obrigatório	Integer	A posição na qual a fila deve ser adicionada.
RowTag	Obrigatório	Integer	O tipo de linha a adicionar.

Valor de retorno

Inteiro

Comentários

Se a seção ShapeSheet ainda não existe, ela é criada com uma linha em branco. Novas células em novas linhas são inicializadas com fórmulas padrão, se aplicável. Caso contrário, um programa deve incluir declarações para definir as fórmulas para as novas células. Se a nova linha não pode ser adicionada, um erro é gerado.

A biblioteca de tipos do Visio declara constantes de linha precedidas de visRow em VisRowIndices.

Constantes de linhas nas seções Geometry, Connection Points e Controls são precedidas de visTag e declaradas pela biblioteca de tipos em VisRowTags. Para exibir uma lista dessas constantes, consulte a propriedade RowType.

As constantes de linha declaradas pela biblioteca de tipos do Visio servem como posições de base nas quais uma linha de seção é iniciada. Adicione deslocamentos a essas constantes para especificar a primeira linha e além, por exemplo, visRowFirst +0, visRowFirst +1 e assim por diante. Para adicionar linhas no final de uma seção, passe a constante visRowLast para o argumento Row. O valor retornado é o índice da linha real.

O argumento RowTag especifica o tipo de linha a adicionar. Para gerar um tipo de linha padrão de seção, passe visTagDefault (0) como o argumento RowTag. Marcas explícitas são úteis ao adicionar linhas às seções Geometria, Pontos de Conexão e Controles. Consulte a propriedade RowType para obter descrições de tipos de linha válidos para essas seções. Passar um tipo de linha inválido gera um erro.

Se você tentar adicionar uma linha a uma seção Character, Tabs ou Paragraph, ocorrerá um erro.

O método AddRow não pode adicionar linhas nomeadas. Para adicionar linhas nomeadas, use o método AddNamedRow.

Se você adicionar linhas a uma seção que possui linhas nomeáveis (por exemplo, a seção Connection Points ou Controls), o argumento Row será ignorado. Por padrão, linhas nomeadas são nomeadas na ordem adicionada, por exemplo, Linha_1, Linha_2 e assim por diante. A ordem da nomeação é influenciada, no entanto, por qualquer linha existente ou linha excluída anteriormente.

Exemplo

O seguinte exemplo mostra como adicionar uma seção a um ShapeSheet e como adicionar uma linha à seção em uma posição especificada.

 
Public Sub AddRow_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 'Get the active page. 
 Set vsoPage = ActivePage 
 
 'If there isn't an active page, set the Page object 
 'to the first page of the active document. 
 If vsoPage Is Nothing Then 
 Set vsoPage = ActiveDocument.Pages(1) 
 End If 
 
 'Draw a rectangle on the active page. 
 Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1) 
 
 'Add a scratch section to the ShapeSheet. 
 vsoShape.AddSection visSectionScratch 
 
 'Add a row to the scratch section. 
 vsoShape.AddRow visSectionScratch, visRowScratch, 0 
 
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.