[XL2003] グラフを作成するマクロを記録して記録されたマクロを実行すると実行時エラーが発生する

文書番号: 411895 - 対象製品
この記事は、以前は次の ID で公開されていました: JP411895
すべて展開する | すべて折りたたむ

目次

概要

この資料は、記録したマクロを実行するとマクロ記録時と異なるグラフが作成されたり、実行時エラーが発生する現象について説明しています。

現象

グラフのデータ範囲を選択していない状態で、特定のグラフを作成するマクロを記録し記録されたマクロを実行すると、以下のいずれかの現象が発生する場合があります。
  • ChartType メソッドで実行時エラーが発生する
  • マクロ記録時に作成したグラフではなく通常の縦棒グラフが作成される

原因

Charts.Add メソッドは、選択範囲のみをデータ範囲としてグラフシート上にグラフを作成します。
そのため、1 つのセルのみ選択された状態の場合、データ系列は 1 つとなり、2 つ以上のデータ系列が必要なグラフでは、その後に実行される ChartType メソッド でグラフの種類を変更することができずエラーが発生します。

また、2 軸のグラフの場合も同様に 2 つ以上のデータ系列が必要となり、Charts.Add メソッドで系列、 データ要素がそれぞれ 1 つの縦棒グラフが作成されます。その後に ChartType メソッド でグラフの種類を変更しますが、データ系列が 1 つのため 2 軸のグラフが適用されません。

回避策

データ範囲に指定するセル範囲を選択するコードを Chart.Add メソッドの前に追加します。以下のコードはアクティブ セルを含む連続範囲を選択するコードです。
    ActiveCell.CurrentRegion.Select

状況

この現象は Excel の仕様による動作になります。

詳細

再現手順 1

2つ以上のデータ系列が必要な “等高線” や ”バブルチャート” グラフで発生します。
  1. Excel 2003 を起動し、新規ブックを作成します。
  2. 以下のデータを入力します。
          A1: 10       B1: 20
          A2: 10       B2: 20
          A3: 10       B3: 20
    
  3. セルA1 を選択して [ツール] メニューの [マクロ] より [新しいマクロを記録する] をクリックし、[OK] をクリックしてマクロ記録を開始します。
  4. [挿入] メニューより [グラフ] をクリックし、グラフの種類より "等高線" を選択し [完了] をクリックします。
  5. マクロ記録を終了します
  6. Visual Basic Editor を起動し、以下のようなマクロが記録されていることを確認します。
    Sub Macro1()
        Charts.Add
        ActiveChart.ChartType = xlSurface
        ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B3")
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    End Sub 
    
    
    
  7. セル A1 を選択後、記録したマクロを実行します。

結果 1

"ChartType メソッドで実行時エラーが発生します。 新規グラフシートに縦棒グラフが作成されています。

再現手順 2

ユーザー設定で登録されている “2 軸上の折れ線” や “2 軸上の折れ線と縦棒” グラフなどで発生します。
  1. Excel 2003 を起動し、新規ブックを作成します。
  2. 以下のデータを入力します。
          A1: 10       B1: 20
          A2: 10       B2: 20
          A3: 10       B3: 20
    
  3. セルA1 を選択して [ツール] メニューの [マクロ] より [新しいマクロを記録する] をクリックし、[OK] をクリックしてマクロ記録を開始します。
  4. [挿入] メニューより [グラフ] をクリックし、[ユーザー設定] タブをクリックして、"2 軸上の折れ線と縦棒" を選択し [完了] をクリックします。
  5. マクロ記録を終了します
  6. Visual Basic Editor を起動し、以下のようなマクロが記録されていることを確認します。
    Sub Macro2()
        Charts.Add
        ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="2 軸上の折れ線と縦棒"
        ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B3")
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    End Sub 
    
    
    
  7. セル A1 を選択後、記録したマクロを実行します。

結果 2

"2 軸上の折れ線と縦棒" グラフではなく、通常の縦棒グラフが作成されます。

プロパティ

文書番号: 411895 - 最終更新日: 2004年10月18日 - リビジョン: 3.1
この資料は以下の製品について記述したものです。
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
キーワード:?
chart kbinfo macro vbaxl xl97 ユーザ設定 KB411895
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"

フィードバック

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com