アクティブになっているsheetのグラフを参照し、
それを『まとめ』sheetに移動して張り付ける。
現在 ★マークのところでエラーになっています。
オブジェクトは、このメソッドをサポートしていません…と、これは何のエラーになるのでしょうか?
アドバイスお願い致します.
Sub test()
Dim str As String
★str = ActiveSheet.ChartObjects.Name 'strにグラフ名を代入 ←不具合中…
Sheets("まとめ").Activate '---sheet 『まとめ』を アクティブにする
ActiveSheet.ChartObjects(str).Activate
ActiveChart.Paste
End Sub
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんにちは。
>オブジェクトは、このメソッドをサポートしていません…と、これは何のエラーになるのでしょうか?
ChartObjects だけですと、オブジェクトのコレクションだから、固有の名前を持たないということではありませんか?
ちょっと手直ししてみました。
Sub test2()
Dim str As String
str = ActiveSheet.ChartObjects(1).Name
ActiveSheet.ChartObjects(str).Copy
Sheets("まとめ").Paste
End Sub
#1 さんのおっしゃるとおり、シートに1個しかない時は、インデックス は、「1」でよいのですが。
早い話、以下でもよいわけですね。(^^;
ActiveChart.ChartObjects.Copy
Sheets("まとめ").Paste
この回答への補足
>オブジェクト… エラー部分は解消されました。
補足で教えてもらいたいのですが…
●Sheets("まとめ").Paste 部分を改造して、
貼付先のsheet名を(今回はまとめ)選択しつつ、貼付位置のセルを指定して貼付を行う事は可能でしょうか?
以下が現在処理している全体ソースです。
Sub まとめ用()
Dim ws As Worksheet
Dim str As String
Dim i As Integer
i = 1
Sheets("sheet名").Select
ActiveSheet.Next.Select
For Each ws In ActiveWorkbook.Sheets
If ws.Name = "まとめ" Then
Else
str = ActiveSheet.ChartObjects(1).Name
ActiveSheet.ChartObjects(str).Copy
●Range("A2").Offset(i).Select
Sheets("まとめ").Paste
On Error Resume Next
ActiveSheet.Next.Select
▲i = i + 20
End If
Next
End Sub
<現在の不具合状況>
●部分のセル参照の効果がなく、グラフの貼付2回目以降は自動貼付で 『まとめ』sheet に順に貼付していってしまう。
これを ▲部分の定義のように i = i+20 と offset()関数組み合わせにより、2回目以降の貼付はセル参照を20順に下げて貼付されていくように処理したい。
再度アドバイスよろしくお願い致します m(__)m
No.2
- 回答日時:
#1です
さらに調べていたら間違だったので、訂正します
グラフの名前を取得するサンプルがありました
http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi? …
そもそもグラフの名前の取得するのですから、ActiveSheetではなくActiveChartと思います
参考URL:http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi? …
No.1
- 回答日時:
ちょっと調べただけなんですけど、グラフって複数枚作れるじゃないですか だから
ChartObjects(対象とするグラフの番号).Nama
となるようです
(1枚しかないのなら1)
参考になれば幸いです
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます 1 2022/10/15 16:30
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) エラー処理 3 2022/04/11 14:58
- Visual Basic(VBA) userformでSheetを選択して開くコード 1 2023/05/15 16:27
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
Excelでフィルタをかけると警告...
-
エクセルのVBAの標準モジュール...
-
テキストボックス中の文字列の...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
ある文字列が全て数字であるか...
-
VBからPDFファイル自動生成...
-
「Columns("A:C")」の列文字を...
-
VBScriptでファイルの日時順(降...
-
エクセルマクロエラー「'Cells'...
-
EXCEL VBA オートシェイプナン...
-
オートメーションエラーについて
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
-
ExcelVBAでのNZ関数について
-
VBAからPDFファイルにパスワー...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルのテキストボックスをV...
-
Exvel vba Range型変数格納時の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
VBAで Set wb = Sheets(1).Cop...
-
テキストボックス中の文字列の...
-
PowerPointVBAでスライドマスタ...
-
エクセルマクロエラー「'Cells'...
-
VBAからPDFファイルにパスワー...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
ある文字列が全て数字であるか...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
VBAで作成するメール(開封確認...
-
VBAについてです。 初心者です...
-
VBA:オートシェイプの線の長...
-
VBで引数にDictionaryオブジェ...
-
AccessVBAで「dim dbs as datab...
おすすめ情報