Excel に貼り付けた図をデータベース管理したい

質問

行いたいこと
Excel2003 にてシートへ図の挿入された写真や絵などをデータベース管理したい。
詳細
・図形をシートの指定場所へ図の挿入
・指定場所からはみださないように体裁を整え
・VBAにより、ボタンで他の文書と同様登録をする。
・ネットワークに繋がってる他の場所からそのデータをデータベースから取り込み。
・シートの指定場所へ表示する。

以上のようなことは可能でしょうか
教えてください。
よろしくお願いいたします。

、

回答No.3

imogasi · ベストアンサー

基礎的なことがわかってない。エクセルのシートに写真でも、張り付けた場合、見えている位置や画像とシートのセルの値は関係が無いのだ。ＸＸ港に止まっている船が、その港の船とは限らないようなもの。セルＡ１の値が１０というのとは根本的に違う。
画像とセルの値にはＬｉｎｋｅｄＣｅｌｌ（エクセルの他で使う用語）のようなものはない。
たまたまそのセルの位置に見えているだけ。ただエクセルで少しは配慮してあるが（図の書式設定ープロパティの項目）。
＞指定場所からはみださないように体裁を整え
などの表現はこのへんが判ってない証拠。
これ（位置）を頼りにするならセルの領域に、「画像の上左隅の点がある」などのことを頼りにしないとならないが、複雑であり、画像をシート上で動かせるから、収拾が付かない。ソフト自身が基礎で対応してくれないと自作は難しい。
エクセルは画像管理専用ソフトではない。
ーー
画像なりの別の（文字情報の）管理ならシートは使えるかも。
画像名（例　靴１号）ー＞画像ファイル名（フルパス）導出ーー＞画像呼び込み表示などとか。（画像索引表示）
外に靴に分類される画像はどういう写真がどういう名前であるのかなど（文字情報としての属性の整理・検索）。
ーー
エクセルはデータベース管理などという大げさな言葉を使えるほどのソフトじゃない。こういう言葉を振り回している質問者は、
初心者が多い。データベースとか、画像の管理などを本格的に（＝仕事で使えるようにする）するのは、プロの仕事だ。
最低そういう出来合いのソフトが無いか探すのが関の山だろう。
ーー
ネットワークとの絡みも難しい。
またＷＥＢ情報として、画像とリンクするなどの方法もあるかもしれない。
これもここへ質問して回答で出来るようなものではないと思う。

回答No.2

DOUGLAS_

＞Excel2003 にてシートへ図の挿入された
＞写真や絵などをデータベース管理したい。
とのことですが、その ワークシート には、サムネイル（縮小加工された ファイルサイズ の小さな画像）ではなくて、元々の ファイルサイズ の大きな画像を貼り付けられるのでしょうか？

　「画像の管理」ということになれば、画像そのものは「ネットワークに繋がってる他の場所」に置いておいて、
１）ファイル名 を選択すると、その画像を「ネットワークに繋がってる他の場所」から読み込んで表示する
とか、あるいは、
２）ワークシート には サムネイル を表示しておく
というような操作が有効かと存じます。

　(１) の場合は、ＶＢＡ になりますし、(２) の場合は、Excel ではなくて、それに特化した ソフト で画像一覧を閲覧するようなことが普通でしょうか。

　１つの ブック に画像そのものを並び立てると、ブック の サイズ が異常に大きくなり、開かなくなるのが落ちですか。

--------------------------------------------------

　いずれの例も
Const myPath As String = "\\network\address\folder\"
のところに ネットワーク アドレス の フルパス を記入し、最後に「\」記号を入れてください。

１）の例
　当該 ワークシート の シートモジュール に下記を コピペ してお試しください。
　先ず「MkList」を実行しておいて、A1 セル の リスト から画像の名前を選択すると、C1 セル に画像を表示します。
　表示された画像は サムネイル ではなくて、「ネットワークに繋がってる他の場所」の 画像ファイル をそのまま読み込んでいます。

