HypRemovePreservedFormats

データ・プロバイダ・タイプ: Essbase、Planning、Financial Management、Hyperion Enterprise

説明

HypRemovePreservedFormats()は設定されているフォーマットを削除します。

注：	元のフォーマットが適用される前にリフレッシュする必要があります。

構文

HypRemovePreservedFormats (vtSheetName, vtbRemoveAllCapturedFormats,vtSelectionRange)

ByVal vtSheetName As Variant

ByVal vtbRemoveAllCapturedFormats As Variant

ByVal vtSelectionRange As Variant

パラメータ

vtSheetName: 関数を実行するワークシートの名前。vtSheetNameがNullまたはEmptyの場合、アクティブ・ワークシートが使用されます。

vtbRemoveAllCapturedFormats: 選択した範囲に保持されているすべてのフォーマットを削除する場合は、Trueに設定します。それ以外の場合は、Falseに設定します。Trueに設定すると、次に続くパラメータの値は使用されないため、ユーザーはvtSelectionRangeにNullを渡すことができます。

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

戻り値

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

例

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

Sub Example_HypRemovePreservedFormats()

		Dim Ret As Long
		Dim SheetName As String
		Dim SheetDisp As Worksheet

		SheetName = "Sheet1"

		Set oSheetDisp = Worksheets(SheetName)
		'Ret = HypRemovePreservedFormats(Empty, False, SheetDisp.Range("B2"))
		Ret = HypRemovePreservedFormats(Empty, True, Null)
		MsgBox (oRet)

End Sub