VBAマクロ、画像の自動読込

質問

マクロ（excel2013）の方で、指定フォルダに指定ファイルを配置しておけば、
自動でワークシートに読み込んで表示する、という設定にしたいです。
宜しくお願いします。

回答No.2

imogasi · ベストアンサー

#1です。＃１に追加。
（１）エクセルに画像挿入したファイルの名前の後尾に１文字でも追加して、ファイル名を変えて、エクセルに画像挿入したことのしるしにする。ファイルは元のフォルダにあるまま。
次の機会にこのファイル（１文字追加されたファイル名のもの）を読んだら、エクセルに画像挿入処理をしない（読み飛ばす）。
（２）他の方法として、ファイルの日時で判断する。これについて、前に読んだことを残す、ふさわしいファイル属性の項目が無いように予想するが、勉強してみて。。
ーーー
丸投げしていることから、＃１の文章ヒントだけでは何もできないかもしれないので、コード例を挙げてみる。
エクセルシートで１列に下方向に写真を配置していく例。
フォルダ名、ファイル名は当然自分のケースに修正すること。
下部に添えたモジュールTest02()は、テストのとき張り付けた多数の画像を一斉削除したい場合があり、重宝しそうなので、ついでに載せる。
写真は１枚１セルに入れている。セルの大きさは見やすいような大きさに前もって（実行するに先立って）シート上で手動設定しておくものとする。VBAでもできるが課題を増やさぬようにするため略。
Sub test01()
Set objfs = CreateObject("scripting.filesystemobject")
Set objfolder = objfs.getfolder("C:\Users\ｘｘｘ\Pictures")
ActiveSheet.Range("A3").Select
For Each objfile In objfolder.Files
sBaseName = objfs.GetExtensionName(objfile)
If sBaseName = "JPG" Then
'MsgBox sBaseName
'MsgBox objfile.Name
w = ActiveCell.Width
w = ActiveCell.Height
Set myShape = ActiveSheet.Shapes.AddPicture(Filename:=objfile, _
LinkToFile:=False, SaveWithDocument:=True, _
Left:=Selection.Left, Top:=Selection.Top, Width:=w, Height:=h)

With myShape
.ScaleHeight 1, msoTrue
.ScaleWidth 1, msoTrue
.LockAspectRatio = msoTrue
.Height = ActiveCell.Height - 5 ' 画像高さ = セルの高さ－５
End With
ActiveCell.Offset(1, 0).Activate

End If
Next
End Sub
ーーー
Sub test02()
ActiveSheet.DrawingObjects.Delete
End Sub
みなWEBにある例を多少修正しただけのもの。

お礼

ありがとうございます

回答No.1

imogasi

>指定フォルダ（Aと称する）に指定ファイルを配置しておけば・・
「>読み込んで表示された」画像は、（自動で、VBAで、質問者にとって別の）決まったフォルダ（Bと称する）に移して入れる。
追加される画像は、指定されたフォルダ（A)に必ず（たぶん人間が）いれる。
を実行できるなら、下記のことをできればよいと思うがよいか。
すると、課題は
（１）指定フォルタ（A)から画像指定ファイルをBに移す。
（２）Bフォルダのすべてのファイルを順次読み取りエクセルのシートに画像として挿入する。
その後そのファイルを、（１）の作業をする。
こういう風に考えを整理すること。
Aフォルダにはシートに読み込んだ「しるし」を付ける「普通の方法」は無いし、シートに読みこんであるファイルを調べて、Aの画像との関連で読み込んでないものを判別するのは複雑な方法になろう。
ーー
勉強点は２つ
（１）１指定ファイルを別フォルダに移す（Move)コード
（２）Bフォルダのファイルを１つずつ読んでシートに張り付けるコード
　　　「貼り付ける｝部分は、マクロの記録でもやってみること。
（１）（２）はWEBでVBScript関連で照会して勉強のこと。
（１）はhttp://www.happy2-island.com/vbs/cafe02/capter00209.ｓｈｔｍｌなど
（２）など頻出質問の１つだ。Ｆｏｒ　Ｅａｃｈの問題。
この質問は丸投げである。マクロの記録ぐらい質問の前にやって、また上記のごとく、質問をサブ要素に砕く練習をしてみること
ーー
（１）シート上での配置状況とか質問に書いてない
（２）シート上の配置順序を注文されると、むつかしくなる。
質問に書いてないので、そくっりの回答は誰にもできないだろう。

お礼

ありがとうございます