Page.SetResults メソッド (Visio)

1 つまたは複数のセルの結果や数式を設定します。

構文

expression. SetResults( _SID_SRCStream()_ , _UnitsNamesOrCodes()_ , _resultArray()_ , _Flags_ )

式Page オブジェクトを表す変数。

パラメーター

戻り値

整数

注釈

SetResults メソッドは Cell オブジェクトの Result メソッドに類似していますが、このメソッドでは一度に 1 つのセルではなく複数のセルの結果 (値) を設定できます。

Page オブジェクトに対して SetResults メソッドを使用すると、マスター シェイプまたはページの図形を組み合わせて、その中にあるセルの組み合わせに関する結果を設定できます。

setResults メソッドには、_SID_SRCStream() で整数の配列を渡すことによって、設定するセルを指定します。 SID_SRCStream() は 2 バイトの整数で構成される 1 次元配列です。

Page オブジェクトの場合、SID_SRCStream() は、n>= 1 の場合、4 n 個の 2 バイト整数の 1 次元配列である必要があります。 SetResults メソッドはストリームを次のように解釈します。

{sheetID, sectionIdx, rowIdx, cellIdx }n

この sheetID は、セルの結果を変更するページまたはマスター シェイプ上にある Shape オブジェクトの ID プロパティです。

エントリの sheetID が visInvalShapeID (-1) の場合、または sectionIdx の下位バイトが visSectionInval (255) の場合、エントリは SetResults メソッドによって無視されます。 その動機は、同じ SID_SRCStream() 配列を、呼び出し元が呼び出し間のストリームに軽微な変更を加えるだけで済む SetResults、 GetResults、および同様のメソッドに対して複数の呼び出しで使用できることです。

UnitsNamesOrCodes() は、結果の個々のエントリの単位を制御する配列です。 この配列の各エントリには、"inches"、"inch"、"in"、"i" などの文字列が格納されます。 センチメートル、メートル、マイルなど、Visio がサポートしているすべての単位の文字列を使用できます。 VisUnitCodes の Visio タイプ ライブラリで宣言されている整数の定数 (visCentimeters、visInches など) を使用して、必要な単位を指定することもできます。 測定単位に使用される定数の一覧については、「測定 単位について」を参照してください。 Flags に visSetFormulas が設定されている場合、UnitsNamesOrCodes() 配列に指定した値は無効になります。

UnitsNamesOrCodes() が空でない場合は、1 = u バリアントの 1 <次元配列であることが想定されます。 各エントリには、文字列または整数コード、または空 (nothing) を指定できます。 i 'th エントリが空の場合、resultArray() の i 'th エントリは units(j) で指定された単位にあります。ここで、j は空ではない最新の以前のエントリです。 したがって、 resultArray() 内のすべてのエントリを同じ単位で解釈する場合は、1 つのエントリを持つ UnitsNamesOrCodes() 配列のみを渡す必要があります。 空でないエントリがない場合、または units 配列が指定されていない場合は、 visNumber (0x20) が使用されます。 これにより、アプリケーションは既定で内部単位になります (Cell オブジェクトの ResultIU プロパティと同様)。

resultArray() パラメーターは、1 = m バリアントの 1 <次元配列である必要があります。 結果は、 Double、 Integer、 String、または String への参照として渡すことができます。 文字列は、flags で visSetFormulas が設定されている場合にのみ受け入れられます。この場合、文字列は数式として解釈されます。 resultArray(i) が空の場合、i 番目のセルは resultArray(j)の値に設定されます。j は空ではない最新の以前のエントリのインデックスです。 空でない以前のエントリがない場合、対応するセルは変更されません。 セルが指定された結果よりも少ない場合 ( m < n の場合)、 i 番目のセル i < m は 、m 番目のセルと同じ値に設定されます。 したがって、多数のセルを同じ値に設定するには、値のコピーを 1 つだけ渡す必要があります。

パラメーター Flags はビットマスクであり、次の値を指定できます。

SetResults メソッドによって返される値は、正常に処理された SID_SRCStream() 内のエントリの数を示します。 i < n 個のエントリが正しく処理されていても、i + 1 番目のエントリでエラーが発生した場合、SetResults メソッドは例外を発生させ、i を返します。 それ以外の場合は、n が返されます。

例

次の例は 、SetResults メソッドを使用する方法を示しています。 この例では、少なくとも 3 個の図形を含むアクティブ ページがあることが前提となっています。 GetResults メソッドを使用して図形 1 の幅、図形 2 の高さ、および図形 3 の角度を取得します。 次に 、SetResults を使用して、図形 1 の幅を図形 2 の高さに設定し、図形 2 の高さを図形 1 の幅に設定します。図形 3 の角度は変更されません。

この例は、Page オブジェクトの GetResults メソッドを使用して 3 個のセル数式を取得し、同じオブジェクトの SetResults メソッドを使用して数式を設定します。 入力配列は、Master オブジェクトと同様に各セルの 4 個のスロットを持ちます。 Shape オブジェクトまたは Style オブジェクトに対しては、各セル (セクション、行、およびセル) に 3 個のスロットがあれば十分です。

 
Public Sub Set Results_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 
 
 'Get the first two values in inches. The second element in 
 'the units array is left uninitialized (empty) because we 
 'want the second result in the same units as the first 
 'result. The third result is initialized in degrees. Note that 
 'units can be expressed as a string or an integer constant. 
 Dim avarUnits(1 To 3) As Variant 
 avarUnits(1) = "in." 
 avarUnits(3) = visDegrees 
 
 'Return results of cells as an array of floating point numbers. 
 Dim avarResults() As Variant 
 ActivePage.GetResults aintSheetSectionRowColumn, visGetFloats, _ 
 avarUnits, avarResults 
 
 'Use SetResults to: 
 
 ' - Set the width of shape 1 to the height of shape 2. 
 
 ' - Set the height of shape 2 to the width of shape 1. 
 
 'NOTE: avarResults() is indexed from 0 to 2. 
 
 Dim varTemp As variant 
 varTemp = avarResults(0) 
 avarResults(0) = avarResults(1) 
 avarResults(1) = varTemp 
 
 'Pass the same array back to SetResults that we 
 'just passed to GetResults, but leave the angle 
 'alone. By setting the sheet ID entry in the third 
 'slot of the aintSheetSectionRowColumn array to 
 'visInvalShapeID, we tell SetResults to ignore that slot. 
 aintSheetSectionRowColumn(9) = visInvalShapeID 
 
 'Set the results of the cells. 
 ActivePage.SetResults aintSheetSectionRowColumn, avarUnits, avarResults, 0 
 
 Exit Sub 
 
HandleError: 
 
 MsgBox "Error" 
 
 Exit Sub 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。