ＶＢＡ散布図も縦横目盛りを同じくする

質問

散布図で作成されたものだそうです。

縦横の目盛りを揃える方法をご教示ください。
エクセルＶＢＡです。

回答No.1

okormazd · ベストアンサー

たとえば、下記。
プロットエリアの縦横のサイズをあわせる。
縦軸横軸の目盛をあわせる。目盛線もあわせる。

これを図形としてコピペして、トリミングすれば、質問サンプルのような図になる。

Sub sample()

ActiveSheet.ChartObjects("グラフ 1").Activate
with ActiveChart.PlotArea
.Height = 250
.Width = 250
end with
With ActiveChart.Axes(xlValue)
.MinimumScale = -40
.MaximumScale = 40
.MinorUnit = 5
.MajorUnit = 10
.ScaleType = xlLinear
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlCategory)
.MinimumScale = -40
.MaximumScale = 40
.MinorUnit = 5
.MajorUnit = 10
.ScaleType = xlLinear
.HasMajorGridlines = True
.HasMinorGridlines = False
End With

End Sub

補足

No1 さん、ありがとうございました。
質問事項から逸れるのですが
画像の作成手順は
１）歯車形状の点座標データを求める
２）このデータを散布図としてスプライン化する
３）散布図の目盛りの縦横を揃える
という手順のようなのです。
この３）の処理を行うと散布図も例えば長円が真円に
自動的に変る・・・
ちょっとご提示のコード例を参考に試してみます。