expression.TopOffset
expression Required. An expression that returns a PivotData object.
Remarks
Use the LeftOffset to scroll the data area to the left.
Example
This example scrolls the data area of PivotTable 1 down 45 pixels and left 45 pixels.
Sub ScrollDataArea()
Dim ptData
Set ptData = PivotTable1.ActiveData
' Scroll 45 pixels down.
ptData.TopOffset = 45
' Scroll the data area to the left.
ptData.LeftOffset = 45
End Sub