アクセスによる図入り文書データ作成フォーマット

Question

アクセスを用いて、作業手順書を作っています。

テーブル構造としては、テキスト＋画像の構成にしています。

イメージのフィールドには、BITMAPを張り付けています。

最後に文書を、枠組みを作って、EXCEL（もしくはword)に吐き出さそうとしています。

Set RS = DB.OpenRecordset(SQL)
Set objExcelApp = New Excel.Application
objExcelApp.Visible = True
Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)

Dim bangou As clsCounter
Set bangou = New clsCounter

line = 0

With objExcelWorkbook.Sheets("作業内容")
Do

If Not IsNull(RS!番号) Then
num = ban.update(RS!番号)
.Range(START).Offset(line, 0) = num
End If

.Range(START).Offset(line, 1) = RS!作業項目
.Range(START).Offset(line, 2) = RS!作業図解
.Range(START).Offset(line, 4) = RS!注意事項

If Not IsNull(RS!イメージ) Then

Set ole = RS!イメージ

Debug.Print ole.ActualSize

End If

RS.MoveNext
line = line + 1
Loop Until RS.EOF

End With

#課題

イメージのレコードソースにアクセスして、
これをofficeのSHAPEオブジェクトに変換しようとトライしていますが、
オブジェクトの型が不明です。

どうしたら、SHAPEオブジェクトに変換できるものでしょうか？

ググっても、なかなか出て来なくて、解決に至っていません。

Answer 1

今回は下記で自己解決できました。

With New ADODB.Stream
.Type = 1
.Open
.Write DeleteNbyte(rs!イメージ, 87)
.Position = 0
.SaveToFile temppath, adSaveCreateOverWrite
.Close
End With

Set img = range.Shapes.AddPicture(temppath, True, True, 100, 100, 0, 0)
･･･


Function DeleteNbyte(ORG As Variant, DEL) As Variant
Dim arr_org() As Byte, arr_ret() As Byte
Dim ret As String
Dim i As Long
arr_org = CStr(ORG)
ReDim arr_ret(UBound(arr_org) - DEL)
For i = 0 To UBound(arr_ret)
arr_ret(i) = arr_org(i + DEL)
Next i
DeleteNbyte = arr_ret
End Function

Answer 2

追加で調べました。

http://tokusan-sk49.cocolog-nifty.com/blog/2008/05/olebmp_access20_ec6c.html

バイナリデータのヘッダを７８ずらすと、BMPが再生できたらしいです

Answer 3

本件について、同じような質問がありました。

https://stackoverflow.com/questions/24173972/embed-image-stored-as-ole-object-into-excel-worksheet

BLOBデータ（おおきなバイナリデータ）は、一度ファイルにしてしまってから、読み込んだ方がいいということでした。