excel统一图表如何设置大小

1.用excel画了很多图表,怎样调整使每个图表的大小完全一致

1. 选中图表-->格式-->设置高度&宽度。缺点，如果图标过多或后续继续增加，操作重复性大。

2. VBA代码，alt+f11打开vba编辑窗口-->插入-->模块-->输入如下代码：

Sub TST()

Dim i%

For i = 1 To ActiveSheet.ChartObjects.Count

ActiveSheet.Shapes（"图表 " & i）.Height = 200

ActiveSheet.Shapes（"图表 " & i）.Width = 200

Next

End Sub