excelにて。VBAで、フォルダ内の画像を一覧の横に表示させたい。
過去、似たような質問があり、ここに書かれているVBAを試したところ、やりたい事とかなり近かったです。
http://oshiete.goo.ne.jp/qa/2880877.html
しかしコレの場合、ある一つのセルへの入力に対して、一つの画像を表示する、といった形になっています。私がやりたいのは、さらに以下のようなことです。
1.あるシートのA列に、画像名の一覧がある。(マックス500行程度)
2.マクロを実行すると、A列と同名の画像が、あるフォルダから呼び出されてB列に表示される。
(A2と同名の画像がB2へ、A3と同名の画像がB3へ、ということ)
※参照フォルダは固定でOKです。
※表示サイズはサムネイル程度の小さなものでOKです。前述リンク先のVBAのように、任意指定できれば尚可。
前述のリンク先にあるVBAを自分で書き換えられればよいのですが、どうすればセルを可変にできるのかわかりません。(それとも下方向に向けて反復するといった形に書き換えるんですかね??)
当方はVBAできません。ネットで拾ったものをコピペして使っているレベルです。
バージョンは2002です。よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
ご質問に書かれた
>あるシートのA列に、画像名の一覧がある。(マックス500行程度)
のようになっていない,たとえばA1やA2などのセルが空欄になっていて画像名が記入されていない状況が想定されます。
変更前:
if dir(p & h) <> "" then
変更後:
if h <> "" and dir(p & h) <> "" then
としてみます。
まだダメだったときは。
どんなデータも一つも通らずダメなのか,特定のセル番地,特定の画像名などでダメなのか,エラーの出る詳しい状況を何でも全て教えてください。
VBE画面でデバッグを行い,エラーが出た時点でhやらpにどんな内容が実際に入っていたのかを確認し,教えてください。
また念のためご利用のエクセルのバージョンについてもきちんと教えてください。
#基本ですがもしも「デバッグとは何ですか,どうしたらいいですか」について,やり方を知らない判らないときは必要に応じて別途ご相談を投稿してみてください。
ありがとうござました。
まさにそれ、空欄セルがあったからでした。
こちらのマヌケなミスで、お時間おかけして申し訳ありませんでした。
見事に画像が現れて、感動いたしました。
どうもありがとうございました!
No.3
- 回答日時:
>当方はVBAできません。
ネットで拾ったものをコピペして使っているレベルです。ってことですから
>p = "c:\あるフォルダ\"
もそのままのような気がする・・・
No.1
- 回答日時:
sub macro1()
dim p as string
dim h as range
p = "c:\あるフォルダ\"
activesheet.pictures.delete
for each h in range("A1:A" & range("A65536").end(xlup).row)
if dir(p & h) <> "" then
with activesheet.pictures.insert(p & h)
.name = h
.top = h.offset(0, 1).top
.left = h.offset(0, 1).left
’不要なら次の2行をコメントアウト
.width = h.offset(0, 1).width
.height = h.offset(0, 1).height
end with
end if
next
end sub
など。
この回答への補足
早速ありがとうございます。
やってみたところ、マクロを実行するとエラーが出ます。
「With ActiveSheet.Pictures.Insert(p & h)」にデバックの黄色が出ているのですが、何が問題なんでしょうか????
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 毎日手作業で時間がかかって、泣きたいです、、、VBAのプロの方、助けてください。。。 3 2022/10/25 04:26
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Visual Basic(VBA) ChatGPTに作らせたい Excel VBA 1 2023/04/05 19:56
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/04/21 13:46
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
- Excel(エクセル) VBAで複数のExcelを1つのExcelにまとめる 1 2022/09/04 11:08
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルで次々と画像を表示させたい
Excel(エクセル)
-
エクセル フォルダの画像を画像名で検索して貼り付け
Excel(エクセル)
-
マクロで画像挿入→エラー「リンクされたイメージを表
Excel(エクセル)
-
-
4
Excel セルに入力した画像名からフォルダの画像を自動表示させたい
Excel(エクセル)
-
5
Excelで数字を入れたら対応する図を呼び出したい
Excel(エクセル)
-
6
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
7
EXCELで別シートのセル内に画像の貼り付けをしたいのですが・・・
Excel(エクセル)
-
8
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
9
エクセルのマクロで特定フォルダ内のJPGファイルを検索して開きたいので
Excel(エクセル)
-
10
エクセルのセルに指定画像(.jpg)を自動で貼り付けたいです。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
大学2年生 女子 性欲は一番強...
-
ベンチプレスとスミスマシンベ...
-
加太大波止のローカルルールに...
-
バス釣りでラインブレイクした...
-
車のナンバーで思いつく釣りに...
-
全二重通信
-
車の希望番号でいいのお教えく...
-
石垣島でレンタル釣竿
-
iPhone13プロマックスを紛失し...
-
太閤立志伝の、弁舌のあげかた
-
釣りって低レベルな頭の悪い人...
-
緊急お願いします レポート文字...
-
スマホから知らない音楽が勝手...
-
潮干狩り用の鋤簾を売ってると...
-
男性が勃たない状況は?
-
メガバス干支カラーについて。
-
海までの距離について
-
愛知県の釣具屋さん。
-
コンビのパワーマックスV
-
3DS すれちがい合戦について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
大学2年生 女子 性欲は一番強...
-
ベンチプレスとスミスマシンベ...
-
Googleアカウント【通常とは異...
-
車のナンバーで思いつく釣りに...
-
加太大波止のローカルルールに...
-
スマホから知らない音楽が勝手...
-
使わなくなったDS、3DSソフトを...
-
車の希望番号でいいのお教えく...
-
男性が勃たない状況は?
-
釣りって低レベルな頭の悪い人...
-
マダイ初心者
-
2,3月の島根県のショアからの...
-
この画像にムラムラする年齢は...
-
ナイキのエアーマックスは膝に...
-
釣り人の半数は釣りでなく邪魔...
-
助けて下さい 恥ずかしながら「...
-
初めまして!タックルベリーに...
-
iPhone13プロマックスを紛失し...
-
どっちのハリスがより強いですか?
-
ディズニーキャラクターで
おすすめ情報