エクセルに貼り付けた画像の移動方法

環境/言語:[WinXP]
分類:[VB6以前]

VB6 でワークシートに画像を貼り付け、その画像を移動したいのですが、
画像の移動方法が分かりません。

以下にありますように、クリップボード中の画像をセルに貼り付けることができ
ますが、さらにその画像を水平方向に+10ポイント移動したいのですが、
どのように修正したら画像を移動できるのでしょうか？

Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open("test.xls")
wb.Sheets("Sheet2").Select
wb.ActiveSheet.Range("A3").Select
wb.ActiveSheet.Paste

恐れ入りますが、ご教授願います。

とりあえず、Excelの「マクロの記録」を使ってみてはどうでしょうか？
Shapeを選択して、位置を移動するようなコードが得られると思います。

この投稿はマルチポストです。

●マルチポストされている場所
http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200610/06100028.txt

----------
この掲示板ではマルチポストが禁止されています。詳しくは、「書き込みのマナーについて」をお読みください。

●書き込みのマナーについて
http://dobon.net/vb/bbs/index.html

Blue さん。ありがとうございます。
Excel マクロを参考にしてみたところうまくいきました。

またご指摘のように、無知なあまりマルチポストの違反をしてしまい
申し訳ありませんでした。

■No17947に返信(がははさんの記事)
> Blue さん。ありがとうございます。
> Excel マクロを参考にしてみたところうまくいきました。
>
> またご指摘のように、無知なあまりマルチポストの違反をしてしまい
> 申し訳ありませんでした。

マルチポスト先にもここの記事のアドレスを張ったほうがいいでしょう。

後、無知のあまり〜とありますが、「投稿前に必ずお読みください」と目立つようにあるのに読んでいませんでしたか？
無知、初心者の「偽」免罪符を振りまかないでください。

（＞＜）さんのおっしゃることは全く正しいと思います。しかし私としては、わざわざ返信にて反省を述べられたことについては評価してもよいのではないかとも思います。多分（＞＜）さんはがははさんが本当に注意事項を理解したのかを訝っているのではないかと想像できますし、私もまたそれが心配です。注意事項をお読みいただき、理解されて、次回からは守っていただけますように、お願いいたします。