Master.SetFormulas 方法 (Visio)
设置一个或多个单元格的公式。
语法
expression. SetFormulas( _SID_SRCStream()_ , _formulaArray()_ , _Flags_ )
表达 一个代表 Master 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| SID_SRCStream () | 必需 | Integer | 用于标识要修改的单元格的流。 |
| formulaArray () | 必需 | Variant | 分配给被标识的单元格的公式。 |
| Flags | 必需 | Integer | 影响 SetFormulas 行为的标志。 |
返回值
整数
备注
SetFormulas 方法与 Formula 属性类似，不同之处在于您可以使用该方法同时设置许多单元格的公式，而不是一次只能设置一个单元格的公式。
对于 Master 对象，可以使用 SetFormulas 方法设置页面或母版任意形状集中任意单元格集的结果。 您可以通过在 SID_SRCStream() 中传递一组整数来告诉 SetFormulas 方法您要设置哪些单元格。 SID_SRCStream() 是一个由 2 字节的整数组成的一维数组。
对于 Master 对象，SID_SRCStream () 应是 n = 1 的 4 n 个 2 字节整数的>一维数组。 SetFormulas 方法将流解释为：
{sheetID, sectionIdx, rowIdx, cellIdx }n
其中 sheetID 为页面或主控形状上要修改其单元格结果的 Shape 对象的 ID 属性。
如果某个项中的 sheetID 为 visInvalShapeID (-1)，或者 sectionIdx 的最后一个字节为 visSectionInval (255)，则 SetResults 方法将忽略该项。 这是因为同一个 SID_SRCStream 数组可用于对 SetFormulas、GetFormulas 以及类似方法的多个调用，调用方只需对调用之间的流进行轻微改动即可。
formulaArray () 参数应为 1 <= m 变体的一维数组。 每个 Variant 应为 String、对 String 的引用或 Empty。 如果 formulaArray (i) 为空，则 i'th 单元格将设置为 formulaArray (j) 中的公式，其中 j 是最近不为空的前一项的索引。 如果前面没有非空项，则相应的单元格不会更改。 如果指定的公式少于单元格 ( m<n ) ，则 i'th 单元格 i>m 将设置为与选择将 m'th 单元格设置为的公式相同。 因此，要将许多单元格设置为相同的公式，只需传递该公式的一个副本即可。
Flags 参数应该是下列值的位掩码。
| 常量 | 值 | 说明 |
|---|---|---|
| visSetBlastGuards | &H2 | 覆盖当前的单元格值，即使它们是受保护的。 |
| visSetTestCircular | &H4 | 检测循环单元格引用的建立。 |
| visSetUniversalSyntax | &H8 | 公式使用通用语法。 |
SetFormulas 方法返回的值是 SID_SRCStream() 中已成功处理的项数。 如果 i<n 个条目处理正确，但在 i + 1 号条目上出错， SetFormulas 方法将引发异常并返回 i。 否则，将返回 n。
示例
以下宏演示如何使用 SetFormulas 方法。 它假定有一个活动 Microsoft Office Visio 页面，其上至少有三个形状。 它使用 GetFormulas 方法获取形状 1 的宽度、形状 2 的高度和形状 3 的角度。 然后，它使用 SetFormulas 将形状 1 的宽度设置为形状 2 的高度，将形状 2 的高度设置为形状 1 的宽度。 形状 3 的角度保持不变。
以下示例使用 Page 对象的 GetFormulas 方法获取三个单元格公式，并使用同一对象的 SetFormulas 方法设置这些公式。 对于每个单元格，输入数组有四个段，Master 对象同样如此。 对于 Shape 或 Style 对象，每个单元格只需要三个段（节、行和单元格）。
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
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。