「更新時に列幅を自動調整する」のチェックを外すには

質問

VBAでピボットテーブルの「更新時に列幅を自動調整する」のチェックを外すには？

シートに複数のピボットテーブルがあります。

そのすべてのピボットテーブルの「更新時に列幅を自動調整する」のチェックを外す書類をしたいのですが、コードがわかりません。

Sub Sample()
Dim i As Integer
Dim strPvt As String

For i = 1 To ActiveSheet.PivotTables.Count
strPvt = ActiveSheet.PivotTables.Item(i).Name
'ここで、 「更新時に列幅を自動調整する」のチェックを外す処理をしたい
Next
End Sub

まで作りました。
よろしくお願いします。

回答No.1

WindFaller · ベストアンサー

こんばんは。
うーん、しばらくそのままになっているのはなぜでしょうね。
書き方自体は、いろいろあるでしょうけれども、任意のシートの
ピボットテーブルを処理するのなら、これでよいと思います。

'//
Sub Macro1()
Dim pv As PivotTable
With ActiveSheet
For Each pv In .PivotTables
　　pv.HasAutoFormat = False
Next pv
End With
End Sub
'//