Excel_VBA：散布図の目盛り間隔を縦横同じにする方法

エクセルの散布図の縦横の目盛り長さを等しくするVBAコード例です。セルの縦横長さを同じにすることではありません。 On Error 行は省いてはいけません。（これにご不満のある向きは諦めてください。）当方はインボリュート歯車の歯形描画に活用しています。