アクティブになっている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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBAにて作成したグラフを別シートに張り付ける方法と、デバックの解決方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA:オートシェイプの線の長...
-
(初心者です)VBAについて。「実...
-
ステップインで実行しても中断...
-
worksheetFunctionクラスのVloo...
-
sheetsメソッドの失敗
-
実行時エラー 3265「要求された...
-
「Columns("A:C")」の列文字を...
-
リストボックスの値を選択
-
「オブジェクト変数または With...
-
VBで引数にDictionaryオブジェ...
-
VBScriptでCSVファイルのデータ...
-
VB2008 エクセル出力
-
Crystal report を 8.0 から 6....
-
Excel VBA Collection.add で R...
-
エクセルVBA
-
Excel VBAでIEにアクセスするプ...
-
PowerPointVBAでスライドマスタ...
-
VB6からVC6で作成したDLLの関数...
-
EXCELに接続 DAOで
-
INPUT type=file で出るダイア...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
EXCEL VBA オートシェイプナン...
-
VBAからPDFファイルにパスワー...
-
VBAで Set wb = Sheets(1).Cop...
-
ある文字列が全て数字であるか...
-
PowerPointVBAでスライドマスタ...
-
[VBA]CDOメッセージ送信エラー
-
AccessVBAで「dim dbs as datab...
-
VBAで作成するメール(開封確認...
-
VBからPDFファイル自動生成...
-
上下の位置揃えについて
-
ExcelVBAでのNZ関数について
-
テキストボックス中の文字列の...
-
エクセルマクロエラー「'Cells'...
おすすめ情報