![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
エクセルの画像ファイル名のセルをファイル名でなく
ファイル名の画像を「セルと画像を連動させて」表示させる方法ありますか?
セルの大きさは画像ファイルが表示できるサイズに調整して表示してほしいです。
手元のエクセルファイルには100の画像ファイル名が書かれたセルがあります。これを一括で処理したいです。
画像ファイル名のセルの置き換えでなく、となりのセルに画像を表示する方法でもOKです。
エクセルで「セルと画像を連動方法」は以下の記事
https://dekiru.net/article/22343/
で解説された内容と同じことを複数の画像について一括してやりたいです。
よろしくお願いします
No.1ベストアンサー
- 回答日時:
こんにちは
雰囲気のみの丸投げ状態なので、詳細は勝手に解釈しました。
ですので、要領としてのサンプルのみです。
以下は、A列(A2セル以降)に画像ファイルのフルパス(=ファイル名ではありません)が入力されているとして、B列の各セルにフィットするようにその画像を表示するものです。
※ ファイル名がフルパスではなく「ファイル名」のみの場合は、指定範囲からファイルを検索するなどの処理が必要になるでしょう。
※ 入力値のチェック等は一切省いてまありすので、パスが間違っていたり、ファイルが存在しない等の場合にはエラーになりますのでご注意。
ご参考までに。
Sub Q_13434401()
Dim rw As Long, sp As Shape, c As Range
Dim w As Double, h As Double, r As Double
For rw = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Set c = Cells(rw, 2)
Set sp = ActiveSheet.Shapes.AddPicture( _
Cells(rw, 1).Text, 0, 1, 0, 0, 0, 0)
sp.ScaleHeight 1, 1
sp.ScaleWidth 1, 1
sp.LockAspectRatio = 1
w = sp.Width: h = sp.Height
r = Application.Min(c.Width / w, c.Height / h)
sp.Width = w * r
sp.Left = c.Left + (c.Width - w * r) / 2
sp.Top = c.Top + (c.Height - h * r) / 2
sp.Placement = 1
Next rw
End Sub
回答ありがとうございます
助かります!
画像ファイル名のセルは画像ファイルのフルパスにするのですね。了解です。修正しました。
>セルの大きさは画像ファイルが表示できるサイズに調整して表示
でなく
>B列の各セルにフィットするようにその画像を表示するもの
ですね。
横幅は画像ファイルの最大値を決めて予め手作業で準備するので、
セルの大きさ(高さ)を画像ファイルにより調整したいですが、できますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) EXCELマクロでandroidタブレットから取りんだJPEGファイルをうまくセルに貼り付けられない 2 2022/07/31 15:03
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルで日付が入っているセルを一定の法則に従って違うセルに表示したい 2 2022/04/04 17:16
- Excel(エクセル) 【EXCEL】=セル&セルが上手く表示できない。 7 2022/09/04 21:32
- Windows 10 Win10PCのExploreで大量の画像ファイルを表示させる際に、画像の中身を表示させる方法 2 2023/06/12 06:55
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルのセルに指定画像(.jpg)を自動で貼り付けたいです。
Excel(エクセル)
-
エクセルに張り付けた写真のファイル名が見たい
Microsoft ASP
-
エクセル フォルダの画像を画像名で検索して貼り付け
Excel(エクセル)
-
-
4
Excel セルに入力した画像名からフォルダの画像を自動表示させたい
Excel(エクセル)
-
5
Excelのパスが格納されている列の隣の列に画像を自動で表示させたい
その他(Microsoft Office)
-
6
エクセル マクロ 相対パスから画像を読み込みたいです。
その他(Microsoft Office)
-
7
Excelで数字を入れたら対応する図を呼び出したい
Excel(エクセル)
-
8
エクセル マクロ フルパスから画像を読み込む
その他(Microsoft Office)
-
9
マクロでセルに入れたファイル名の画像を隣のセルに読み込む
その他(Microsoft Office)
-
10
マクロで画像挿入→エラー「リンクされたイメージを表
Excel(エクセル)
-
11
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
12
エクセルで次々と画像を表示させたい
Excel(エクセル)
-
13
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
14
【マクロ】でセルと同名の画像を表示させる
その他(Microsoft Office)
-
15
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
16
エクセル マクロ写真帳に一括で写真を張り付けたいです。
Visual Basic(VBA)
-
17
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
18
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
19
Pictures.Insertメソッド⇒Shapes.AddPictureメソッドに変更したいです。
Visual Basic(VBA)
-
20
Excel VBA マクロ 画像の貼り付け
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで数式内の文字色を一部だ...
-
対象セル内(複数)が埋まった...
-
エクセルで指定したセルのどれ...
-
エクセル 足して割る
-
エクセル “13ヶ月”を“1年1ヶ月...
-
Excelでのコメント表示位置
-
excelのCOUNTIF関数で、『範囲=...
-
エクセルの一つのセルに複数の...
-
【Excel】 セルの色での判断は...
-
貼り付けで複数セルに貼り付けたい
-
【エクセル】IF関数 Aまたは...
-
EXCEL VBA セルに既に入...
-
エクセルのセルの枠を超えて文...
-
複数のセルのいずれかに数字が...
-
枠に収まらない文字を非表示に...
-
セルの高さ(行高)を求めるには?
-
セルをクリック⇒そのセルに入力...
-
Excel2003 の『コメント』の編...
-
EXCELのセルの中の半角カンマの...
-
Excelで教えてください。 バー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
セルをクリック⇒そのセルに入力...
-
Excelで数式内の文字色を一部だ...
-
エクセル 足して割る
-
対象セル内(複数)が埋まった...
-
貼り付けで複数セルに貼り付けたい
-
Excelでのコメント表示位置
-
エクセルのセルの枠を超えて文...
-
エクセル オートフィルタで絞...
-
エクセルの一つのセルに複数の...
-
EXCEL VBA セルに既に入...
-
【Excel】 セルの色での判断は...
-
(Excel)数字記入セルの数値の後...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
excelのCOUNTIF関数で、『範囲=...
-
Excel2003 の『コメント』の編...
-
枠に収まらない文字を非表示に...
-
Excelで住所を2つ(町名迄と番...
-
複数のセルのいずれかに数字が...
おすすめ情報