Excel VBA質問箱 IV

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

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


1432 / 13646 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   ついでに。再掲。
× デバック
○ デバッグ

1432 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free