HypGetDataPoint

HypGetDataPoint() retrieves member information for a single data cell. For example, to find out the members that consist of the data intersection at cell B6, HypGetDataPoint may return the members January, California, Actual, Root Beer, Profit.

HypGetDataPoint (vtSheetName, vtCell)

By Val vtSheetName As Variant

By Val vtCell As Variant

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

vtCell: Cell (range) that describes the reference cell for which to retrieve the member combination information.

Returns an array of member names.

Declare Function HypGetDataPoint Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal cell As Variant) As Variant

Sub DataPointsSub()
Dim vt As Variant 
Dim cbItems As Variant 
Dim i As Integer 
Dim pMember As String
vt = HypGetDataPoint(Empty, range (“B3”)). 
If IsArray(vt) Then
	cbItems = UBound(vt) - LBound(vt) + 1 
	MsgBox ("Number of elements = " + Str(cbItems)) 

	For i = LBound(vt) To UBound(vt)
		MsgBox ("Member = " + vt(i))
	Next    
	X = HypFreeDataPoint(vt) 
	Else 
MsgBox ("Return Value = " + Str(vt))
End If 
End Sub