データ・プロバイダ・タイプ: Essbase、Planning、Financial Management、Hyperion Enterprise
HypPreserveFormatting()はズーム・インによって作成されたセルにグリッドのフォーマットを適用します。
HypPreserveFormatting (vtSheetName, vtSelectionRange)
ByVal vtSheetName As Variant
ByVal vtSelectionRange As Variant
vtSheetName: 関数を実行するワークシートの名前。vtSheetNameがNullまたはEmptyの場合、アクティブ・ワークシートが使用されます。
vtSelectionRange: フォーマットを保持するセル(複数可)の範囲。複数の範囲がサポートされます。
正常に終了した場合は0を戻し、それ以外の場合は該当するエラー・コードを戻します。
Public Declare Function HypPreserveFormatting Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtSelectionRange As Variant) As Long
Sub Example_HypPreserveFormatting()
Dim oRet As Long
Dim oSheetName As String
Dim oSheetDisp As Worksheet
oSheetName = Empty
Set oSheetDisp = Sheet1
oRet = HypPreserveFormatting ("", oSheetDisp.Range("B2"))
MsgBox (oRet)
End Sub