0

問題：約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のような大きなサイズに拡張するための正しいコード用語は何ですか？

ここに画像の説明を入力してください

4

1 に答える 1

0

アンブレラ With ステートメントに追加するプロパティを見つけました。

          .ChartArea.Width = [desired width, IN POINTS, of the object]
于 2012-10-09T17:12:06.693 に答える