HypPreserveFormatting

Data source types: Essbase, Planning, Financial Management, Hyperion Enterprise

Description

HypPreserveFormatting() applies grid formatting to cells created by zooming in.

Syntax

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

ByVal vtSheetName As Variant

ByVal vtSelectionRange As Variant

Parameters

vtSheetName: For future use. Currently the active sheet is used.

vtRange: Range of the cell(s) for which formatting needs to be preserved. (Multiple ranges are supported)

Return Value

Returns SS_OK if successful; otherwise, the appropriate error code.

Example

Public Declare HypPreserveFormatting Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtSelectionRange As Variant) As Long

Sub TestPreserveFormatting()

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

		oSheetName = Empty
		Set oSheetDisp = Worksheets(oSheetName$)
		oRet = HypPreserveFormatting ("", oSheetDisp.Range("B2"))

		MsgBox (oRet)

End Sub