Método Shape.AddSection (Visio)
Agrega una sección nueva a una hoja de cálculo ShapeSheet.
Sintaxis
expresión. AddSection( _Section_ )
Expresión Variable que representa un objeto Shape .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Section | Obligatorio | Integer | Tipo de sección que se va a agregar. |
Valor devuelto
Entero
Comentarios
El método AddSection se utiliza frecuentemente para agregar una o varias secciones Geometría a una forma. También se puede utilizar AddSection para agregar otras secciones a una forma, como Borrador, Controles, Puntos de conexión, Acciones, Celdas definidas por el usuario y Formas de datos. El método AddSection devuelve el índice lógico de la sección agregada.
Las secciones que puede agregar a una forma corresponden a las opciones que muestra el cuadro de diálogo Insertar sección cuando la forma se muestra en una ventana ShapeSheet.
Si intenta agregar una sección que no sea de geometría a una forma que ya tiene esa sección, el método AddSection genera una excepción. Utilice la propiedad SectionExists para determinar si una forma ya tiene una sección con un índice lógico dado.
Una nueva sección no tiene filas. Utilice el método AddRow para agregar filas a la nueva sección.
La propiedad GeometryCount devuelve el número de secciones Geometría incluidas en una forma. Utilice el siguiente código para agregar una sección de geometría a una forma:
Shape.AddSection(visSectionFirstComponent + i)
where 0 <= i <visSectionLastComponent - visSectionFirstComponent.
Cuando 0 <= i <Shape.GeometryCount, la nueva sección precede a la sección actual de geometría i'th.
Cuando Shape.GeometryCount<= i <visSectionLastComponent - visSectionFirstComponent, la nueva sección es la última sección.
Ejemplo:
La macro siguiente muestra cómo se agrega una sección de borrador a ShapeSheet de un rectángulo. Antes de ejecutar esta macro, asegúrese de que haya una página de dibujo activa en la ventana de 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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.