エクセルの画像ファイル名のセルをファイル名でなく
ファイル名の画像を「セルと画像を連動させて」表示させる方法ありますか?
セルの大きさは画像ファイルが表示できるサイズに調整して表示してほしいです。
手元のエクセルファイルには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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルのセルに指定画像(.jpg)を自動で貼り付けたいです。
Excel(エクセル)
-
エクセルに張り付けた写真のファイル名が見たい
Microsoft ASP
-
Excel セルに入力した画像名からフォルダの画像を自動表示させたい
Excel(エクセル)
-
-
4
Excelのパスが格納されている列の隣の列に画像を自動で表示させたい
その他(Microsoft Office)
-
5
エクセル マクロ 相対パスから画像を読み込みたいです。
その他(Microsoft Office)
-
6
エクセル フォルダの画像を画像名で検索して貼り付け
Excel(エクセル)
-
7
Excelで数字を入れたら対応する図を呼び出したい
Excel(エクセル)
-
8
エクセル マクロ フルパスから画像を読み込む
その他(Microsoft Office)
-
9
【マクロ】でセルと同名の画像を表示させる
その他(Microsoft Office)
-
10
マクロでセルに入れたファイル名の画像を隣のセルに読み込む
その他(Microsoft Office)
-
11
エクセルで次々と画像を表示させたい
Excel(エクセル)
-
12
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
13
マクロで画像挿入→エラー「リンクされたイメージを表
Excel(エクセル)
-
14
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
15
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
16
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
17
Pictures.Insertメソッド⇒Shapes.AddPictureメソッドに変更したいです。
Visual Basic(VBA)
-
18
EXCELで別シートのセル内に画像の貼り付けをしたいのですが・・・
Excel(エクセル)
-
19
エクセル関数で画像を呼び出す方法ありますか?
Windows Vista・XP
-
20
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルをクリック⇒そのセルに入力...
-
対象セル内(複数)が埋まった...
-
エクセル 足して割る
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
Excelのチェックボックスの使い...
-
エクセル オートフィルタで絞...
-
Excelで住所を2つ(町名迄と番...
-
セルに特定の色が付いていたら...
-
枠に収まらない文字を非表示に...
-
Excel:指定セル以下全てのセル...
-
貼り付けで複数セルに貼り付けたい
-
EXCEL VBA セルに既に入...
-
excelの特定のセルの隣のセル指...
-
エクセルの一つのセルに複数の...
-
Excelで、「特定のセル」に入力...
-
Excelでのコメント表示位置
-
【Excel】 セルの色での判断は...
-
エクセルで縦に1112223...
-
セルの高さ(行高)を求めるには?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
対象セル内(複数)が埋まった...
-
Excelで数式内の文字色を一部だ...
-
セルをクリック⇒そのセルに入力...
-
Excelでのコメント表示位置
-
エクセル 足して割る
-
excelのCOUNTIF関数で、『範囲=...
-
EXCEL VBA セルに既に入...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
(Excel)数字記入セルの数値の後...
-
エクセルの一つのセルに複数の...
-
【Excel】 セルの色での判断は...
-
Excel2003 の『コメント』の編...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
複数のセルのいずれかに数字が...
-
枠に収まらない文字を非表示に...
-
excelの特定のセルの隣のセル指...
おすすめ情報