请教，如何在Pivot Table中将原先默认Data Fields纵向显示用VB代码更改为横向显示。

Question

以下是我的现在使用的代码，生成的excel pivot table后，Data Fields是纵向显示的。 请问该如何更改。 非常感谢！
  
    If Len(prmData) > 0 Then
        For intX = 1 To Len(prmData)
            With xlSheet1.PivotTables("PivotTable1").PivotFields(rstemp.Fields(CInt(Mid$(prmData, intX, 1))).Name)
                .Orientation = xlDataField
                .Position = intX
            End With
        Next intX
    End If