Compartir a través de

Método Shape.DeleteSection (Visio)

  • Artículo

Elimina una sección de ShapeSheet.

Sintaxis

expresión. DeleteSection( _Section_ )

Expresión Variable que representa un objeto Shape .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Section Obligatorio Integer Índice de la sección que se desea eliminar.

Valor devuelto

Nothing

Comentarios

Cuando se elimina una sección de ShapeSheet, todas las filas de la misma se eliminan automáticamente. Si la sección especificada no existe, no se elimina nada ni se genera ningún error.

Si se elimina una sección Geometría, todas las secciones Geometría subsiguientes se desplazan hacia arriba porque están indizadas y no pueden existir huecos en un intervalo indizado.

Puede eliminar cualquier sección excepto la representada por visSectionObject (aunque sí puede eliminar filas contenidas en ella).

Los valores de índice de sección se declaran en la biblioteca de tipos de Visio en VisSectionIndices.

Ejemplo:

En la siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) se muestra cómo se elimina una sección de 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

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.