vba 图表 大小 定位_VBA小技巧08： 调整工作表中所有图表尺寸并使其大小相同

学习Excel技术，关注微信公众号：

excelperfect

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

可以使用一小段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

上述代码遍历当前工作表中的所有图表对象，并设置其大小属性(Width和Height)，你可以修改代码中的尺寸数字，使得图表大小合适。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料。