セルが一定でない特定のセル値に最小スケールを設定する方法。つまり、最小スケールを 45 に設定する必要があり、値 45 がセル内で常に発生するとは限らない場合はD14
?
.Axes(xlCategory, xlPrimary).MinimumScale = 45 ' Constant value
最小スケールを範囲内の最小値に設定するには、MIN
関数を使用します。範囲は、グラフを含むワークブックではなく、開いているcsvファイルにあるため、範囲を完全に修飾する必要があります
これを行うには、範囲オブジェクトを宣言してから、関連する範囲に設定します
Dim Rng As Range
'
'~~> Rest of your code
'
Set wsTemp = wbTemp.Sheets(1)
Set Rng = wsTemp.Range("D3:D30")
'
'~~> Rest of your code
'
.Axes(xlCategory, xlPrimary).MinimumScale = Application.WorksheetFunction.Min(Rng)
HTH