関工健児誇りあれ!?

下関のブログです(^^)v 明日見村 MotoG5Plus Windows10 Kindle iPhone Access Excel VBA ALCATEL IDOL4 Zenfone2 ZE551ML CHUWI Hi8 目標は?100kb/s でも読めるアホblog です

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から写真を所定の位置へ挿入する事になりました

EXCEL VBA だと

ブック("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

by. EXCEL VBA Pictures Insert