Oracle® Hyperion Smart View for Office, Fusion Edition

HypCopyMetaData()はメタデータのエクスポートを実行します。

HypCopyMetaData (vtSourceSheetName, vtDestinationSheetName)

ByVal vtSourceSheetName As Variant

ByVal vtDestinationSheetName As Variant

vtSourceSheetName: カスタム・プロパティのコピー元のソース・シートの名前。(必須)

vtDestinationSheetName: カスタム・プロパティのコピー先となるシートの名前。(必須)

関数が正常に終了した場合はSS_OKを戻し、それ以外の場合は該当するエラー・コードを戻します。

Public Declare Function HypCopyMetaData Lib "HsAddin.dll" (ByVal vtSourceSheetName As Variant, ByVal vtDestinationSheetName As Variant) As Long

Sub Sample_HypCopyMetaData()
		Dim LRet As Long
		LRet = HypCopyMetaData (“Sheet1”, “Sheet1(2)”)
End Sub	

HypIsCellWritable()はセルが書込み可能かどうかをチェックします。

HypIsCellWritable (vtSheetName [in], vtCellRange [out])

ByVal vtSheetName As Variant

ByVal vtCellRange As Variant

vtSheetName: ワークシートの名前。この引数がNULL値であるか空である場合は、デフォルトのシートが使用されます。

vtCellRange: 書込み可能かどうかをチェックする必要のあるセルの範囲(1セルのみ)。

セルが書込み可能な場合はVARIANT_TRUEを戻し、それ以外の場合はVARIANT_FALSEを戻します。

Public Declare Function HypIsCellWritable Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtCellRange As Variant) As Boolean

Sub TestIsCellWritable()

			Dim oRet As Boolean
			Dim oSheetName As String
			Dim oSheetDisp As Worksheet
	
			oSheetName = "Sheet1"
			Set oSheetDisp = Worksheets(oSheetName$)
			oRet = HypIsCellWritable (Sheet1, oSheetDisp.Range("G2"))

End Sub

HypIsSmartViewContentPresent()はシートにSmart Viewコンテンツが含まれているかどうかをチェックします。

HypIsSmartViewContentPresent(vtSheetName [in], pContentType [out])

ByVal vtSheetName As Variant

ByRef vtTypeOfContentsInSheet

vtSheetName: ワークシートの名前。この引数がNULL値であるか空である場合は、デフォルトのシートが使用されます。

pContentType: 関数によってシート上の適切なタイプのコンテンツが戻されます。値は下記のような列挙型で戻されます。

Enum TYPE_OF_CONTENTS_IN_SHEET
    EMPTY_SHEET
    ADHOC_SHEET
    FORM_SHEET
    INTERACTIVE_REPORT_SHEET
End Enum

ワークシートにOracle Hyperion Smart View for Office, Fusion Editionコンテンツが含まれている場合はVARIANT_TRUEを戻し、それ以外の場合はVARIANT_FALSEを戻します。

Public Declare Function HypIsSmartViewContentPresent Lib "HsAddin.dll" (ByVal vtSheetName As Variant, _
ByRef vtTypeOfContentsInSheet As TYPE_OF_CONTENTS_IN_SHEET) As Boolean

Sub TestIsSVCContentOnSheet()

	Dim oRet As Boolean
	Dim oContentType As TYPE_OF_CONTENTS_IN_SHEET
	Dim oSheetName As String
	Dim oSheetDisp As Worksheet

	oSheetName = "Sheet1"
	Set oSheetDisp = Worksheets(oSheetName$)
	oRet = HypIsSmartViewContentPresent (Sheet1, oContentType)

End Sub

HypGetDimMbrsForDataCell()はデータ・セルに対する次元メンバーのセット全体を取得します。

HypGetDimMbrsForDataCell (vtSheetName [in], vtCellRange [in], vtServerName [out], vtAppName [out], vtCubeName [out], vtFormName [out], vtDimensionNames [out], vtMemberNames [out])

ByVal vtSheetName As Variant

ByVal vtCellRange As Variant

ByRef vtServerName As Variant

ByRef vtAppName As Variant

ByRef vtCubeName As Variant

ByRef vtFormName As Variant

ByRef vtDimensionNames As Variant

ByRef vtMemberNames As Variant

vtSheetName: ワークシートの名前。この引数がNULL値であるか空である場合は、デフォルトのシートが使用されます。

