![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
excel2000を利用しています。
アクティブなシートに作られているグラフを、全て図に変換して、それぞれ元の位置に同じ大きさで貼りなおしたいです。
いろんなサイトを調べて、下記、記述でグラフを図で貼り付けることまでは出来たのですが、元の位置に貼り付けるところが分かりません。
どのように修正すれば、いいでしょうか?ご指導よろしくお願いします。
Sub グラフを図として貼る()
Dim s As Object
For Each s In ActiveSheet.ChartObjects
s.Activate
ActiveChart.ChartArea.Select
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
ActiveSheet.Pictures.Paste
Next
End Sub
No.2ベストアンサー
- 回答日時:
失礼。
CTop = Selection.Top: CLeft = Selection.Left '追加
上記を
CTop = s.Top: CLeft = s.Left '追加
これで。
No.1
- 回答日時:
コピーを取る前にグラフを選択するでしょうから、
その時についでに
.Top
.Left
で、上端と左端の座標を拾って、変数に入れておき、
貼り付けた後でその座標まで持っていけばよろしいかと。
例えば、質問中のコードをそのまま使うなら
Sub グラフを図として貼る()
Dim s As Object
Dim CTop As Single, CLeft As Single '追加
For Each s In ActiveSheet.ChartObjects
s.Activate
ActiveChart.ChartArea.Select
CTop = Selection.Top: CLeft = Selection.Left '追加
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
Range("A1").Select '追加
ActiveSheet.Pictures.Paste.Select 'ちょっと修正
Selection.ShapeRange.IncrementLeft CLeft '追加
Selection.ShapeRange.IncrementTop CTop '追加
Next
End Sub
これでとりあえずできると思いますよ。
回答ありがとうございます。
早速、確認させていただいたところ、A1セルに貼り付けとなっていました。
ActiveSheet.Pictures.Paste.Select 'ちょっと修正
Selection.ShapeRange.IncrementLeft CLeft '追加
Selection.ShapeRange.IncrementTop CTop '追加
の部分が効いていないと思います。さらに修正のアドバイスを頂ければ幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マイナスを表現する場合はどの...
-
Excelグラフ
-
エクセルのグラフに上下限値の...
-
グラフの線だけをコピペしたい!
-
はみ出たレーダーチャートの表...
-
グラフの上側が空いているので...
-
エクセルでグラフの平均化を教...
-
エクセルのグラフの色を統一す...
-
excelで、折れ線グラフと折れ線...
-
wordで数直線・グラフを作成
-
グラフで数値線を引く方法
-
エクセル グラフ ウィンドウ...
-
【至急】Excelで睡眠時間のグラ...
-
エクセルのプロットエリアについて
-
Excelで標準偏差のグラフ...
-
Excel2007で複合グラフをつくり...
-
円グラフや棒グラフが作れるソフト
-
EXCELで数値に対応したベクトル...
-
Excelのグラフへの累乗表記につ...
-
エクセル2016ですがグラフの挿...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのグラフの色を統一す...
-
エクセルのグラフに上下限値の...
-
【至急】Excelで睡眠時間のグラ...
-
グラフの線だけをコピペしたい!
-
エクセルでグラフの平均化を教...
-
Excelのグラフで上と右の枠線を...
-
はみ出たレーダーチャートの表...
-
Excelのグラフで
-
EXELグラフをWORDに貼り付ける...
-
Excelグラフ
-
Sma4のグラフ作製
-
Excelで膨大な系列数のグラフを...
-
excelで線と線の間を塗りつぶし...
-
Excelのグラフ「プロット...
-
ワードでCos、sinの図を書きたい
-
Excel:角ばったグラフの線を滑...
-
マクロを実行すると図形はロッ...
-
回答をプロットするってなんで...
-
wordで数直線・グラフを作成
-
Excel2007のグラフで右の枠線を...
おすすめ情報