VBA数据透视表 - 数据字段水平到垂直

Question

我一直在关注如何使用VBA创建数据透视表的书。 书中的代码运行良好，它正在做它应该做的事情。但我不明白如何更改数据字段的显示方式。 它将数据字段水平地列在一列中的另一个上面。 我想知道如何让数据域出现在单独的列中（在数据域区域中）

这是本书的代码：

Sub CreatePivot2()
    ' Create pivot table at active cell
    ' Assumes that the source table is in sheet called Source
    ActiveSheet.PivotTableWizard _
    SourceType:=xlDatabase, _
    SourceData:="'Source'!R1C1:R145C7", _
    TableName:="Sales&Trans2"
    ActiveSheet.PivotTables("Sales&Trans2").AddFields _
    RowFields:=Array("Store City", "Store Type"), _
    ColumnFields:="Period", _
    PageFields:="Year"
    With ActiveSheet.PivotTables("Sales&Trans2")
    With .PivotFields("Transactions")
        .Orientation = xlDataField
        .Function = xlSum
        .Position = 1
    End With
    With .PivotFields("Sales")
        .Orientation = xlDataField
        .Function = xlSum
        .Position = 2
        End With
    End With
End Sub

你能告诉我怎么做吗？