You should use your own OnCustomWrap event routine. Like it work in MS Access demo. Here you should to setup ID and Name values for dimension according to FieldName(FactTable) value you pass in.
Private Sub PCX_OnCustomWrapData(ByVal AliasName As String, ByVal Value As Variant, ID As Long, Name As String)
If AliasName = "Season" Then
If (Month(Value) = 1) Or (Month(Value) = 2) Or (Month(Value) = 12) Then
ID = 1
Name = "Winter"
ElseIf (Month(Value) = 3) Or (Month(Value) = 4) Or (Month(Value) = 5) Then
ID = 2
Name = "Spring"
ElseIf (Month(Value) = 6) Or (Month(Value) = 7) Or (Month(Value) =
Then
ID = 3
Name = "Summer"
ElseIf (Month(Value) = 9) Or (Month(Value) = 10) Or (Month(Value) = 11) Then
ID = 4
Name = "Autumn"
End If
End If
If AliasName = "Quarter" Then
If (Month(Value) = 1) Or (Month(Value) = 2) Or (Month(Value) = 3) Then
ID = 1
Name = "1st Quarter"
ElseIf (Month(Value) = 4) Or (Month(Value) = 5) Or (Month(Value) = 6) Then
ID = 2
Name = "2nd Quarter"
ElseIf (Month(Value) = 7) Or (Month(Value) =
Or (Month(Value) = 9) Then
ID = 3
Name = "2rd Quarter"
ElseIf (Month(Value) = 10) Or (Month(Value) = 11) Or (Month(Value) = 12) Then
ID = 4
Name = "4th Quarter"
End If
End If
End Sub