vtCellRange: 書込み可能かどうかをチェックする必要のあるセルの範囲(1セルのみ)。

pvtServerName: シート上の関連する接続が接続しているサーバーの名前

pvtApplicationName: シート上の関連する接続が接続しているアプリケーションの名前

pvtCubeName: シート上の関連する接続が接続しているキューブ/データベース(Planningの場合はプラン・タイプ)の名前

pvtFormName: シート上の関連する接続が接続しているフォームの名前(アド・ホック・グリッドの場合、これは空の文字列として戻されます)

pvtDimensionNames: 次元名の配列

pvtMemberNames: メンバー名の配列

関数が正常に終了した場合はSS_OKを戻し、それ以外の場合は該当するエラー・コードを戻します。

Public Declare Function HypGetDimMbrsForDataCell Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtCellRange As Variant, _ ByRef vtServerName As Variant, ByRef vtAppName As Variant, _ ByRef vtCubeName As Variant, ByRef vtFormName As Variant, _ ByRef vtDimensionNames As Variant, ByRef vtMemberNames As Variant) As Long

Sub TestGetDimMbrsForDataCell()

Dim oRet As Long
Dim oSheetName As String
Dim oSheetDisp As Worksheet
Dim vtDimNames As Variant
Dim vtMbrNames As Variant
Dim vtServerName As Variant
Dim vtAppName As Variant
Dim vtCubeName As Variant
Dim vtFormName As Variant
Dim lNumDims As Long
Dim lNumMbrs As Long
Dim sPrintMsg As String

oSheetName = "Sheet1"
Set oSheetDisp = Worksheets(oSheetName$)
oRet = HypGetDimMbrsForDataCell("", oSheetDisp.Range("B2"), vtServerName, vtAppName, vtCubeName, vtFormName, vtDimNames, vtMbrNames)

If (oRet = SS_OK) Then
    If IsArray(vtDimNames) Then
        lNumDims = UBound(vtDimNames) - LBound(vtDimNames) + 1
    End If

    If IsArray(vtMbrNames) Then
        lNumMbrs = UBound(vtMbrNames) - LBound(vtMbrNames) + 1
    End If

    sPrintMsg = "Number of Dimensions = " & lNumDims & "  Number of Members = " & lNumMbrs & " Cube Name - " & vtCubeName
    MsgBox (sPrintMsg)
End If

End Sub

HypCaptureFormatting()はズーム・インによって作成されたセルにグリッドのフォーマットを適用します。

HypCaptureFormatting (vtSheetName [in], vtRange [in])

ByVal vtSheetName As Variant

ByVal vtSelectionRange As Variant

vtSheetName: ワークシートの名前。この引数がNULL値であるか空である場合は、デフォルトのシートが使用されます。

vtRange: フォーマットを取得する必要のあるセル(複数可)の範囲。(複数の範囲がサポートされます)

関数が正常に終了した場合はSS_OKを戻し、それ以外の場合は該当するエラー・コードを戻します。

Public Declare Function HypCaptureFormatting Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtSelectionRange As Variant) As Long

Sub TestCaptureFormatting()

		Dim oRet As Long
		Dim oSheetName As String
		Dim oSheetDisp As Worksheet

		oSheetName = "Sheet1"
		Set oSheetDisp = Worksheets(oSheetName$)
		oRet = HypCaptureFormatting ("", oSheetDisp.Range("B2"))

		MsgBox (oRet)

End Sub

HypRemoveCapturedFormats()は取得したフォーマットを削除します。

HypRemoveCapturedFormats (vtSheetName [in], vtRemoveAllCapturedFormats [in],vtSelectionRange [in])

ByVal vtSheetName As Variant

ByVal vtbRemoveAllCapturedFormats As Variant

ByVal vtSelectionRange As Variant

vtSheetName: ワークシートの名前。この引数がNULL値であるか空である場合は、デフォルトのシートが使用されます。

vtbRemoveAllCapturedFormats: グリッド上のすべての取得済フォーマットを削除するかどうかを指定するブール値。(このパラメータがTRUEの場合、次に続くパラメータの値は使用されないため、ユーザーはvtSelectionRangeにNULLを渡すことができます。)

vtSelectionRange: フォーマットを取得する必要のあるセル(複数可)の範囲。(複数の範囲がサポートされます)

関数が正常に終了した場合はSS_OKを戻し、それ以外の場合は該当するエラー・コードを戻します。

