Excel的VBA：如何选择我的所有图表和改变自己的大小以不同的，但大小均匀？

问题：我已经得到了约含250图表，我已经格式化的代码看起来像这样的图表大文件=Excel的VBA：如何选择我的所有图表和改变自己的大小以不同的，但大小均匀？

  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）的正确代码术语是什么？

enter image description here

来源

2012-10-09 WATERflowTech

可以尝试chrt.Parent.Width = someValue中？ – Larry

我找到属性添加到伞声明：

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

来源

2012-10-09 17:12:06 WATERflowTech

Excel的VBA：如何选择我的所有图表和改变自己的大小以不同的，但大小均匀？

回答

相关问题