Option Explicit
Option Compare Text
Const myPath As String = "\\network\address\folder\"
Sub MkList()
　Dim MyName As String
　Dim MyList As String
　On Error Resume Next
　ActiveSheet.Pictures("表示用").Delete
　On Error Resume Next
　MyName = Dir(myPath & "*.jpg")
　Do While MyName <> ""
　　MyList = MyList & "," & Replace(MyName, ".jpg", "")
　　MyName = Dir
　Loop
　Application.EnableEvents = False
　With Range("A1").Validation
　　.Delete
　　.Add Type:=xlValidateList, Formula1:=Left(MyList, 911)
　End With
　Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Address <> "$A$1" Then Exit Sub
　Application.ScreenUpdating = False
　Range("C1").Select
　With ActiveSheet.Pictures
　　On Error Resume Next
　　.Item("表示用").Delete
　　.Insert(myPath & Range("A1").Value & ".jpg").Select
　　On Error GoTo 0
　End With
　With Selection.ShapeRange
　　.Name = "表示用"
　　.LockAspectRatio = msoTrue
　　.Height = Range("C1:C7").Height
　End With
　Range("A1").Select
　Application.ScreenUpdating = True
End Sub

--------------------------------------------------

２）の例
　こちらは、
http://okwave.jp/qa/q5744704.html
の #3 さんのご回答を参考にさせていただきました。
　mitarashi 様、無断借用ご容赦を　<(_ _)>

　標準ジュール に下記を コピペ してお試しください。
　ワークシート に「ネットワークに繋がってる他の場所」にある 画像ファイル の サムネイル と ファイル名 を羅列し、サムネイル画像 を クリック すると、元の写真が規定の アプリケーション（私の環境では、JPG ファイル の場合は Internet Explorer でした）によって開かれます。

Option Explicit
Option Compare Text
Sub MkThumbnail()
　Const myPath As String = "\\network\address\folder\"
　Dim MyName As String
　Dim i As Long
　Application.ScreenUpdating = False
　MyName = Dir(myPath & "*.jpg")
　Do While MyName <> ""
　　i = i + 1
　　Range("B1").Select
　　ActiveSheet.Pictures.Insert(myPath & MyName).Select
　　With Selection.ShapeRange
　　　.Name = "表示用"
　　　.LockAspectRatio = msoTrue
　　　.Height = Range("C1:C7").Height
　　End With
　　'xlBitmapの方が若干ファイルサイズが小さいですが、2007では、xlPictureしか有効でないという情報もありますのでコメントアウトして置いておきます
　　Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap 'xlPicture
　　Cells(Int((i - 1) / 4) * 9 + 1, ((i - 1) Mod 4) * 4 + 1).Select
　　Cells(Int((i - 1) / 4) * 9 + 8, ((i - 1) Mod 4) * 4 + 1).Value = Replace(MyName, ".jpg", "")
　　'ActiveSheet.PasteSpecial Format:="図 (拡張メタファイル)", Link:=False, DisplayAsIcon:=False
　　ActiveSheet.PasteSpecial Format:="ビットマップ", Link:=False, DisplayAsIcon:=False
　　ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=myPath & MyName
　　ActiveSheet.Pictures("表示用").Delete
　　MyName = Dir
　Loop
　Application.ScreenUpdating = True
End Sub

回答No.1

MARU4812

ネットワーク、データベースなどと言い出すと、一番問題となるのが
同時に複数のユーザで利用した時の対処です。Excel はそのような
使用を想定していませんので、ファイルが壊れる確率が上がります。

あとは Excel は誰でも自由に編集できるので、ルールに従って
保存しておいたデータを簡単に編集されてしまうという事です。
(データベースなら SQL でルールに従った処理をする事が前提に
なります。)

それ以外は作れなくもない(ざっと聞いて方向性がぼんやり頭に浮かぶ)
レベルの話だと思います。

あと、引っ掛かるとすればネットワーク越しの処理がローカルの
処理と違う面とか、セキュリティ(アクセス権)とかかと。