Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1451 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【74496】デバックについて civil 13/7/2(火) 11:31 質問[未読]
【74498】Re:デバックについて γ 13/7/2(火) 23:29 発言[未読]
【74528】Re:デバックについて civil 13/7/15(月) 0:09 質問[未読]
【74529】Re:デバッグについて γ 13/7/15(月) 8:10 発言[未読]
【74530】Re:デバッグについて γ 13/7/15(月) 8:37 発言[未読]
【74496】デバックについて
質問  civil  - 13/7/2(火) 11:31 -
引用なし
パスワード
   現在、2003で作成したマクロを2010で動くようにしているのですが
どうにもこのデバックを解明することができません。
お力添えいただけないでしょうか。
よろしくお願いします。
'グラフの横軸を設定
　　　　　　With Sheets("関数")
　　　　　　　　p = .Range("D9").Value
　　　　　　　　q = .Range("E10").Value
　　　　　　End With
　　　　　　
　　　　　　ActiveSheet.ChartObjects("グラフ").Activate

　　　　　　
　　　　　　ActiveChart.Axes(xlCategory).Select
　　　　　　With ActiveChart.Axes(xlCategory)
　　　　　　　　.MinimumScale = p
　　　　　　　　.MaximumScale = q
　　　　　　End With
　　　　　　
　　　　End With
　　　　
　　　　Range("A1").Select
　　
　　End If
デバックが示す箇所は、ActiveChart.Axes(xlCategory).Selectの部分です。
【74498】Re:デバックについて
発言  γ  - 13/7/2(火) 23:29 -
引用なし
パスワード
   用語の使用に混乱が見られます。
デバッグ(debug)とは
コード中の誤り（バグ）・欠陥を発見および修正し、動作を仕様通りのものとするための作業である
(ht　tp://ja.wikipedia.org/wiki/%E3%83%87%E3%83%90%E3%83%83%E3%82%B0)
デバックを解明する、とか、デバックが示す箇所とかは、変な用語の使い方です。

それはさておき、どのようなエラーが出ているのでしょうか？
正確に教えてください。
またグラフの種類も併せてお知らせください。
【74528】Re:デバックについて
質問  civil  - 13/7/15(月) 0:09 -
引用なし
パスワード
   ▼γ さん：
>用語の使用に混乱が見られます。
>デバッグ(debug)とは
>コード中の誤り（バグ）・欠陥を発見および修正し、動作を仕様通りのものとするための作業である
>(ht　tp://ja.wikipedia.org/wiki/%E3%83%87%E3%83%90%E3%83%83%E3%82%B0)
>デバックを解明する、とか、デバックが示す箇所とかは、変な用語の使い方です。
>
>それはさておき、どのようなエラーが出ているのでしょうか？
>正確に教えてください。
>またグラフの種類も併せてお知らせください。


お返事ありがとうございます。
また、デバックについての指摘ありがとうございます。
自分の知識の浅さを改めて痛感しました。

実行時のエラーは以下のような文面になります。
「実行時エラー　'-2147467259(80004005)':
'Select'メソッドは失敗しました:'Axis'オブジェクト」
です。
グラフの種類は散布図です。

よろしくお願いします。
【74529】Re:デバッグについて
発言  γ  - 13/7/15(月) 8:10 -
引用なし
パスワード
   私の2010環境ではエラーにはなりませんでした。

Selectとかは余り使わないほうがいいと思うので、
例えば、次のように書いた場合、どうなりますか？

Sub test()
　　Dim myChart As Chart
　　
　　Set myChart = ActiveSheet.ChartObjects("グラフ 1").Chart
　　With myChart.Axes(xlCategory)
　　　　.MinimumScale = 0
　　　　.MaximumScale = 10
　　End With
End Sub

（グラフの名称とか、最小最大値は適切にセットしてください。p,qを使って。）
【74530】Re:デバッグについて
発言  γ  - 13/7/15(月) 8:37 -
引用なし
パスワード
   ついでに。再掲。
×　デバック
○　デバッグ
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1451 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free