Excel VBA：如何选择所有图表并将其大小更改为不同但统一的大小？

问题是：我有一个包含大约250个图表的大文件，我一直在用如下代码格式化图表=

         With chrt
            .SetSourceData Source:=rChartData.Offset(0, 1).Resize(, 3)

            .SetElement msoElementChartTitleCenteredOverlay
            .ChartTitle.Caption = cl.Value

            .PlotArea.Height = .PlotArea.Height - .ChartTitle.Height
            .PlotArea.Top = .PlotArea.Top + .ChartTitle.Height

            .SeriesCollection(1).Name = "=""Measured"""
            .SeriesCollection(2).Name = "=""Modeled"""

            .SeriesCollection(1).MarkerStyle = -4142
            .SeriesCollection(2).MarkerStyle = -4142
            
            .Axes(xlCategory).MinimumScale = 14650
            .Axes(xlCategory).MaximumScale = 40000
            .Axes(xlCategory).MajorUnit = 1800
            .Axes(xlCategory).MinorUnitIsAuto = True

            .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
                .Axes(xlCategory).AxisTitle.Text = "Stress Periods"
            .SetElement (msoElementPrimaryValueAxisTitleRotated)
                .Axes(xlValue, xlPrimary).AxisTitle.Text = "Cubic Feet/Sec"
       
       End With

然后，它继续旋转，完成其他249张图表。但我还需要所有的尺寸都大于Excel给我的默认尺寸。将图表从a扩展到B这样更大的尺寸，正确的代码术语是什么

---

我找到了要添加到伞中的属性，声明如下：

          .ChartArea.Width = [desired width, IN POINTS, of the object]

---

你能试试chrt.Parent.Width=SOMEVALUE吗？