Método Shape.DeleteSection (Visio)

Exclui uma seção do ShapeSheet.

Sintaxe

expression. DeleteSection( _Section_ )

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 a ser excluída.

Valor de retorno

Nada

Comentários

Quando você exclui uma seção do ShapeSheet, todas as linhas da seção são automaticamente excluídas. Se a seção especificada não existir, nada será excluído e nenhum erro será gerado.

Se uma seção Geometry for excluída, todas as seções Geometry subsequentes serão deslocadas para cima, pois serão indexadas e não será possível haver lacunas em um intervalo indexado.

Você pode excluir qualquer seção, exceto a representada por visSectionObject (embora possa excluir as linhas dessa seção).

Os valores de índice de seção são declarados na biblioteca de tipos do Visio no VisSectionIndices.

Exemplo

A macro a seguir do Microsoft Visual Basic for Applications (VBA) mostra como excluir uma seção do ShapeSheet.

Public Sub DeleteSection_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 
 
 'Delete the scratch section from the ShapeSheet. 
 vsoShape.DeleteSection visSectionScratch 
 
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.