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

解決

がはは 2006-10-19 07:49:22 No: 96962

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

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

魔界の仮面弁士 2006-10-19 11:46:10 No: 96963

> さらにその画像を水平方向に+10ポイント移動したいのです。
Excel.Shape オブジェクトの Left プロパティで移動できます。
(旧方式の、Excel.Picture オブジェクトも利用できます)

なお、Left プロパティはピクセル単位系なので、もしも
ポイント単位系にしたいのであれば、単位変換が必要です。

がはは 2006-10-19 23:03:58 No: 96964

魔界の仮面弁士さん、ご回答ありがとうございます。
Excelマクロを作成し、そのマスロを参考に以下の操作を行なったところ
うまくいきました。
xl.Selection.ShapeRange.IncrementLeft 移動量