EXEL2000のマクロが2010でエラーになる

Question

当方、ＶＢＡ初心者です、よろしくお願いいたします。

EXEL2000で動作していたVBAマクロが2003では動作、2007、2010では
以下のエラーが発生して動作しません。
「実行時エラー1004、アプリケーション定義またはオブジェクト定義のエラーです」

マクロ自体はワークシートにグラフを書くものです。
Dim cho As ChartObject, rng As Range

エラー箇所の記述は以下の部分です。

Set cho = ws.ChartObjects.Add( _
            ws.Range("B4").Left, _
            ws.Range("B4").Top, _
            ws.Range("B4:AB4").Width, _
            ws.Range("B4:B13").Height)

バージョンアップの仕様変更で記述が変わったと言うことでしょうか？

そうだとしたらあわせて何がどう変わったのか、解説されてるサイトとか
ご存じでしたらお知らせください。

以上よろしくご教授のほどお願いいたします。

end-u · Accepted Answer

>Dim 宣言をカンマで記述せず、１行ずつにバラさないとだめって事でしょうか？
いやそんな事はないです。そこは私の個人的な拘りの部分なんで全く関係ないです。
実際、コードには問題ありませんからシート状態などの環境をチェックしてみてください。
まずは、シートに保護がかかっていないか。
2000の場合でもシート＆オブジェクトに保護がかかっていればエラーになります。

保護がかかっていなければ、念のためVBEメニュー[ツール]-[参照設定]で参照不可の項目がないか、
確認してみてください。

end-u · Answer

winXPの混在環境でのテストですが

Sub try()
　　'97-2003,2007,2010
　　On Error GoTo Errlog
　　With Sheets.Add
1:　　　.Protect userinterfaceonly:=True
2:　　　.Cells(1).Value = 1
3:　　　.Ovals.Add 0, 100, 100, 100　　　　　　　　　　　'ok,ok,ok
4:　　　.Shapes.AddShape msoShapeOval, 0, 200, 100, 100　'ng,ok,ok
5:　　　.ChartObjects.Add 0, 300, 100, 100　　　　　　　 'ok,ng,ng
6:　　　.Shapes(.Shapes.Count).Delete　　　　　　　　　　'ng,ng,ok
7:　　　.DrawingObjects(.DrawingObjects.Count).Delete　　'ok,ng,ok
　　End With

Exit Sub

Errlog:
　　With Err
　　　　Debug.Print Erl, .Number, .Description
　　　　Resume Next
　　End With
End Sub

[97-2003]
4　1004　アプリケーション定義またはオブジェクト定義のエラーです。
6　1004　アプリケーション定義またはオブジェクト定義のエラーです。

[2007]
5　1004　アプリケーション定義またはオブジェクト定義のエラーです。
6　-2147024809　指定された値は境界を超えています。
7　1004　Oval クラスの Delete メソッドが失敗しました。

[2010]
5　1004　アプリケーション定義またはオブジェクト定義のエラーです。

こんな結果です。2007と2010でも挙動が違うようですね。
Shape関係の仕様変更に伴ってProtectメソッドでの扱いも変わったのでしょうか。
深く検証したわけではないので詳しくは解らないですけど。

>マクロから描画前にシート保護を解除して、グラフを描画、描き終えたら最後に
>保護を設定する・・・・
>とするしかないですかねぇ・・
それが無難なようです。

end-u · Answer

Dim cho As ChartObject
Dim rng As Range
Dim ws　As Worksheet '※
Set ws = ActiveSheet '※
'エラー箇所の記述は以下の部分です。
Set cho = ws.ChartObjects.Add( _
　　　　　ws.Range("B4").Left, _
　　　　　ws.Range("B4").Top, _
　　　　　ws.Range("B4:AB4").Width, _
　　　　　ws.Range("B4:B13").Height)

2010でも問題なく実行できます。
※箇所は大丈夫ですか？

>何がどう変わったのか、解説されてるサイトとか..
VBAのヘルプを見るのが良いでしょう。

Excel 2010 開発者用リファレンス ヘルプ
└Excel 2010 開発者用リファレンス
　└新機能
　　└Excel 2010 の開発者向け新機能記事
　　└新しいオブジェクト、コレクション、および列挙記事
　　└新しいメンバーと定数記事
　　└Microsoft Office 2007 以降のオブジェクト モデルの変更記事
　　└Microsoft Office 2003 以降のオブジェクト モデルの変更記事
　　└Microsoft Office XP (2000) 以降のオブジェクト モデルの変更記事
　　└Microsoft Office 2000 以降のオブジェクト モデルの変更

EXEL2000のマクロが2010でエラーになる

>Dim 宣言をカンマで記述せず、１行ずつにバラさないとだめって事でしょうか？

この回答への補足

winXPの混在環境でのテストですが

Dim cho As ChartObject

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング