Método Style.SetFormulas (Visio)

Establece las fórmulas de una o varias celdas.

Sintaxis

expresión. SetFormulas( _SRCStream()_ , _formulaArray()_ , _Flags_ )

Expresión Variable que representa un objeto Style .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
SID_SRCStream()	Obligatorio	Integer	Secuencia que identifica las celdas que se desean modificar.
formulaArray()	Obligatorio	Variant	Fórmulas que se desean asignar a las celdas identificadas.
Flags	Obligatorio	Integer	Marcas que influyen en el comportamiento de SetFormulas.

Valor devuelto

Entero

Observaciones

El método SetFormulas se comporta de forma similar a la propiedad Formula, pero difiere en que también se puede utilizar para establecer las fórmulas de varias celdas al mismo tiempo, en lugar de hacerlo de una en una.

En los objetos Style, puede utilizar el método SetFormulas para establecer los resultados de cualquier conjunto de celdas. Para indicar al método SetFormulas las celdas que desea establecer, pásele una matriz de enteros en SID_SRCStream(). SID_SRCStream() es una matriz unidimensional de enteros de 2 bytes.

En el caso de los objetos Style , SID_SRCStream() debe ser una matriz unidimensional de 3 n enteros de 2 bytes para n>= 1. El método SetFormulas interpreta la secuencia como:

{sectionIdx, rowIdx, cellIdx }n

donde sectionIdx es el índice de sección de la celda deseada, rowIdx es su índice de fila, y cellIdx es su índice de celda.

El parámetro formulaArray() debe ser una matriz unidimensional de 1 <= variantes m . Cada Variant debe ser una cadena, una referencia a una cadena o estar vacía. Si formulaArray(i) está vacío, la celda i 'th se establecerá en la fórmula en formulaArray(j), donde j es el índice de la entrada anterior más reciente que no está vacía. Si no hay ninguna entrada previa no vacía, la celda correspondiente no se modifica. Si se especifican menos fórmulas que celdas ( m<n ), la celda i 'th, i>m , se establecerá en la misma fórmula que se eligió para establecer la celda m 'th en . De esta manera, para establecer varias celdas en la misma fórmula sólo necesita pasar una copia de ésta.

El argumento Flags debe ser una máscara de bits de los valores siguientes.

Constante	Valor	Descripción
visSetBlastGuards	&H2	Reemplaza los valores actuales de las celdas aunque estén protegidos.
visSetTestCircular	&H4	Comprueba el establecimiento de referencias circulares a celdas.
visSetUniversalSyntax	&H8	Las fórmulas se expresan en la sintaxis universal.

El valor devuelto por el método SetFormulas es el número de entradas de SID_SRCStream() que se han procesado correctamente. Si las entradas de i<n se procesan correctamente, pero se produce un error en la entrada i + 1, el método SetFormulas genera una excepción y devuelve i. De lo contrario, se devuelve n.

Ejemplo

La macro siguiente muestra cómo utilizar el método SetFormulas. Se da por hecho que existe una página de Microsoft Office Visio activa que contiene al menos tres formas. Utiliza el método GetFormulas para obtener el ancho de la forma 1, el alto de la forma 2 y el ángulo de la forma 3. A continuación, utiliza SetFormulas para establecer el ancho de la forma 1 en el alto de la forma 2 y el alto de la forma 2 en el ancho de la forma 1. El ángulo de la forma 3 no se modifica.

Este ejemplo utiliza el método GetFormulas del objeto Page para obtener tres fórmulas de celda y el método SetFormulas del mismo objeto para establecer dichas fórmulas. La matriz de entrada tiene cuatro posiciones para cada celda, como en el caso de los objetos Master. En el caso de los objetos Shape o Style, sólo se necesitarían tres posiciones para cada celda (sección, fila y celda).

 
Public Sub SetFormulas_Example() 
 
 On Error GoTo HandleError 
 
 Dim aintSheetSectionRowColumn(1 To 3 * 4) As Integer 
 aintSheetSectionRowColumn(1) = ActivePage.Shapes(1).ID 
 aintSheetSectionRowColumn(2) = visSectionObject 
 aintSheetSectionRowColumn(3) = visRowXFormOut 
 aintSheetSectionRowColumn(4) = visXFormWidth 
 
 aintSheetSectionRowColumn(5) = ActivePage.Shapes(2).ID 
 aintSheetSectionRowColumn(6) = visSectionObject 
 aintSheetSectionRowColumn(7) = visRowXFormOut 
 aintSheetSectionRowColumn(8) = visXFormHeight 
 
 aintSheetSectionRowColumn(9) = ActivePage.Shapes(3).ID 
 aintSheetSectionRowColumn(10) = visSectionObject 
 aintSheetSectionRowColumn(11) = visRowXFormOut 
 aintSheetSectionRowColumn(12) = visXFormAngle 
 
 'Return the formulas of the cells. 
 Dim avarFormulaArray() As Variant 
 ActivePage.GetFormulas aintSheetSectionRowColumn, avarFormulaArray 
 
 'Use SetFormulas to: 
 ' - Set the width of shape 1 to height of shape 2. 
 ' - Set height of shape 2 to width of shape 1. 
 ' Note: avarFormulaArray() is indexed from 0 to 2. 
 Dim varTemp As variant 
 varTemp = avarFormulaArray(0) 
 avarFormulaArray(0) = avarFormulaArray(1) 
 avarFormulaArray(1) = varTemp 
 
 'Pass the same array back to SetFormulas that we 
 'just passed to GetFormulas, leaving angle alone. By setting 
 'the sheet ID entry in the third slot of the 
 'aintSheetSectionRowColumn array to visInvalShapeID, 
 'we tell SetFormulas to ignore that slot. 
 aintSheetSectionRowColumn (9) = visInvalShapeID 
 
 'Tell Microsoft Visio to set the formulas of the cells. 
 ActivePage.SetFormulas aintSheetSectionRowColumn, avarFormulaArray, 0 
 
 Exit Sub 
 
HandleError: 
 
 MsgBox "Error" 
 
 Exit Sub 
 
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.