|
ぽんぽんさん、こんにちは
>自分なりにいじくってやってみましたが、エラーが出るので
>こうちゃんさんが書かれたものをそのままコピーしてやってみました。
>やはり
>
>>>ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ "
>
>のところでひっかかります。
>マックのバグでしょうか?
ですから、[#12064]でマクロ記録を試してみてくださいといっています。
MacではTickLabels.NumberFormatLocal というプロパティがないかも知れないし、違う名前かもしれないので。
>他にも質問していいですか?
>今、ひとつのブックに10個のシートがあります。
>それぞれのシートには同じ形でデータが並んでいます。
>例で示していたのは[PL00005]というシート中のE19:E21までの
>データからグラフを書き始めているのですが、それぞれのシートに
>同じようにマクロでグラフを書きたいのです。
>グラフはそのアクティブシートのある場所に書きたいです。
>その場合
>Sub 回帰曲線ACA11_2()
> Charts.Add
> ActiveChart.ChartType = xlXYScatter
> ActiveChart.SetSourceData Source:=Sheets("PL00005").Range("E19:E21"), PlotBy _
> :=xlColumns
> ActiveChart.Location Where:=xlLocationAsObject, Name:="PL00005"
> ActiveChart.SeriesCollection(1).XValues = "=PL00005!R19C2:R21C2"
> ActiveChart.SeriesCollection(1).Name = """ACA11"""
>
>の[PL00005]はどう示せば良いのでしょうか?
シート名ですね。「どう」の意味がよくわかりせんが、別シートが例えばSheet2という名前なら、
ActiveChart.SeriesCollection(1).XValues = "=Sheet2!R19C2:R21C2"
のようにどうぞ。
シート名に規則性があればループで処理できるかもしれません。
またも情報が少なくて、そのあたりは直接回答ができません。
質問が複数回にわたるのは構いません。大歓迎です。
ただ、こちらからの質問には答えない、前回のアドバイスなりは試験しない、情報の提示をのお願いはなかなか聞いていただけないでは、レスがつけづらいです。
#怒っているわけではありませんが、若干もどかしく感じております。
|
|