Public Declare Function HypRemoveCapturedFormats Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtbRemoveAllCapturedFormats As Variant, ByVal vtSelectionRange As Variant) As Long

Sub TestRemoveCaptureFormatting()

		Dim oRet As Long
		Dim oSheetName As String
		Dim oSheetDisp As Worksheet

		oSheetName = "Sheet1"
		Set oSheetDisp = Worksheets(oSheetName$)
		'oRet = HypRemoveCapturedFormats("", False, oSheetDisp.Range("B2"))
		oRet = HypRemoveCapturedFormats("", True, Null)
		MsgBox (oRet)

End Sub

HypListCalcScriptsEx()はすべてのビジネス・ルールをリストします。

HypListCalcScriptsEx (vtSheetName [in], vtbRuleOnForm [in], pvtArCubeNames [out], pvtArBRNames [out], pvtArBRTypes [out], pvtArBRHasPrompts [out], pvtArBRNeedPageInfo [out], pvtArBRHidePrompts [out])

ByVal vtSheetName As Variant

ByVal vtbRuleOnForm As Variant

ByRef vtCubeNames As Variant

ByRef vtBRNames As Variant

ByRef vtBRTypes As Variant

ByRef vtBRHasPrompts As Variant

ByRef vtBRNeedsPageInfo As Variant

ByRef vtBRHidePrompts As Variant

vtSheetName: ワークシートの名前。この引数がNULL値であるか空である場合は、デフォルトのシートが使用されます。

vtbRuleOnForm: ユーザーが、シート上の開いているフォームにのみ関連付けられているビジネス・ルールをリストするよう求めているかどうかを示すブール値。この引数がFALSEの場合、アプリケーションに関連付けられているすべてのビジネス・ルールが戻されます。

pvtArCubeNames: ビジネス・ルールに関連付けられているキューブ名(Planningの場合はプラン・タイプ)の配列

pvtArBRNames: ビジネス・ルール名の配列

pvtArBRTypes: ビジネス・ルール・タイプの配列

pvtArBRHasPrompts: - ビジネス・ルールに実行時のプロンプトがあるかどうかを示すブール値の配列

pvtArBRNeedPageInfo: ビジネス・ルールの実行にシート上のページ情報が必要かどうかを示すブール値の配列

pvtArBRHidePrompts: そのビジネス・ルールのRTPが非表示となっているかどうかを示すブール値の配列

関数が正常に終了した場合はSS_OKを戻し、それ以外の場合は該当するエラー・コードを戻します。

HypExecuteCalcScriptEx()は選択されたビジネス・ルールを起動します。

HypExecuteCalcScriptEx(vtSheetName [in], vtCubeName [in], vtBRName [in], vtBRType [in], vtbBRHasPrompts [in], vtbBRNeedPageInfo [in], vtRTPNames() [in], vtRTPValues() [in], vtbShowRTPDlg [in], vtbRuleOnForm [in], vtbBRRanSuccessfuly [out], vtCubeName [out], vtBRName [out], vtBRType [out], vtbBRHasPrompts [out], vtbBRNeedPageInfo [out], vtbBRHidePrompts [out], vtRTPNamesUsed [out], vtRTPValuesUsed [out])

ByVal vtSheetName As Variant

ByVal vtCubeName As Variant

ByVal vtBRName As Variant

ByVal vtBRType As Variant

ByVal vtbBRHasPrompts As Variant

ByVal vtbBRNeedPageInfo As Variant

ByRef vtRTPNames() As Variant

ByRef vtRTPValues() As Variant

ByVal vtbShowRTPDlg As Variant

ByVal vtbRuleOnForm As Variant

ByRef vtbBRRanSuccessfuly As Variant

ByRef vtCubeName As Variant

ByRef vtBRName As Variant

ByRef vtBRType As Variant

ByRef vtbBRHasPrompts As Variant

ByRef vtbBRNeedPageInfo As Variant

ByRef vtbBRHidePrompts As Variant

ByRef vtRTPNamesUsed As Variant

ByRef vtRTPValuesUsed As Variant

vtSheetName: ワークシートの名前。この引数がNULL値であるか空である場合は、デフォルトのシートが使用されます。

vtCubeName: ビジネス・ルールが関連付けられているキューブ名(Planningの場合はプラン・タイプ)

