Chart.PivotLayout (Word)

Not supported for this object.

Dim objPivotLayout As Object
Set objPivotLayout = ActiveDocument.Background.Chart.PivotLayout