[[20170614162820]]　『指定フォルダ内にある画像を表示する』（jun）　ページの最後に飛ぶ

『指定フォルダ内にある画像を表示する』（jun）

地図画像というフォルダに4桁数字タイトルの画像が数百件入っています。
地図検索というエクセルファイルのB2に4桁数字を入力すると
C19のセルに地図画像フォルダから抽出し画像表示させたいです。

自分で作ったものではなく大変恐縮ですが
下記のコードだと上手く表示できません。
どの様にしたら良いでしょうか・・・

Private Sub Worksheet_Change(ByVal Target As Range)
Const trgR As String = "B2"
Const insR As String = "C19"
Const path As String = "A:\地図画像"
Const pic As String = ".jpg"
Dim shp As Shape
Dim buf As String

    If Target.Address(0, 0) = trgR Then
        For Each shp In ActiveSheet.Shapes
            If Not Intersect(Range(insR), Range(shp.TopLeftCell, _
                        shp.BottomRightCell)) Is Nothing Then
                shp.Delete
            End If
        Next
        Range(insR).Select
        buf = Dir(path & Target.Value & pic)
        If buf <> "" Then
            ActiveSheet.Pictures.Insert (path & Target.Value & pic)
        Else
            MsgBox "指定したファイルがありません"
        End If
    End If
    Target.Offset(1, 0).Select
End Sub

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 全部は見ていないが。

 >Const path As String = "A:\地図画像" 
 >Const pic As String = ".jpg" 
 で、
 >path & Target.Value & pic
 だとフォルダ名とファイル名の間の「\」が無いのではないか？
 >Const path As String = "A:\地図画像\" 
 とするとどうなるだろうか？

（ねむねむ） 2017/06/14(水) 16:36

ねむねむ様

ありがとうございます！！
おっしゃる通りでした。
大変助かりました。
（ne） 2017/06/14(水) 16:44

コメント返信：

[ 一覧(最新更新順) ]

[[20170614162820]] 『指定フォルダ内にある画像を表示する』（jun） ページの最後に飛ぶ

[[20170614162820]]　『指定フォルダ内にある画像を表示する』（jun）　ページの最後に飛ぶ