Excel VBA-调整ChartArea的大小以适合范围

编程问答 2022-06-07

问题描述

我正在尝试调整图表大小以适合特定范围的单元格。问题是它没有将图表大小完全设置为范围大小。以下是演示此问题的随机图表。我已突出显示该范围以便于理解：黄色-适合ChartArea，蓝色-适合PlotArea。可以看出，ChartArea超出了右侧和底部的范围，这随后导致PlotArea移出位置（PlotArea的大小看起来不错，只是位置不正确）

enter image description here

下面是我尝试过的代码：

mov ecx,DWORD PTR [ebp-0x4]; leave; lea esp,[ecx-0x4]

任何帮助将不胜感激

解决方法

尝试设置ChartObject而不是ChartArea的属性... 

With chrt.Parent 'refers to chartobject
    .Height = rngCA.Height
    .Width = rngCA.Width
    .Top = rngCA.Top
    .Left = rngCA.Left
End With

或

With ChartObjects("Chart 1")
    .Height = rngCA.Height
    .Width = rngCA.Width
    .Top = rngCA.Top
    .Left = rngCA.Left
End With
excelexcelexcel-chartsvba