Método Style.GetFormulas (Visio)

Retorna as fórmulas de várias células.

Sintaxe

expression. GetFormulas( _SRCStream()_ , _formulaArray()_ )

Expressão Uma variável que representa um objeto Style .

Parâmetros

Valor de retorno

Nada

Comentários

O método GetFormulas é como a propriedade Formula de um objeto Cell, exceto que você pode usá-lo para obter as fórmulas de várias células de uma vez, em vez de uma célula por vez. O método GetFormulas é uma especialização do método GetResults, que pode ser usado para obter resultados ou fórmulas de células. Configurar uma chamada para o método GetFormulas envolve um pouco menos de trabalho que configurar o método GetResults.

Para objetos Style, você pode usar o método GetFormulas para obter fórmulas de qualquer conjunto de células.

SID_SRCStream() é uma matriz de números inteiros de 2 bytes. Para objetos Style , SID_SRCStream() deve ser uma matriz unidimensional de 3 n 2 bytes inteiros para alguns n>= 1. GetFormulas 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.

Se o método GetFormulas obtiver êxito, formulaArray() retornará uma matriz unidimensional com n variantes indexadas de 0 a n - 1. Cada variante retorna uma fórmula como uma sequência de caracteres. formulaArray() é um parâmetro externo alocado pelo método GetFormulas, que passa a propriedade de volta ao chamador. Por fim, o chamador deve executar o procedimento SafeArrayDestroy na matriz retornada. Observe que o procedimento SafeArrayDestroy tem o efeito colateral de limpar as variantes referenciadas pelas entradas da matriz, desfazendo assim a alocação as sequências de caracteres que o método GetFormulas retorna. (Microsoft Visual Basic e Microsoft Visual Basic for Applications cuidar disso para você.) O método GetFormulas falhará se formulaArray() for nulo.

Como desenvolvedor, você poderá usar nomes universais em um programa quando não quiser alterar um nome a cada vez que uma solução for localizada. Use o método GetFormulas para obter mais de uma fórmula ao usar a sintaxe local. Use o método GetFormulasU para obter mais de uma fórmula ao usar a sintaxe universal.

Exemplo

A macro a seguir mostra como usar o método GetFormulas. Ela presume que haja uma página do Microsoft Visio ativa com pelo menos três formas. Ela usa GetFormulas para obter a largura da forma 1, a altura da forma 2 e o ângulo da forma 3.

Este exemplo usa o método GetFormulas do objeto Page para obter três fórmulas de células. 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 seriam necessários para cada célula (seção, linha e célula).

 
Public Sub GetFormulas_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 
 
 Debug.Print "Shape 1 width is "; avarFormulaArray(0) 
 Debug.Print "Shape 2 height is "; avarFormulaArray(1) 
 Debug.Print "Shape 3 angle is "; avarFormulaArray(2) 
 
 
Exit Sub 
 
HandleError: 
 MsgBox "Error" 
Exit Sub 
 
End Sub

Suporte e comentários

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.