Data source types: Essbase, Planning (ad hoc only), Financial Management (ad hoc only), Hyperion Enterprise (ad hoc only)
HypZoomOut() collapses the view of data based on the selected members.
HypZoomOut(vtSheetName, vtSelection)
ByVal vtSheetName As Variant
ByVal vtSelection As Variant
vtSheetName: For future use. Currently the active sheet is used.
vtSelection: Range object which refers to the members that will be zoomed out. If selection is Null or Empty, the active cell is used.
Returns 0 if successful; otherwise, returns the appropriate error code.
Declare Function HypZoomOut Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtSelection As Variant) As Long
Sub UnZoomData()
X=HypZoomOut(Empty, RANGE("B3"))
If X = 0 Then
MsgBox("Zoom out successful.")
Else
MsgBox("Zoom out failed.")
End If
End Sub