expression.LeftOffset
expression Required. An expression that returns a PivotData object.
Remarks
Use the TopOffset to scroll the data area down.
Example
This example scrolls the data area of PivotTable1 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