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

你们能告诉我怎么做吗？