Método Shape.AddRow (Visio)

Agrega una fila a una sección de ShapeSheet en una posición especificada.

Sintaxis

expresión. AddRow( _Section_ , _Row_ , _RowTag_ )

Expresión Variable que representa un objeto Shape .

Parameters

Valor devuelto

Entero

Comentarios

Si no existe la sección de ShapeSheet, se crea con una fila en blanco. Las nuevas celdas de filas nuevas se inicializan con fórmulas predeterminadas si procede. En caso contrario, un programa debe incluir instrucciones para establecer las fórmulas de las nuevas celdas. Si no se puede agregar la nueva fila, se genera un error.

La biblioteca de tipos de Visio declara las constantes de fila con el prefijo visRow en VisRowIndices.

Las constantes de fila de las secciones Geometría, Puntos de conexión y Controles incluyen el prefijo visTag y se declaran en la biblioteca de tipos en VisRowTags. Para ver una lista de estas constantes, vea la propiedad RowType.

Las constantes de fila declaradas por la biblioteca de tipos de Visio sirven como posiciones base en las que comienzan las filas de una sección. Agregue desplazamientos a estas constantes para especificar la primera fila y más allá, por ejemplo, visRowFirst +0, visRowFirst +1, etc. Para agregar filas al final de una sección, pase la constante visRowLast para el argumento Row. El valor devuelto es el índice de fila real.

El argumento RowTag especifica el tipo de fila que se va a agregar. Para generar el tipo de fila predeterminado de una sección, pase visTagDefault (0) como valor del argumento RowTag. Las etiquetas explícitas son útiles cuando se agregan filas a las secciones Geometría, Puntos de conexión y Controles. Vea la propiedad RowType para obtener una descripción de los tipos de fila válidos para estas secciones. Si se pasa un tipo de fila no válido, se genera un error.

Si intenta agregar una fila a una sección de caracteres, tabulaciones o párrafo, se genera un error.

El método AddRow no puede agregar filas con nombre. Para agregar filas con nombre, utilice el método AddNamedRow.

Si agrega filas a una sección con filas a las que se puede asignar un nombre (por ejemplo, la sección de puntos de conexión o controles), se omite el argumento Row. De manera predeterminada, a las filas con nombre se les asigna un nombre en el orden en que se agregan, por ejemplo Fila_1, Fila_2, y así sucesivamente. El orden de los nombres, sin embargo, se ve influenciado por las filas existentes y las filas anteriormente eliminadas.

Ejemplo:

En el siguiente ejemplo, se muestra cómo agregar una sección a una hoja ShapeSheet y cómo agregar una fila a la sección en la posición especificada.

 
Public Sub AddRow_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. 
 vsoShape.AddSection visSectionScratch 
 
 'Add a row to the scratch section. 
 vsoShape.AddRow visSectionScratch, visRowScratch, 0 
 
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.