|    | 
     ありがとうございます。 
自分なりにいじくってやってみましたが、エラーが出るので 
こうちゃんさんが書かれたものをそのままコピーしてやってみました。 
やはり 
 
>>ActiveChart.Axes(xlValue).TickLabels.NumberFormatLocal = "0.0_ " 
 
のところでひっかかります。 
マックのバグでしょうか? 
 
他にも質問していいですか? 
今、ひとつのブックに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]はどう示せば良いのでしょうか? 
 | 
     
    
   |