[[20190819134711]]　『エクセルファイルへの画像貼り付けについて(品番戟x（K）　ページの最後に飛ぶ

『エクセルファイルへの画像貼り付けについて(品番検索)』（K）

毎回違うエクセルファイルに、掲載されている画像品番を
GIF画像フォルダから検索し、該当画像を貼り付けたい。

検索する画像品番掲載場所と画像貼り付け場所のセルは固定です。

例）
01フォルダの12345678.gifを検索して
その画像をエクセルの1つのセルに張り付ける。

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

http://www.excel.studio-kazu.jp/kw/20120313090248.html
なんかがすごく参考になるかと思います。でわ。。。m(_ _)m
（隠居じーさん） 2019/08/19(月) 17:19

＞隠居じーさんさん

ありがとうございます、参考にさせていただきました。
参考のURLを拝見しましたが、うまくできず再度質問いたします。

例を挙げた具体的な内容としましては、下記のようなマクロができればと思っています。

例）
ある特定の列のセル（例：Z列）に、J列の品番を参照して、
ネットワーク上の特定のフォルダにある同名の品番がついた画像を挿入する
（画像がないセルもあるので、その場合は弾きたい）

このようなことはマクロで対応できるのでしょうか？

初心者であまりわかっておらず大変申し訳ありませんが、
ご回答お待ちしております。

（K） 2019/08/20(火) 15:50

 Sub test()
    Const cPATH = "c:\01フォルダ\"
    Dim cFile As String
    Dim i As Long

    For i = 1 To Cells(Rows.Count, "J").End(xlUp).Row
        cFile = Dir(cPATH & Cells(i, "J").Text & ".gif")
        If cFile <> "" Then
            With ActiveSheet.Shapes.AddPicture(cPATH & cFile, msoFalse, msoTrue, Cells(i, "Z").Left, Cells(i, "Z").Top, Cells(i, "Z").Width, Cells(i, "Z").Height)
                .Line.Weight = 1
            End With
        Else
            Cells(i, "Z").Value = "画像なし"
        End If
    Next i
 End Sub
（???） 2019/08/20(火) 16:33

 こんばんは＾＾既に適切な回答があったようなので、書き出し部分は
テキトーです、フォルダを選択する一例など、。。。m(_ _)m
Option Explicit
Sub OneInstance()
    Dim Fd As String
    Dim Fnm As String
    Dim Mpc As Object
    MsgBox "次で画像が格納されているフォルダを選択してください"
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            Fd = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With
    Fnm = Dir(Fd & "*.gif")
    If Fnm = "" Then Exit Sub
    Set Mpc = ActiveSheet.Shapes.AddPicture(Fd & Fnm, 0, -1, 30, 30, 72, 72)
    Set Mpc = Nothing
End Sub
（隠居じーさん） 2019/08/21(水) 00:04

コメント返信：

[ 一覧(最新更新順) ]

[[20190819134711]] 『エクセルファイルへの画像貼り付けについて(品番戟x（K） ページの最後に飛ぶ

[[20190819134711]]　『エクセルファイルへの画像貼り付けについて(品番戟x（K）　ページの最後に飛ぶ