如何调整图表的绘图区大小和位置

/yl_康康 · 发表于 2014-4-12 10:56

本帖最后由 /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)

/yl_康康 · 发表于 2014-4-13 08:12

自己顶，等大家帮助

/yl_康康 · 发表于 2014-4-13 11:50

这是坛子里一位朋友的解决办法，http://club.excelhome.net/forum.php?mod=viewthread&tid=368506
但是我没看懂，用了后也还是没解决问题，继续等高手解答

已经用VBA解决：
ActiveSheet.ChartObjects("图表 1").Activate
a1 = ActiveChart.PlotArea.Left
b1 = ActiveChart.PlotArea.Width
c1 = ActiveChart.PlotArea.InsideLeft
d1 = ActiveChart.PlotArea.InsideWidth
ActiveChart.Axes(xlValue).Select
Selection.TickLabels.Font.Size = 18
c2 = ActiveChart.PlotArea.InsideLeft
d2 = ActiveChart.PlotArea.InsideWidth
ActiveChart.PlotArea.Left = a1 - (c2 - c1)
ActiveChart.PlotArea.Width = b1 - (d2 - d1)

复制代码

/yl_康康 · 发表于 2014-4-13 15:58

没人看吗，自己顶

/yl_康康 · 发表于 2014-4-13 19:47

等待高手解答啊

开心笑羊 · 发表于 2014-4-13 20:08

盼望解决，我也有同样问题。

/yl_康康 · 发表于 2014-4-14 13:25

自己顶上去

zhuang1862 · 发表于 2016-5-19 18:45

看了大家的帖子受到启发了，实现了图标的大小和位置调整。
  With Sheet10.ChartObjects(1)                                                 '進捗図全体
.Left = 0                                                                '左固定
.Width = Sheet10.Columns(pintCols + 5).Left                               '幅調整
  End With
  With Sheet10.ChartObjects(1).Chart.PlotArea

  End With
  With Sheet10.ChartObjects(1).Chart.PlotArea                                  '進捗図線表
.Left = Sheet10.Columns(4).Left + 4.5
.Width = Sheet10.Columns(pintCols + 2).Left - Sheet10.Columns(4).Left
  End With

zhuang1862 · 发表于 2016-5-19 18:48

第二个With不要，多了。

With Sheet10.ChartObjects(1)设置图表背景的左位置和宽度。
With Sheet10.ChartObjects(1).Chart.PlotArea设置其中折线图的左位置和宽度。

zhuang1862 · 发表于 2016-5-19 19:02

列宽也有关系，这里不给出了。

		自动登录	找回密码
密码			免费注册

[求助] 如何调整图表的绘图区大小和位置