[[20190819134711]] 『エクセルファイルへの画像貼り付けについて(品番戟x(K) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『エクセルファイルへの画像貼り付けについて(品番検索)』(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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.