有时候，我们想要将工作表中的所有图表进行缩放操作，且要求这些图表调整后的尺寸大小相同。如果使用手动拖放调整，看似大小相同，实际可能有差异。当然，也可以选取所有的图表后，在工作表选项卡中输入其宽度和高度值，调整它们并使其大小相同。

可以使用一小段VBA代码来帮助我们完成这项任务。代码如下：

Sub AdujstChartsSize()
   Dim lWidth As Long'图表宽度
   Dim lHeight As Long'图表高度
   Dim chtObjet As ChartObject'图表
   Dim i As Long'循环变量
   lWidth = 200'指定图表的尺寸
   lHeight = 120
    '遍历当前工作表中的图表
   For i = 1 To ActiveSheet.ChartObjects.Count
        '将图表尺寸设置为指定大小
       With ActiveSheet.ChartObjects(i)
            .Width = lWidth
            .Height = lHeight
       End With
   Next i
End Sub

 技术交流，软件开发，欢迎加微信xwlink1996 

---

作者其他作品：

VBA实战(Excel)(1)：提升运行速度

Ribbon第一节：控件大全

HTML实战(1)：新建一个HTML

VBA实战(Solidworks二次开发)(1)：如何开始

VB.net实战(VSTO)：Excel插件的安装与卸载