Shape.AddSection method (Visio) (Método Shape.AddSection [Visio])

Adiciona uma nova seção a uma planilha ShapeSheet.

Sintaxe

expression. AddSection( _Section_ )

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

Parâmetros

Valor de retorno

Número inteiro

Comentários

O método AddSection é frequentemente usado para adicionar uma ou mais seções Geometry a uma forma. Você também pode usar AddSection para adicionar outras seções a uma forma, como Scratch, Controls, Connection Points, Actions, User-Defined Cells e ShapeData. O método AddSection retorna o índice lógico da seção adicionada.

As secções que pode adicionar a uma forma correspondem às opções apresentadas pela caixa de diálogo Inserir Secção quando a forma é apresentada numa janela shapeSheet.

Se você tentar adicionar uma seção que não seja Geometry a uma forma que já possui essa seção, o método AddSection levanta uma exceção. Use a propriedade SectionExists para determinar se uma forma já possui uma seção com um dado índice lógico.

Uma nova seção não possui linhas. Use o método AddRow para adicionar linhas à nova seção.

A propriedade GeometryCount retorna o número de seções Geometry incluídas em uma forma. Use o seguinte código para adicionar uma seção Geometry a uma forma:

Shape.AddSection(visSectionFirstComponent + i) 

em que 0 <= i <visSectionLastComponent - visSectionFirstComponent.

• Quando 0 <= i <Shape.GeometryCount, a nova secção precede a secção atual i'th Geometry.

• Quando Shape.GeometryCount<= i <visSectionLastComponent - visSectionFirstComponent, a nova secção é a última secção.

Exemplo

A seguinte macro mostra como adicionar uma seção Scratch à ShapeSheet de um retângulo. Antes de executar essa macro, verifique se uma página de desenho está ativa na janela do Visio.

 
Public Sub AddSection_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 'Get the active page. 
 Set vsoPage = ActivePage 
 
 '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 
 
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.