よくサンプルはみさせていただいてます。
掲示板ははじめて利用させていただきます。よそしくお願いします。

　ＶＢ6.0で既存のＥｘｃｅｌにイメージファイルの貼付をしたいのですがどのようにすればいいで
しょうか？いろいろとやってみたのですがうまくいかなくて・・・・・

     'Excel印刷用
    Dim objExcelApp             As Workbook
    Dim strExcelFile            As String
    Dim strExcelSheet           As String

　 'エクセルのファイル名
    strExcelFile = "C:\既存.xls"
    'ブックのシート名
    strExcelSheet = "sheet1"
    'エクセルへ参照
    Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet")
　　’セル（２，２）に”テスト”をセット　　
　　objExcelApp.ActiveSheet.Cells(2, 2).Value="テスト"
　　’Ｃ５へイメージファイルをセット（テスト.gif)
    ??????????????????????????????????????????????
    'Excelのウインドウ（Book)を表示する
    objExcelApp.Windows(1).Visible = True
    '上書き保存の場合
    objExcelApp.Save
    'シートをExcelから印刷
    objExcelApp.Worksheets(strExcelSheet).PrintOut
    'エクセルの終了
    objExcelApp.Application.Quit
    'オブジェクトを解放
    Set objExcelApp = Nothing

   ????????〜の部分にイメージファイルのテスト.gifを貼付してサイズを調整する命令を入れたい
の
ですが・・・・すいませんが教えてください。

> よくサンプルはみさせていただいてます。
> 掲示板ははじめて利用させていただきます。よそしくお願いします。
>  
こんにちは。
よくサンプルをご覧になっているのなら
ここのExcel＆Word関係を見て

上記に無いような場合、Excel上でマクロを取って見て下さい。
そのマクロを参考にコードを書いて見ると結構それで解決する場合があります。
又、下記のVBAキーワードリファレンスや掲示板の過去のログから調べて見て下さい、過去６年以上の
Q&Aが閲覧できますので、大抵の事はでているかと思います。

というのも見つかると思いますが・・・？
まず、マクロの記録をやってみてはいかがでしょう？

ありがとうございます。一度やってみます。

いろいろやってみてできました。
しかしExcel.Applicationを使用すると上書き保存が自動でできないのが問題でして・・・・。
GetObjectだと上書きが自動でできるのが利点でした。
getobjectで画像の貼付できればいいのですが・・・少し検討してみます。