|
きちんと説明をせずに質問をしてしまってすいません。
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
ファイルを使ってもよいのですが、もっといい方法があれば教えて
いただきたいので、よろしくお願いします。
|
|