Shape.DeleteRow method (Visio) (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

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.

Não deve eliminar linhas que definam características fundamentais de uma forma, como a linha Pontos Finais 1D (visRowXForm1D) ou a linha do componente (visRowComponent) ou a linha MoveTo (visRowVertex + 0) numa secção geometria. 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.