ACCESSからEXCEへ出力!VBA その8 アクセス講座 写真の挿入方法
ACCESS から EXCE へ出力!
VBA その8 アクセス講座
個人の管理台帳などに写真を添付したいと相談を受けまして、、、
1) Access DB 自体に写真を取り込む
共通処理フォルダ ¥PIC で外部参照 LINK させる
2) 管理番号.jpg
3) 管理番号.xls
など考えられます
どれが良いかはユーザーの要望を優先させます
が、、、
個人的には、3番目がオススメです
取り敢えずEXCELに画像を貼っておけば、画面からハイパーリンクで参照させれば簡単です
DB 更新 SQL では、
テーブル=リンク項目
クエリ="#" & PATH & "管理番号.xls" & "#"
で一括更新できます
両サイドに"#"を入れます
EXCEL だと、関数でHyperlink(パス+ファイル名)
意外と簡単に管理できます
DB で無くてもEXCEL のリンク機能でも同様に管理可能!
結局、今、有る台帳に¥PICから写真を所定の位置へ挿入する事になりました
ブック("Sheet名").Select
シート.Cells(行, 列).Select
シート.Pictures.Insert D:xxx¥PIC¥001.jpg
これで追加挿入できます
写真のサイズなどは、別のソフトで所定の大きさを決めれば良いデスね
そして、名前を付けて ¥PIC へ放り込むだけ!
台帳印刷で作成し直せば任務完了!
楽チンです
因みに、全ての写真が全て揃わないケースがある時は
If Dir(D:xxx¥PIC¥001.jpg) <> "" Then
挿入処理
End If
となります
---
明日見むら
村長さんでした
(^^)vba
asumi-mura