エクセルVBAのグラフに関することです！助けてください！

質問

先日にも質問させていただいているのですが、ブック内のシート全てにグラフがあります。そのグラフの大きさを統一したいのですが、初心者でなかなかうまくいかず、どこをどのようにかえたらいいかもわかりません。サイトをみて参考に作ってみたマクロでは、一枚のシートだけうまく表示されてしまいます。私のような素人にどなたか教えていただけないでしょうか。。たいへん困っています。
Sub グラフ1()

Dim ws As Variant

Const MYRNG As String = ("a11:a58,d11:g58") 'データ範囲

For Each ws In ActiveWorkbook.Worksheets

Charts.Add
With ActiveChart
.ChartType = xlXYScatterLines
.SetSourceData Source:=ws.Range(MYRNG), _
PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:=ws.Name
End With
With ActiveChart.PlotArea '仕切りなおし
With .Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous

End With
.Interior.ColorIndex = xlNone
End With
Next ws
End Sub

回答No.1

nekoron07

仮ファイルを作って実行してみましたが、一応動くようです。

1枚目のシートだけが出来ているとのことですが、2枚目以降のシートのデータ範囲（A11:A58,D11:G58）は1枚目のシートとまったく同じになっていますか？

シートの様式が異なっているのでしたら、まずはそれを合わせることです。
また、A列にデータが入っていない（A1～A5が空欄になっている）とうまく認識できないようですので、データ入力してからマクロを再度実行してみてはいかがでしょうか。

補足

わざわざ忙しいところご回答頂きありがとうございます！すごくうれしいです。３０枚ほどシートがあるのですがすべてデータ範囲は同じです。上記のマクロを実行すると１回目は1枚のシートだけ整ったグラフが表示されるのですが、あとのグラフは小さく見にくいグラフです。しかし、もう一回マクロを実行させると最初に表示されたグラフの上に整ったグラフが表示されます。どうしたら整ったグラフをブック内すべてのシートに１回で表示させることができるのでしょうか？？いろいろ調べていますが、なかなかうまくいきません。。。もしお時間ございましたら、詳しく教えてくださるととてもとてもとーってもうれしいです！！
かなり悩んでいます。。。