返回一个 PivotField 对象,该对象代表数据透视表中的所有数据字段。只读。
expression.DataPivotField
expression 必需。该表达式返回一个 PivotTable 对象。
本示例将第二个 PivotItem 对象移到第一个位置。假定数据透视表位于活动的工作表上,并且数据透视表包含数据字段。
Sub UseDataPivotField()
    Dim pvtTable As PivotTable
    Set pvtTable = ActiveSheet.PivotTables(1)
    ' Move second PivotItem to the first position in PivotTable.
    pvtTable.DataPivotField.PivotItems(2).Position = 1
End Sub