2

散布図をプロットする次のコードがあります。x 軸と y 軸が常に自動的にゼロから始まるのではなく、最低値のすぐ下になるように、プロット領域のサイズを変更するエレガントな方法はありますか? 現時点では、すべてのデータ ポイントが 1 つの隅に集まっています。どうもありがとう！

Set cht = ActiveChart
'GRAPH 1
    Set rng1 = ActiveSheet.Range(Range("AC13").Offset(jump * 50, 0), Range("AG23").Offset(jump * 50, 0))

With ActiveSheet.ChartObjects.Add(Left:=rng1.Left, Width:=rng1.Width, Top:=rng1.Top, Height:=rng1.Height)
 '(Left:=100, Width:=375, Top:=75, Height:=225)
    .Chart.ChartType = xlXYScatterLines
    .Chart.HasLegend = False
    .Chart.Axes(xlCategory).TickLabels.Font.Size = 18
    .Chart.Axes(xlValue).TickLabels.Font.Size = 18
    '.Chart.SetSourceData Source:=Range("U13:O40,T13:N40")
    Set srs = .Chart.SeriesCollection.NewSeries
            srs.XValues = Range(Range("U13").Offset(jump * 50, 0), Range("U13").Offset(jump * 50, 0).End(xlDown))
    srs.Values = Range(Range("T13").Offset(jump * 50, 0), Range("T13").Offset(jump * 50, 0).End(xlDown))

End With
4

2 に答える 2

2

y 範囲データが のセルB1:B10にあるActiveSheet場合、次のようなコードを使用して、範囲を最低値の 90% (つまり、すぐ下) から開始できます。

Set cht = ActiveChart
cht.Axes(xlValue).MinimumScale = 0.9 * Application.Min([b1:b10])
于 2013-04-25T11:09:32.583 に答える
0

このチュートリアルを見てみましょう: Excel VBA で適切な軸スケールを計算する

于 2013-04-26T13:08:48.420 に答える