excel 2000 グラフを元の位置に図貼り付け
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
補足
はい、DIBという形式は知っています。質問は「変換とは何か?」です。ビットマップイメージオブジェクを変換したDIBと、普通にファイルから挿入したDIBはダブルクリックに対する動作が異なります。