vtBRName: 実行するBRのビジネス・ルール名

vtBRType: 実行するBRのビジネス・ルール・タイプ

vtbBRHasPromps: ビジネス・ルールにRTPがあるかどうかを示すブール値

vtbNeedPageInfo: ビジネス・ルールの実行にページ情報が必要かどうかを示すブール値(この情報はHypListCalcScriptsExから、または前回のHypExecuteCalcScriptExの実行結果から取得します)

ppRTPNames: ビジネス・ルールに関連付けられているRTP名の配列

ppRTPValues: RTP名に対応するRTP値の配列

vtbShowBRDlg:「ビジネス・ルール」ダイアログ・ボックスを表示してユーザーに実行するビジネス・ルールを選択させるか、BRを自動実行するかを指定するブール値。このフラグがTRUEの場合、そのBRに関連するすべての入力パラメータは無視されます。推奨事項: BRの初回実行時にはこのフラグをTRUEに設定し、出力パラメータを使用して2回目以降から同じBRの実行を自動化してください。その場合、このフラグを2回目以降はFALSEに設定する必要があります

vtbRuleOnForm: アクティブ・シート上で開いているフォームにビジネス・ルールが関連付けられているかどうかを示すブール値

pvtbBRRanSuccessfully: 前回のビジネス・ルールの実行が正常に行われたかどうかを示すブール値を戻します

pvtCubeNameUsed: 最終実行ビジネス・ルールに関連付けられているキューブ名(Planningの場合はプラン・タイプ)

pvtBRNameUsed: 最終実行ビジネス・ルールのビジネス・ルール名

pvtBRTypeUsed: 最終実行ビジネス・ルールのビジネス・ルール・タイプ

pvtbBRHasPrompts: 最終実行ビジネス・ルールがRTPを有していたかどうかを示すブール値

pvtbBRNeedPageInfo: 最終実行ビジネス・ルールがページ情報を必要としたかどうかを示すブール値

pvtbBRHidePrompts: 最終実行ビジネス・ルールが非表示のRTPを有していたかどうかを示すブール値

pvtRTPNamesUsed: 最終実行ビジネス・ルールの実行に使用されたRTP名の配列

pvtRTPValuesUsed: 最終実行ビジネス・ルールの実行に使用されたRTP名に関連付けられているRTP値の配列

関数が正常に終了した場合はSS_OKを戻し、それ以外の場合は該当するエラー・コードを戻します。

Declare Function HypListCalcScriptsEx Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtbRuleOnForm As Variant, ByRef vtCubeNames As Variant, ByRef vtBRNames As Variant, ByRef vtBRTypes As Variant, ByRef vtBRHasPrompts As Variant, ByRef vtBRNeedsPageInfo As Variant, ByRef vtBRHidePrompts As Variant) As Long

Declare Function HypExecuteCalcScriptEx Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtCubeName As Variant, ByVal vtBRName As Variant, ByVal vtBRType As Variant, ByVal vtbBRHasPrompts As Variant , ByVal vtbBRNeedPageInfo As Variant, ByRef vtRTPNames() As Variant, ByRef vtRTPValues() As Variant, ByVal vtbShowRTPDlg As Variant, ByVal vtbRuleOnForm As Variant, ByRef vtbBRRanSuccessfuly As Variant, ByRef vtCubeName As Variant, ByRef vtBRName As Variant, ByRef vtBRType As Variant, ByRef vtbBRHasPrompts As Variant, ByRef vtbBRNeedPageInfo As Variant, ByRef vtbBRHidePrompts As Variant, ByRef vtRTPNamesUsed As Variant, ByRef vtRTPValuesUsed As Variant) As Long

Sub TestListAndExecuteCalcScriptsEx()

Dim oRet As Long
Dim oSheetName As String
Dim oSheet As Worksheet
Dim vtCubeNames As Variant
Dim vtBRNames As Variant
Dim vtBRTypes As Variant
Dim vtBRHasPrompts As Variant
Dim vtBRNeedsPageInfo As Variant
Dim vtBRHidePrompts As Variant
Dim sAllCalcs As String
Dim sCalcName As String
Dim bNeedPageInfo As Variant
Dim vtInRTPNames() As Variant
Dim vtInRTPValues() As Variant
Dim vtOutRTPNames As Variant
Dim vtOutRTPValues As Variant
Dim vtbBRRanSuccessfully As Variant
Dim vtbBRRanSuccessfully2 As Variant
Dim vtOutCubeName As Variant
Dim vtOutBRName As Variant
Dim vtOutBRType As Variant
Dim bBRHasPrompts As Variant
Dim bBRNeedPageInfo As Variant
Dim bBRHidePrompts As Variant
Dim bShowDlg As Variant
Dim bRuleOnForm As Variant

