Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74024 / 76732 ←次へ | 前へ→

【7179】Re:写真
発言  ume  - 03/8/25(月) 17:30 -

引用なし
パスワード
   きちんと説明をせずに質問をしてしまってすいません。
Excelマクロを使って行っています。
コードは↓のとうりです。(わかりにくいコードですいません)

  Dim varBuffer    As Variant
  Dim bytImage()   As Byte
  Dim lngSize     As Long
  Dim strFileName   As String

  strFileName = App.Path & "\temp.jpg" 

  写真データを取得する(省略)

  lngSize = oraRs("写真イメージ").ActualSize

  varBuffer = oraRs("写真イメージ").GetChunk(lngSize)

  Open strFileName For Binary As #1
  bytImage = varBuffer
  Put #1, , bytImage 

  Set ObjExcel = New Excel.Application
  Set WkBook = ObjExcel.Workbooks.Open(strFileName)
  Set WkSheet = WkBook.Worksheets(1)

  With WkSheet                       
        .Range(.Cells(c_DR_Photo, intShowCol).Address).Select
       ObjExcel.ActiveSheet.Pictures.Insert (strFileName)
  End With

ファイルを使ってもよいのですが、もっといい方法があれば教えて
いただきたいので、よろしくお願いします。

0 hits

【7116】写真 ume 03/8/22(金) 22:09 質問
【7132】Re:写真 INA 03/8/23(土) 18:33 質問
【7179】Re:写真 ume 03/8/25(月) 17:30 発言

74024 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free