Método Shape.DeleteRow (Visio)

Exclui uma linha de uma seção em uma planilha ShapeSheet.

Sintaxe

expression. DeleteRow( _Section_ , _Row_ )

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	O índice da seção que contém a linha.
Linha	Obrigatório	Integer	O índice da linha a ser excluída.

Valor de retorno

Nada

Comentários

Para remover uma linha de cada vez de uma seção do ShapeSheet, use o método DeleteRow. Se a seção tiver linhas indexadas, as linhas que estiverem após a linha excluída serão deslocadas. Se a linha não existir, nada será excluído.

Você não deve excluir linhas que definem características fundamentais de uma forma, como a linha 1D Endpoints (visRowXForm1D) ou a linha de componente (visRowComponent) ou a linha MoveTo (visRowVertex + 0) em uma seção Geometry. Você não pode excluir as linhas das seções representadas por visSectionCharacter, visSectionParagraph e visSectionTab.

Exemplo

A macro a seguir do Microsoft Visual Basic for Applications (VBA) mostra como usar o método DeleteRow para excluir uma linha do ShapeSheet.

Public Sub DeleteRow_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 of the rectangle. 
 vsoShape.AddSection visSectionScratch 
 
 'Add a row to the scratch section. 
 vsoShape.AddRow visSectionScratch, visRowScratch, 0 
 
 'Delete the row from the scratch section. 
 vsoShape.DeleteRow visSectionScratch, visRowScratch 
 
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.