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.