Método Shape.SetFormulas (Visio)
Define as fórmulas de uma ou mais células.
expression. SetFormulas
( _SRCStream()_
, _formulaArray()_
, _Flags_
)
expressão Uma variável que representa um objeto Shape.
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
SID_SRCStream() | Obrigatório | Integer | Fluxo que identifica as células a serem modificadas. |
formulaArray() | Obrigatório | Variant | Fórmulas a serem atribuídas às células identificadas. |
Flags | Obrigatório | Integer | Sinalizadores que influenciam o comportamento de SetFormulas. |
Número inteiro
O método SetFormulas se comporta como a propriedade Formula, exceto que você pode usá-lo para definir as fórmulas de várias células de uma vez, em vez de uma célula por vez.
Para objetos Shape, você pode usar o método SetFormulas para definir resultados de qualquer conjunto de células. Informe o método SetFormulas sobre quais células deseja definir passando uma matriz de números inteiros em SID_SRCStream(). SID_SRCStream() é uma matriz unidimensional de números inteiros de 2 bytes.
Para objetos Shape , SID_SRCStream() deve ser uma matriz unidimensional de 3 n 2 bytes inteiros para n>= 1. O método SetFormulas interpreta o fluxo como:
{sectionIdx, rowIdx, cellIdx }n
onde sectionIdx é o índice da seção da célula desejada, rowIdx é seu índice de linha e cellIdx é seu índice de célula.
O parâmetro formulaArray() deve ser uma matriz unidimensional de 1 <= m variants. Cada Variant deve ser uma String, uma referência a uma String ou Empty. Se formulaArray(i) estiver vazia, a célula i 'th será definida como a fórmula em formulaArray(j), em que j é o índice da entrada anterior mais recente que não está vazia. Se não houver uma entrada anterior que não esteja vazia, a célula correspondente não será alterada. Se menos fórmulas do que as células forem especificadas ( m<n ), a célula i 'th, i>m , será definida como a mesma fórmula que foi escolhida para definir a célula m 'th como. Assim, para definir várias células como a mesma fórmula, você precisa apenas passar uma cópia da fórmula.
O argumento Flags deve ser uma bitmask dos valores a seguir.
Constant | Valor | Descrição |
---|---|---|
visSetBlastGuards | &H2 | Substitui os valores das células presentes mesmo que estejam protegidas. |
visSetTestCircular | &H4 | Testa o estabelecimento de referências de células circulares. |
visSetUniversalSyntax | &H8 | As fórmulas estão em sintaxe universal. |
O valor retornado pelo método SetFormulas é o número de entradas em SID_SRCStream() que foram processadas com êxito. Se asentradas i <n processarem corretamente, mas ocorrer um erro na i + 1ª entrada, o método SetFormulas gerará uma exceção e retornará i. Caso contrário, n será retornado.
A macro a seguir mostra como usar o método SetFormulas. Ela presume que haja uma página do Microsoft Office Visio ativa com pelo menos três formas. Ela usa o método GetFormulas para obter a largura da forma 1, a altura da forma 2 e o ângulo da forma 3. Em seguida, usa SetFormulas para definir a largura da forma 1 para a altura da forma 2 e a altura da forma 2 para a largura da forma 1. O ângulo da forma 3 fica inalterado.
Este exemplo usa o método GetFormulas do objeto Page para obter três fórmulas de células e o método SetFormulas do mesmo objeto para definir as fórmulas. A matriz de entrada tem quatro slots para cada célula, como também teria para objetos Master. Para objetos Shape ou Style, apenas três slots são necessários para cada célula (seção, linha e célula).
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
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.