VBAでグラフを扱う際にバージョンによって動かないことがあります

Question

Anonymous

下のコードはバージョン２０００では動いていたのですが、２００７の互換モードではエラーがでます

Dim Crt1 As Chart

'INIT

Sheets("sheet1").Activate

Set Crt1 = ActiveSheet.ChartObjects(1).Chart

'AUTO

Crt1.Axes(xlValue).MaximumScaleIsAuto = True

一番最後の行でMaximumScaleIsAutoメソッドが失敗とでます

解決方法を教えてください

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

4 件の回答

Answer 1

Anonymous

私なりにいろいろ調べましたが、わからないです。

残念ですが、あきらめます。

お手数をおかけしました。すみません　ありがとうございました。

0 件のコメント

Answer 2

2軸のグラフでも再現しませんね。

ただ、この実行時エラーコード-2147467259 は「オートメーションエラーです。エラーを特定できません」

と言うことらしいです。（Err.Raiseで

80004005は検索すると結構ひっかかるのですが、SQLサーバー辺りのエラーらしいです。

私はVBAでグラフは扱ったことがありませんので、確実に再現できるサンプルデータとコードを示していただけないと、これ以上は分かりません。

Answer 3

ご返答ありがとうございます。

グラフは系列が２つで、片方が棒グラフ、片方が折れ線です　棒グラフは主軸に、折れ線は第２軸を使っています

xlValueの後に xlPrimaryやxlSecondaryを入れてみましたが、だめでした

エラーメッセージは

実行時エラー '-2147467259 (80004005)':

'MaximumScaleIsAuto' メソッドは失敗しました: 'Axis' オブジェクト

となっています。

Answer 4

Anonymous

Excel2003で簡単な折れ線グラフを作って、検証してみましたが、2007でも2010でも正常に動き、再現できません。

グラフはどんなグラフでしょうか？

また、エラーメッセージはどんなものが表示されていますか？

0 件のコメント