'Set oSheet = ActiveSheet
'oSheetName = oSheet.Name
oSheetName = "Sheet3"

oRet = HypListCalcScriptsEx (oSheetName, False, vtCubeNames, vtBRNames, vtBRTypes, vtBRHasPrompts, vtBRNeedsPageInfo, vtBRHidePrompts)
If (oRet = 0) Then
    If IsArray(vtBRNames) Then
        lNumMbrs = (UBound(vtBRNames) - LBound(vtBRNames) + 1)
    End If

    sPrintMsg = "Number of Calc Scripts = " & lNumMbrs
    MsgBox (sPrintMsg)

    'Start Executing the Calc Script

    bShowDlg = True
    bRuleOnForm = False
    iScript = 1

    oRet = HypExecuteCalcScriptEx (oSheetName, vtCubeNames(iScript), vtBRNames(iScript),  vtBRTypes(iScript), vtBRHasPrompts(iScript), vtBRNeedsPageInfo(iScript), vtInRTPNames, vtInRTPValues, bShowDlg, bRuleOnForm, vtbBRRanSuccessfully, vtOutCubeName, vtOutBRName, vtOutBRType,bBRHasPrompts, bBRNeedPageInfo, bBRHidePrompts, vtOutRTPNames, vtOutRTPValues)
    If (oRet = 0) Then
        MsgBox ("Last BR ran successfully -  " & vtbBRRanSuccessfully)

        If (vtbBRRanSuccessfully = True) Then
            bShowDlg = False
            bRuleOnForm = False

            If IsArray(vtOutRTPNames) And IsArray(vtOutRTPValues) Then
                lNumRTPNames = (UBound(vtOutRTPNames) - LBound(vtOutRTPNames) + 1)
                lNumRTPVals = (UBound(vtOutRTPValues) - LBound(vtOutRTPValues) + 1)
            End If

            If (lNumRTPNames > 0) Then
                ReDim vtInRTPNames(lNumRTPNames - 1) As Variant
                ReDim vtInRTPValues(lNumRTPNames - 1) As Variant

                For iRTPs = 0 To lNumRTPNames - 1
                    sBRName = vtOutRTPNames(iRTPs)
                    sBRVal = vtOutRTPValues(iRTPs)

                    vtInRTPNames(iRTPs) = sBRName
                    vtInRTPValues(iRTPs) = sBRVal
                Next iRTPs
            End If

            oRet = HypExecuteCalcScriptEx (oSheetName, vtOutCubeName, vtOutBRName, vtOutBRType, bBRHasPrompts , bBRNeedPageInfo, vtInRTPNames, vtInRTPValues, bShowDlg, bRuleOnForm, vtbBRRanSuccessfully2, vtOutCubeName,  vtOutBRName, vtOutBRType, bBRHasPrompts, bBRNeedPageInfo, bBRHidePrompts, vtOutRTPNames, vtOutRTPValues)
            MsgBox ("Automated BR ran successfully -  " & vtbBRRanSuccessfully2)
        End If
    Else
        sPrintMsg = "Error - " & oRet
        MsgBox (sPrintMsg)
    End If
Else
    sPrintMsg = "Error - " & oRet
    MsgBox (sPrintMsg)
End If

End Sub

HypExecuteCalcScriptExの前にHypListCalcScriptsExが呼び出されたかどうかに応じて、HypExecuteCalcScriptExは4つのモードで使用できます。

HypExecuteCalcScriptExの前にHypListCalcScriptsExを呼び出していない場合は、HypListCalcScriptsExを初めて呼び出す際に、初回の使用のためにvtbShowBRDlg引数をTRUEに設定し、その後でFALSEに設定する必要があります。

HypExecuteCalcScriptExの前にHypListCalcScriptsExを呼び出す場合、HypListCalcScriptsExが呼び出された時点で、ユーザーはすべてのビジネス・ルールと実行時プロンプト(RTP)に関する情報を取得します(該当する場合)。

