|
本帖最后由 /yl_康康 于 2014-4-13 09:31 编辑
我的目的是调整图表大小一致的前提下,使绘图区(图中灰色区域)大小也一致,通过下面的代码进行调整,基本能达到目的,但还存在一点小问题
- Sub 调整图表()
- Set myDocument = ActiveSheet
- For Each X In myDocument.Shapes '不清楚Shapes是什么对象,求大神解答
- X.LockAspectRatio = msoFalse
- X.Width = 280
- X.Height = 260
- Next X
- For Each S In myDocument.ChartObjects
- S.Activate
- With ActiveChart.ChartArea '图表区大小设置
- .Width = 220
- .Height = 200
- End With
- With ActiveChart.PlotArea '绘图区位置和大小设置
- .Left = 20
- .Top = 8
- .Width = 160
- .Height = 140
- End With
- Next S
- End Sub
复制代码 结果如下图,我估计代码调整的时候把坐标轴标签大小也算进去了,导致灰色的绘图区大小并不一致,
现求大家帮忙,代码怎么改,可以让轴标签不一样的灰色绘图区大小和位置完全一致。
实例见附件
使绘图区位置和大小完全一致.rar
(7.85 KB, 下载次数: 117)
|
|