
エクセル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も見ています
-
オンライン健康相談gooドクター登場
24時間365日いつでも医師に健康相談できる!詳しくはコチラ>>
-
Excel VBA グラフを任意sheetに移動させるには?
Visual Basic(VBA)
-
worksheetクラスのcopyメソッドが失敗しました。
その他(Microsoft Office)
-
ExcelVBA:複数の特定のグラフを選択する方法
Visual Basic(VBA)
-
4
VBAマクロ 実行時エラーが出たり出なかったり
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
エクセル マクロ実行時エラー’1004’
Excel(エクセル)
-
7
'Range'メソッドは失敗しました
Excel(エクセル)
-
8
VBAで現在選択しているグラフ名を取得したい
Excel(エクセル)
-
9
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
10
Excel VBAで、アクティブシート内の全てのグラフを削除したい。
Visual Basic(VBA)
-
11
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
12
Excel マクロでグラフの切取り貼り付け
その他(プログラミング・Web制作)
-
13
エクセルVBAでコピーしたグラフについて
Visual Basic(VBA)
-
14
エクセルVBAでグラフの線とマーカを設定したい
Excel(エクセル)
-
15
グラフを表示するとき「’~’メソッドは失敗しました。」エラー発生
Visual Basic(VBA)
-
16
VBAのグラフに違うシートの系列の追加について??
Visual Basic(VBA)
-
17
Excel マクロ グラフの線とマーカーの太さ変更
Excel(エクセル)
-
18
EXCEL2016 VBA でグラフのx軸のフォントのプロパティを変更する方法を教えてください。
Excel(エクセル)
-
19
EXCEL VBA シートをコピーする時にエラーが発生してしまう件
Excel(エクセル)
-
20
VBA 実行時エラー1004 rangeメソッドは失敗しました。globalオブジェクトのエラー
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
String""から型'Double'への変...
-
5
マクロで"#N/A"のエラー行を削...
-
6
pythonのopenpyxlについて
-
7
On ErrorでエラーNoが0
-
8
Filter関数を用いた結果、何も...
-
9
シングルクォーテーションを含...
-
10
エクセル 足し算引き算で 空...
-
11
文字列内で括弧を使うには
-
12
ACCESSで値を代入できないとは?
-
13
【VBA】ワークブックを開く時に...
-
14
エクセルVBAで#N/Aのようなエ...
-
15
AWKスクリプトの文字コードにつ...
-
16
実行時エラー 438 の解決策をお...
-
17
Listboxについての質問
-
18
VBS Script のエラーについてお...
-
19
UBoundに配列がありませんとエ...
-
20
データベース操作時エラーについて
おすすめ情報