Data source types: Essbase, Planning (ad hoc only), Financial Management (ad hoc only), Hyperion Enterprise (ad hoc only)
HypZoomIn(vtSheetName, vtSelection, vtLevel, vtAcross)
ByVal vtSelection As Variant
ByVal vtLevel As Variant
ByVal vtAcross As Variant (not used)
vtSheetName: For future use. Currently the active sheet is used.
vtSelection: Range object which refers to the members that will be zoomed. If selection is Null or Empty, the active cell is used
vtLevel: Number indicating the granularity of the zoom. The following list describes the valid level numbers and their actions:
If Null, Empty or an incorrect value is passed, the currently selected option is used.
vtAcross: Not used.
Declare Function HypZoomIn Lib "HsAddin" (ByVal sheetName As Variant, ByVal vtSelection As Variant, ByVal vtLevel As Variant, ByVal vtAcross As Variant) As Long Sub ZoomData() X=HypZoomIn(Empty, RANGE("B3"), 1, FALSE) If X = 0 Then MsgBox("Zoom successful.") Else MsgBox("Zoom failed.") End If End Sub