
エクセルVBAで埋め込みグラフ(ChartObjects)のアクティブ化のエラー(1004)解消方法について。
予めWorkbook1のシートに6つの埋め込みグラフを用意してあります。
Workbook2のシート1に数値データがあり、シート2に先のWorkbook1のシートを
コピペして、数値の参照先をWorkbook2のシート1に変更して利用したいと考えております。
以下の処理を用いて、グラフ内の文字サイズが変わってしまうので、文字サイズを再設定しなおそうと、
埋め込みグラフを1つずつ選択し、文字サイズ設定を行おうとしているのですが、
chart 3を選択したところで、chartobjectクラスのactivateメソッドが失敗 (エラー 1004)
が出てしまいます。
ちなみに、Workbook1のシート上で、以下の処理を行ってもエラーは出ません。
Workbook2にコピペしたものに対して、chart 1、chart 2の処理が済み、
chart 3になった所でエラーが発生します。
解決方法のご教授をよろしくお願い致します。
grp_cnt = ActiveSheet.ChartObjects.Count
For j = 1 To grp_cnt
Workbooks(2).Worksheets(2).Activate
'シート上のチャート中より、指定した名前のチャートを探す。
Set obj = ThisWorkbook.ActiveSheet.ChartObjects(j)
crt_name = ThisWorkbook.ActiveSheet.ChartObjects(j).Name
'変更したいチャートをアクティブにする。
ActiveSheet.ChartObjects(crt_name).Activate
ActiveChart.ChartArea.Select
Selection.AutoScaleFont = True
With Selection.Font
.Size = 10
End With
Next j
No.2ベストアンサー
- 回答日時:
>→ For Each ch In ActiveSheet.ChartObjects
ここで型不一致エラーが出るのも不可解ですが、とりあえず
>実行時エラー'1004 Objectクラスの Activate メソッドが失敗しました
>が発生する次第です。
>一体、何故なのでしょう?不可解です。
この原因について書きますと、
>ActiveChart.ChartArea.Select
これが原因ですね。解消するには
>crt_name = ThisWorkbook.ActiveSheet.ChartObjects(j).Name
Windows(Workbooks(2).Name).Activate '※
>'変更したいチャートをアクティブにする。
>ActiveSheet.ChartObjects(crt_name).Activate
※を追加してください。
『単純に考えてchart 3の名前を持つChartObjectが無いから
エラーになるのでしょう。』
なんて書きましたが、単純すぎました..orz
グラフウィンドウがアクティブになったままなので、エラーになってるかと。
Windows(ActiveWorkbook.Name).Activate
でもいいですので、WorkbookのWindowを明示的にActiveにしてあげる必要があります。
基本、ActivateやSelectを使わないコードにしたほうが良いです。
No.1
- 回答日時:
Sub test()
Dim ch As ChartObject
For Each ch In ActiveSheet.ChartObjects
Debug.Print ch.Name
'With ch.Chart.ChartArea
' .AutoScaleFont = True
' .Font.Size = 10
'End With
Next
End Sub
こんな感じでChartObjectのNameをチェックしてみてください。
『chart xx』のxxは連番で自動付与されますから
単純に考えてchart 3の名前を持つChartObjectが無いから
エラーになるのでしょう。
元シートのChartObjectsが連番ならば、
新規シートにコピーして試せばうまくいくのではないでしょうか。
ですが、基本、名前で指定したりActivateしなくても処理はできます。
(上記testでコメントアウトしている例)
、それよりも元シートのグラフを.AutoScaleFont = Falseにしておけば
>グラフ内の文字サイズが変わってしまう..
という事態は避けられるのではないでしょうか。
この回答への補足
ご回答頂きまして、ありがとうございます。
>それよりも元シートのグラフを.AutoScaleFont = Falseにしておけば
仰るとおり、今後はこのようにさせていただきます。
しかし、今回の問題はまだよくわからない現状です。
教えていただいた処理を実行すると、次の所で、
『(実行時エラー’13) 型が一致しません』
となります。
Dim ch As ChartObject
→ For Each ch In ActiveSheet.ChartObjects
従いまして、前回同様、次の処理を実行したところ、
grp_cnt = ActiveSheet.ChartObjects.Count
For j = 1 To grp_cnt
Workbooks(2).Worksheets(2).Activate
'シート上のチャート中より、指定した名前のチャートを探す。
Set obj = ThisWorkbook.ActiveSheet.ChartObjects(j)
crt_name = ThisWorkbook.ActiveSheet.ChartObjects(j).Name
Debug.Print crt_name
Next j
結果は、
Chart 1
Chart 2
Chart 3
Chart 4
Chart 5
Chart 6
と出るのです。(前回エラーのChart 3含む)全てのObjectの名前がはっきり出るのに、
実行時エラー'1004 Objectクラスの Activate メソッドが失敗しました
が発生する次第です。
一体、何故なのでしょう?不可解です。
更にご助言いただける方がありましたら、よろしくお願い致します。
end-u様
ご指摘ありがとうございます。お蔭様でエラーが解消できました。
コード上では、そこまで記載する必要はないと思っていても、
冗長なActivate宣言が必要なようですね。
マクロ内では、アプリ上位からの絶対的な宣言を確定させるべき?と
考えれば良いのでしょうか?
ただ、これは難しい...
>基本、ActivateやSelectを使わないコードにしたほうが良いです。
極力このようにしようと思いますが、
EXCELマクロでは、ActivateやSelectを使うのは常套手段では?
ともあれ、問題解決にまでお付き合いいただきまして、
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
4万件程度の散布図を作成したいが、エクセルでは、255までしか作成できず困ってます
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
Excel VBA グラフ作成のときのエラー
Excel(エクセル)
-
5
横軸ラベルの追加に関するエラー(VBA)
Visual Basic(VBA)
-
6
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
7
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
8
【VBA】Excelの特定範囲のセルを画像で保存したい
Visual Basic(VBA)
-
9
グラフを表示するとき「’~’メソッドは失敗しました。」エラー発生
Visual Basic(VBA)
-
10
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
11
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
12
エクセルで別ブックをバックグラウンドでオープンする方法
Excel(エクセル)
-
13
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
14
エクセルVBAで画面の大きさを取得する方法!
Excel(エクセル)
-
15
ExcelVBA:複数の特定のグラフを選択する方法
Visual Basic(VBA)
-
16
Excelでエラー(#N/Aなど)値を含む範囲で最大値や最小値をもとめ
その他(Microsoft Office)
-
17
EXCEL VBA オートシェイプナンバーのリセット
Visual Basic(VBA)
-
18
フォーム上の全てのコントロールを取得したい
Access(アクセス)
-
19
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
20
グラフのサイズを揃えたいのでVBAを使っていたのですが、数値軸の最大値
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
【VBAエラー】Nextに対するFor...
-
お助けください!VBAのファイル...
-
On ErrorでエラーNoが0
-
文字列内で括弧を使うには
-
SQLでエラーです。
-
オブジェクト型の変数にフォー...
-
String""から型'Double'への変...
-
ACCESSで値を代入できないとは?
-
python初心者です。
-
実行時エラー'-2147467259(8000...
-
UBoundに配列がありませんとエ...
-
ISAMドライバー
-
IISの仮想ディレクトリ作成がわ...
-
【VB.NET】 パワポ操作を非表示で
-
Nullの使い方が不正ですのエラ...
-
Filter関数を用いた結果、何も...
-
【Access】Excelインポート時に...
-
エクセル マクロ VBAでスケジュ...
-
インポート時のエラー「データ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
お助けください!VBAのファイル...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
String""から型'Double'への変...
-
【Access】Excelインポート時に...
-
VBA データ(特定値)のある最...
-
On ErrorでエラーNoが0
-
インポート時のエラー「データ...
-
ACCESSで値を代入できないとは?
-
VBA エクセル で FIND でのエラ...
-
Filter関数を用いた結果、何も...
-
レコード登録時に「演算子があ...
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
【VBAエラー】Nextに対するFor...
-
実行時エラー 438 の解決策をお...
-
「実行時エラー '3167' レコー...
おすすめ情報