Excel VBA質問箱 IV

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

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


13075 / 13646 ツリー ←次へ | 前へ→

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

【7116】写真
質問  ume  - 03/8/22(金) 22:09 -

引用なし
パスワード
   oracleデータベース上にある写真を
取得してExcelシートに出力しているのですが、
今は一度ファイルに落としてから表示させています。
取得した写真データを直接Excelシート上に表示することは
できるのでしょうか?教えてください。

【7132】Re:写真
質問  INA  - 03/8/23(土) 18:33 -

引用なし
パスワード
   >oracleデータベース上にある写真を
>取得してExcelシートに出力しているのですが、
>今は一度ファイルに落としてから表示させています。
>取得した写真データを直接Excelシート上に表示することは
>できるのでしょうか?教えてください。
余り詳しくないので、申し訳ないのですが・・
この処理はExcelマクロ(VBA)で行っているのでしょうか?
もしそうであれば、どのようなコードで行っているか見せて頂けないでしょうか?
ちなみに現状で何か問題点があるのでしょうか?
ファイルに落とさないということは、クリップボードを使うということかな・・・

【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

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

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