VBAにて写真貼り付け

質問

EXCEL2010を使用しています。
Ｄ3に於いて名前を選択できるようにしています。Ｄ3に入力する名前と同一の写真（JPG)がDISK TOP上フォルダー内に複数あります。
Ｄ3で名前選択時,該当する写真をA5:M29に表示したい。
以下のコードは他の方が使われてるコードを参考にしたもので、※印の場所でエラーとなります何が
原因なのか？他の部分も合わせ教えて下さい。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then
myPath = "C:\Users\Users\DeskTop\PHOT"
myFile = myPath & Range("D3").Text & ".jpg"
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 7) = "Picture" Then
sh.Delete
End If
Next
Range("A5:M29").Select
myTop = Selection.Top
myLeft = Selection.Left
myWidth = Selection.Width
myHeight = Selection.Height
※ActiveSheet.Pictures.Insert(myFile).Select
With Selection
.Top = myTop
.Left = myLeft
.Width = myWidth '画像の幅
.Height = myHeight '画像の高さ
End With
Range("D3").Select
End If
End Sub

回答No.1

eden3616 · ベストアンサー

この手の質問ではエラー内容を記述するようにしましょう。

>myPath = "C:\Users\Users\DeskTop\PHOT"
>myFile = myPath & Range("D3").Text & ".jpg"

原因は上記箇所にあります。
例えば、このmyPath（フォルダパス）で、D3に「TEST」と入力すれば
myFileの中身は「C:\Users\Users\DeskTop\PHOTTEST.jpg」このようになります。
目的は「C:\Users\Users\DeskTop\PHOT\TEST.jpg」でしょうから以下の修正の何れかの方法で修正してください。
（注）(1)～(3)の全て行うのではなく3(+1)通りありますので、
　　　何れかのお好きな方法で修正願います）

(1)コードをそのままで使用する場合
　D3セルのファイル名の先頭に「\」を付けて入力する。
　上記例だと「\TEST」と入力してください。

(2)フォルダパスの最後に「\」を付けて設定する
　>myPath = "C:\Users\Users\DeskTop\PHOT"
　　　　　　　　↓
　myPath = "C:\Users\Users\DeskTop\PHOT\"
としてください。

(3)変数、セルの内容はそのままにコードで対応する（2通り）
　>myPath = "C:\Users\Users\DeskTop\PHOT"
　>myFile = myPath & Range("D3").Text & ".jpg"
　上記コードの「間」に以下のコードを追加してください。
　If Not myPath Like "*\" Then myPath = myPath & "\"

　または、

　>myFile = myPath & Range("D3").Text & ".jpg"
　　　　　　　　　↓
　myFile = myPath & "\" & Range("D3").Text & ".jpg"

お礼

ありがとうございました。無地解決しました

補足

ご回答いただき有難うございます。ご指摘通り修正しましたが
PicturesクラスのInsertプロパティを取得出来ません（実行時エラー1004）
※ActiveSheet.Pictures.Insert(myFile).Selectにて停止してしまいます。
フォルダパス＆ファイル名を確認しても間違い無いのですが

回答No.2

imogasi

>Ｄ3に於いて名前を選択できるようにしています
どういうこと？選択はコンボやリストボックスを使うのではないか？
たとえば、複数ファイルを候補として表示し、すなわちファイル名で先頭から「Picture」のものを表示して、１つを選ばせるとか？その際ある１のフオルダを決めること（簡単にするため、手作業ででも、集めること）。
ほかに拡張子が「.Jpg」のものらしいが。
＞Ｄ3で名前選択時,該当する写真をA5:M29に表示したい。
写真は同時複数選択をありに、考えるのか？
こんな、質問者に取って、適当かどうか判らんコードを載せるより、VBSCRIPTのフォルダ内のファイルを限定して探すプログラムをWEBで探せばよい。検索語は「VBSCRIPT　フォルダ　ファイル　（を列挙）」でどうかな。「For　Each　Next」で探すのがコード的にやさしかろう。たくさんWEBにコード例があるよ。過去質問もたくさんあった。別方法としてDir関数でもできる。
この質問の例示コードを捨てて考えた方がよい。
セル１個に写真を１枚なら、一つのセルのLEFT,TOP、WIDTH、HEIGHTを、シートに写真挿入後変えたら（設定したら）よい。
ーー
読みなおすと、セルのChangeイベントでTargetでファイルを選択させているようだが、小手先にすぎると思う。Changeイベントの使い方はむつかしいと思う（初心者には範囲や取り消しなど手当てがむつかしい）。
自分だけが趣味で使うなら、どうしようが勝手だが。