5列目に画像のファイルパスが記載されているエクセルシート。 ファイルがあれば、末尾に画像のサムネイルを挿入。 ファイルが無ければ、No Imageと記入するマクロ。 画像ファイルの管理は、ファイル名だけでは管理しづらいもの。サムネイルがあればわかりやすいと思って作ってみた。 Excel_file_image ソースコード Sub AddPictureSampLinkPaste() 'エラー処理構文---------------------------------- On Error GoTo AddPictureSampLinkPaste_err '//------------------------------------------------ '宣言--------------------------------------------- Dim myFileName As Stri