
エクセル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)
-
グラフを表示するとき「’~’メソッドは失敗しました。」エラー発生
Visual Basic(VBA)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
4
UserForm1.Showでエラーになります。
工学
-
5
VBA(excel)でグラフのデータ範囲の取得
その他(Microsoft Office)
-
6
EXCEL VBAのユーザーフォームに引数を渡す方法について
Excel(エクセル)
-
7
エクセルのVBAでクリップボードにコピーした画像をpng(or jpg or bmp)保存したい
Visual Basic(VBA)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
最も近い数値のあるセルを探す
Excel(エクセル)
-
10
Excel マクロでグラフの切取り貼り付け
その他(プログラミング・Web制作)
-
11
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
12
VBAマクロ 実行時エラーが出たり出なかったり
Excel(エクセル)
-
13
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
14
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
15
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
16
Excel VBAで、グラフを特定のセルに移動させたい。
Visual Basic(VBA)
-
17
ExcelVBA:複数の特定のグラフを選択する方法
Visual Basic(VBA)
-
18
EXCEL VBA オートシェイプナンバーのリセット
Visual Basic(VBA)
-
19
エクセルVBAでグラフのインデックスを取得したい
その他(Microsoft Office)
-
20
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
インポート時のエラー「データ...
-
5
エクセルVBA 「On Error GoTo...
-
6
VBA データ(特定値)のある最...
-
7
【VBA】ワークブックを開く時に...
-
8
ExecuteNonQueryメソッドの戻り値
-
9
マクロの「SaveAs」でエラーが...
-
10
エクセル 足し算引き算で 空...
-
11
VBでSQL文のUPDATE構文を使った...
-
12
pythonのopenpyxlについて
-
13
LaTeXのエラーについて(コンパ...
-
14
mailstorehomeのエクスポートで...
-
15
ActiveCell.FormulaR1C1の変数
-
16
Filter関数を用いた結果、何も...
-
17
実行時エラー 438 の解決策をお...
-
18
VBAのリストボックスで、横スク...
-
19
演算子が DBnull 及び integer...
-
20
.VBSだとADODBのプロバイダが見...
おすすめ情報
公式facebook
公式twitter