LayoutSubtotalLocation Property Example

This example displays the state field in the first PivotTable report on the active worksheet in outline format, and it displays the subtotals at the top of the field.

With ActiveSheet.PivotTables("PivotTable1") _
        .PivotFields("state")
    .LayoutForm = xlOutline
    .LayoutSubtotalLocation = xlAtTop
End With