ユーザーがRTPのないビジネス・ルールを実行する場合、vtbShowBRDlg引数にFALSEを設定してHypExecuteCalcScriptExを呼び出し、他のすべての情報を入力引数として提供できます。

ユーザーがRTPのあるビジネス・ルールを実行する場合は、ビジネス・ルールとそのRTPを表示してユーザーがそのビジネス・ルールを実行するためのRTP値を選択できるよう、vtbShowBRDlgにTRUEを設定してHypExecuteCalcScriptExを呼び出す必要があります。(注: Planningでは、表示されるRTPがない場合はビジネス・ルールのRTPフラグをTRUEに設定しても差し支えありません。)

HypGetCellRangeForMbrCombination()は選択したメンバーの組合せのセル範囲を取得します。

HypGetCellRangeForMbrCombination (vtSheetName [in], ppvtDimNames [in], ppvtMbrNames [in], pvtCellIntersectionRange [out])

By Val vtSheetName As Variant

ByRef vtDimNames As Variant

ByRef vtMbrNames As Variant

ByRef vtCellIntersectionRange As Variant

vtSheetName: ワークシートの名前。この引数がNULL値であるか空である場合は、デフォルトのシートが使用されます。

ppvtDimNames: 次元名の配列

ppvtMbrNames: 次元に対応するメンバー名の配列(同じ順序)

pvtCellIntersectionRange: グリッド上のセル(複数可)の範囲

関数が正常に終了した場合はSS_OKを戻し、それ以外の場合は該当するエラー・コードを戻します。

Public Declare Function HypGetCellRangeForMbrCombination Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByRef vtDimNames() As Variant, ByRef vtMbrNames() As Variant, ByRef vtCellIntersectionRange As Variant) As Long

Sub GetCellRangeForMbrCombination()

		Dim oRet As Long
		Dim oSheetName As String
		Dim oSheetDisp As Worksheet
		Dim vtDimNames(3) As Variant
		Dim vtMbrNames(3) As Variant
		Dim vtReturnCellRange As Variant
		Dim oRange As Range
	
		'oSheetName = "Sheet1"
		'Set oSheetDisp = Worksheets(oSheetName$)

		vtDimNames(0) = "Measures"
		vtDimNames(1) = "Market"
		vtDimNames(2) = "Year"
		vtDimNames(3) = "Product"
		'vtDimNames(4) = ""

		vtMbrNames(0) = "Sales"
		vtMbrNames(1) = "New York"
		vtMbrNames(2) = "Year"
		vtMbrNames(3) = " Product"
		'vtMbrNames(4) = ""

oRet = HypGetCellRangeForMbrCombination ("", vtDimNames, vtMbrNames, vtReturnCellRange)

If (oRet = 0) Then
    Set oRange = vtReturnCellRange
End If

HypIsDataModified()は、変更されたものの送信されていないデータ・セルがないかどうかをチェックします。

HypIsDataModified (vtSheetName [in])

By Val vtSheetName As Variant

vtSheetName: ワークシートの名前。この引数がNULL値であるか空である場合は、デフォルトのシートが使用されます。

更新されたものの送信されていないデータ・セルがシートに含まれている場合はVARIANT_TRUEを戻し、それ以外の場合はVARIANT_FALSEを戻します。

Public Declare Function HypIsDataModified Lib "HsAddin.dll" (ByVal vtSheetName As Variant) As Boolean

Sub TestIsSheetDirty()

		Dim oRet As Boolean

		oRet = HypIsDataModified("")
		MsgBox (oRet)

End Sub

HypIsFreeForm()はワークシートがフリー・フォームかどうかをチェックします。

HypIsFreeForm (vtSheetName [in])

By Val vtSheetName As Variant

vtSheetName: ワークシートの名前。この引数がNULL値であるか空である場合は、デフォルトのシートが使用されます。

セルがフリー・フォーム状態の場合、つまりメンバー・セルまたはコメント・セルのいずれかが変更されておりシートがリフレッシュされていない場合はVARIANT_TRUEを戻し、それ以外の場合はVARIANT_FALSEを戻します。

Public Declare Function HypIsFreeForm Lib "HsAddin.dll" (ByVal vtSheetName As Variant) As BooleanSub TestIsSheetFreeForm()

Sub HypIsFreeForm() 
		Dim oRet As Boolean

		oRet = HypIsFreeForm("")
		MsgBox (oRet)

End Sub