EXCEL表格使用VBA编程设置绘图区尺寸

EXCEL表格只能够修改整个图表的大小，但是无法调整绘图区的大小。而在写论文，做ppt的时候经常会展示多个子图，为了美观，通常要求各个子图的绘图区要大小一致。本文介绍了一种方法来实现绘图区大小的精确调整。

1，首先打开excel表格，右击选择查看代码（若没有的，需要去文件->选项->自定义功能区 勾选开发"开发工具"）。

2，选择worksheet，选择befordoubleclick。

将以下代码复制进去。

Set myDocument = ActiveSheet
For Each S In myDocument.ChartObjects
'MsgBox (S.Name)
    S.Activate
    ActiveChart.ChartArea.Select
    S.Width = 400  //设置整个图片大小
    S.Height = 190
    ActiveChart.PlotArea.Select
    Selection.Width = 375  //设置绘图区大小
    Selection.Top = 9
    Selection.Height = 125
Next S