VbscriptによるExcelのコピー＆ペースト
いつもお世話になります。
教えて頂きたいのは、
「VBScript」でExcelのセルの内容をコピー＆ペーストしても、
オートシェイプなどがペーストされません。
どうすれば、すべての内容をペーストできるでしょうか？
（分かりにくい変数名で申し訳ございません）
Option Explicit
Dim v, w, x, y, z
Set v = CreateObject("Excel.Application")
Set w = v.Workbooks.Open("E:\Test\Original.xls")
Set x = w.Worksheets(1)
Set y = v.Workbooks.Open("E:\Test\Result.xls")
Set z = y.Worksheets(1)
v.Application.DisplayAlerts = False
x.Range("A1:U55").Copy
z.Range("A1:U55").PasteSpecial(-4104)
x.Range("AB1:AF55").Copy
z.Range("V1:Z55").PasteSpecial(-4104)
y.SaveAs("E:\Test\ResultPaste.xls")
y.Close
w.Close
v.Quit
Set z = Nothing
Set y = Nothing
Set x = Nothing
Set w = Nothing
Set v = Nothing
MsgBox("Finished")
上記のプログラムで、「Original.xls」の内容を
「Result.xls」にコピー＆ぺーストしたいのですが、
セル内の文字情報はフォントや文字の大きさ（サイズ）、
セルの表示形式などがちゃんとペーストされたのですが、
「Original.xls」にあるテキストボックスや
オートシェイプはペーストされませんでした。
すべての内容をペーストするには、
どうすれば良いでしょうか？
よろしくお願い致します。
お礼
ありがとうございます。 早速、こちらに紹介されている［CiPT］を使っているのですが、なかなか使いやすくてよいソフトだと思います。 今後も機会がございましたら、宜しくお願いいたします。