| 投稿日 | ： 2006/07/12(Wed) 13:22 |
| 投稿者 | ： moyaachi |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Ｅｘｃｅｌでのイメージファイルの表示とサイズ変更 |
よくサンプルはみさせていただいてます。
掲示板ははじめて利用させていただきます。よそしくお願いします。
ＶＢ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を貼付してサイズを調整する命令を入れたい
の
ですが・・・・すいませんが教えてください。