人に聞けない痔の悩み、これでスッキリ >>

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

このQ&Aに関連する最新のQ&A

A 回答 (1件)

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



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

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

この回答への補足

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

補足日時:2007/11/08 13:18
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このカテゴリの人気Q&Aランキング