VBからエクセルのセル内の位置を指定して画像を貼り付けるには？

城 2006-01-24 23:46:11 No: 93812

VB側からエクセルの操作をします。
画像をコピー・ペーストするのですが、
セルを指定し、そのセル内でも位置を指定したいのですが、
やり方がいまいちわかりません。
VBAなら出来るようなのですが・・・。
お知恵をお貸しください。
下記に簡単なソースを記述します。

    Dim xlApp               As Excel.Application    ''エクセルアプリケーション
    Dim xlBook              As Excel.Workbook       ''エクセルブック

    ''エクセル設定
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    ''パス設定
    strXlPath = "C:\Book1.xls"
    ''雛型ファイルオープン
    Set xlBook = xlApp.Workbooks.Open(strXlPath)

    xlBook.Worksheets(2).Shapes("図 1").Copy

    With xlBook.Worksheets(1)
        .Select
        .Cells(1, 2).Select
        .Paste
    End With
    Set xlBook = Nothing

花ちゃん URL 2006-01-25 08:44:12 No: 93813

下記は参考になりませんか？
http://www.bcap.co.jp/hanafusa/VBHLP/Excel12.htm