Compartilhar via


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

Nome Obrigatório/Opcional Tipo de dados Descrição
Section Obrigatório Integer O tipo de seção a adicionar.

Valor de retorno

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 seções que você pode adicionar a uma forma correspondem às opções mostradas pela caixa de diálogo Inserir Seção quando a forma é exibida em uma 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 seção precede a seção Geometry i'th atual.

  • Quando Shape.GeometryCount<= i <visSectionLastComponent - visSectionFirstComponent, a nova seção é a última seçã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.