![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
エクセルの画像ファイル名のセルをファイル名でなく
ファイル名の画像を「セルと画像を連動させて」表示させる方法ありますか?
セルの大きさは画像ファイルが表示できるサイズに調整して表示してほしいです。
手元のエクセルファイルには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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
エクセルのセルに指定画像(.jpg)を自動で貼り付けたいです。
Excel(エクセル)
-
エクセルに張り付けた写真のファイル名が見たい
Microsoft ASP
-
エクセル フォルダの画像を画像名で検索して貼り付け
Excel(エクセル)
-
-
4
Excel セルに入力した画像名からフォルダの画像を自動表示させたい
Excel(エクセル)
-
5
Excelで数字を入れたら対応する図を呼び出したい
Excel(エクセル)
-
6
エクセル マクロ 相対パスから画像を読み込みたいです。
その他(Microsoft Office)
-
7
Excelのパスが格納されている列の隣の列に画像を自動で表示させたい
その他(Microsoft Office)
-
8
エクセル マクロ フルパスから画像を読み込む
その他(Microsoft Office)
-
9
マクロでセルに入れたファイル名の画像を隣のセルに読み込む
その他(Microsoft Office)
-
10
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
11
マクロで画像挿入→エラー「リンクされたイメージを表
Excel(エクセル)
-
12
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
13
エクセル マクロ写真帳に一括で写真を張り付けたいです。
Visual Basic(VBA)
-
14
【ワード】挿入した画像のファイル名を知る方法?
Word(ワード)
-
15
エクセルで次々と画像を表示させたい
Excel(エクセル)
-
16
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
17
【マクロ】でセルと同名の画像を表示させる
その他(Microsoft Office)
-
18
【EXCEL VBA】ダブルクリックでセルのサイズに合わせて画像を挿入に機能を追加したいです。
Visual Basic(VBA)
-
19
VBAで選択した画像を貼り付けたい
Excel(エクセル)
-
20
Pictures.Insertメソッド⇒Shapes.AddPictureメソッドに変更したいです。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの複数条件の関数
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
Excelで数式内の文字色を一部だ...
-
エクセルのセルの枠を超えて文...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
【Excel】 セルの色での判断は...
-
枠に収まらない文字を非表示に...
-
エクセル オートフィルタで絞...
-
Excelでのコメント表示位置
-
対象セル内(複数)が埋まった...
-
エクセル 足して割る
-
(Excel)数字記入セルの数値の後...
-
EXCEL VBA セルに既に入...
-
数式を残したまま、別のセルに...
-
エクセルの書式設定の表示形式...
-
エクセルで住所と建物名を分け...
-
エクセルの一つのセルに複数の...
-
Excelの関数で、性別が男なら『...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けで複数セルに貼り付けたい
-
【エクセル】IF関数 Aまたは...
-
Excelで数式内の文字色を一部だ...
-
エクセルで指定したセルのどれ...
-
(Excel)数字記入セルの数値の後...
-
枠に収まらない文字を非表示に...
-
セルをクリック⇒そのセルに入力...
-
Excelでのコメント表示位置
-
対象セル内(複数)が埋まった...
-
【Excel】 セルの色での判断は...
-
エクセル オートフィルタで絞...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
Excel 例A(1+9) のように番地の...
-
エクセルのセルの枠を超えて文...
-
エクセル 足して割る
-
excelの特定のセルの隣のセル指...
-
エクセルの一つのセルに複数の...
-
Excel for Mac使用中ポインタが...
-
エクセルで住所と建物名を分け...
-
EXCEL VBA セルに既に入...
おすすめ情報