Excel VBA图表到页面的宽度

我正在创建一个VBA报告工具，该工具在透视表中的特定时间段内创建PDF文件

我在打印范围和透视图中添加了一个透视表。除了图形的大小之外，一切都很正常。我需要使用：

列（“A:I”）.EntireColumn.AutoFit调整表列的大小
但是，同样需要在A列中开始的图表超出了打印范围。
如何调整图表大小以适应页面大小，而不是将大小链接到列

提前谢谢
 您可以将其添加到宏中

ActiveSheet.Shapes("Chart 1").Width = Columns("A:I").Width

这将使图表的宽度与列的宽度相同。如果打印范围较小，则根据需要调整“A:I”。或者你可以把它和打印区域一样宽

ActiveSheet.Shapes("Chart 1").Width = Range(ActiveSheet.PageSetup.PrintArea).Width