Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12316 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11241】グラフをマクロで作ってコードで書き換え... よっしー 04/3/3(水) 17:15 質問
【11247】Re:グラフをマクロで作ってコードで書き換... 七誌 04/3/3(水) 20:57 回答
【11269】Re:グラフをマクロで作ってコードで書き... よっしー 04/3/4(木) 13:12 お礼
【11241】グラフをマクロで作ってコードで書き換え...
質問  よっしー  - 04/3/3(水) 17:15 -
引用なし
パスワード
   3行目の時速ﾃﾞｰﾀ範囲を選択にいくと
はじかれてエラー「Cellメソッドは失敗しました・・・」
とでます。わかる方どうか教えてください。

intLineSは選択開始行
intLineEは選択終了行です。

Charts.Add
ActiveChart.ChartType = xlLine 'ｸﾞﾗﾌは折れ線
ActiveChart.SetSourceData Source:=Sheets("DISTANCE"). _
Range(Cells(intLineS, 16), Cells(intLineE, 16)),
_PlotBy:=xlColumns '時速ﾃﾞｰﾀ範囲を選択
ActiveChart.SeriesCollection(1).XValues = Sheets("DISTANCE"). _
Range(Cells(intLineS, 5), Cells(intLineE, 5)) '走行時間
ActiveChart.SeriesCollection(1).Name = "=""時速""" 'ﾃﾞｰﾀ系列名
ActiveChart.Location Where:=xlLocationAsObject, Name:="日別グラフ表示"
・
・
・
【11247】Re:グラフをマクロで作ってコードで書き...
回答  七誌  - 04/3/3(水) 20:57 -
引用なし
パスワード
   ▼よっしー さん：

>Charts.Add
この時点でアクティブなシートがグラフシートになります。

>ActiveChart.ChartType = xlLine 'ｸﾞﾗﾌは折れ線
>ActiveChart.SetSourceData Source:=Sheets("DISTANCE"). _
>Range(Cells(intLineS, 16), Cells(intLineE, 16)),
> _PlotBy:=xlColumns '時速ﾃﾞｰﾀ範囲を選択
よって、シートを指定せずにCellsを使うと、親オブジェクトがDISTANCEワークシートでないためにエラーになります。

回避策

With Sheets("DISTANCE")
>ActiveChart.SetSourceData Source:=. _
>Range(.Cells(intLineS, 16), .Cells(intLineE, 16)),
> _PlotBy:=xlColumns '時速ﾃﾞｰﾀ範囲を選択
End With

とか、オブジェクト変数にRangeをSetしてからあてがうとか。
【11269】Re:グラフをマクロで作ってコードで書き...
お礼  よっしー  - 04/3/4(木) 13:12 -
引用なし
パスワード
   七誌さん有り難うございます。
RangeをSETしたらできました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12316 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free