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