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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで次々と画像を表示させたい
Excel(エクセル)
-
エクセル フォルダの画像を画像名で検索して貼り付け
Excel(エクセル)
-
Excel セルに入力した画像名からフォルダの画像を自動表示させたい
Excel(エクセル)
-
-
4
マクロで画像挿入→エラー「リンクされたイメージを表
Excel(エクセル)
-
5
Excelで数字を入れたら対応する図を呼び出したい
Excel(エクセル)
-
6
エクセルのマクロで特定フォルダ内のJPGファイルを検索して開きたいので
Excel(エクセル)
-
7
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
8
エクセルのセルに指定画像(.jpg)を自動で貼り付けたいです。
Excel(エクセル)
-
9
EXCELで別シートのセル内に画像の貼り付けをしたいのですが・・・
Excel(エクセル)
-
10
【マクロ】でセルと同名の画像を表示させる
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
大学2年生 女子 性欲は一番強...
-
Googleアカウント【通常とは異...
-
ベンチプレスとスミスマシンベ...
-
スマホから知らない音楽が勝手...
-
使わなくなったDS、3DSソフトを...
-
車のナンバーで思いつく釣りに...
-
加太大波止のローカルルールに...
-
iPhone13プロマックスを紛失し...
-
もっとも細い釣り糸って何号で...
-
緊急お願いします レポート文字...
-
asmrの音量
-
皆さんおはようございます、タ...
-
助けて下さい 恥ずかしながら「...
-
エアーマックスの空気が左だけ...
-
怖くてテトラに乗れません・・...
-
シーバスは日中に釣れますか?
-
穴釣り の 穴場
-
男性が勃たない状況は?
-
逗子 小坪港周辺~逗子浄水管理...
-
浜名湖ボートフィッシングの釣...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ベンチプレスとスミスマシンベ...
-
大学2年生 女子 性欲は一番強...
-
加太大波止のローカルルールに...
-
車のナンバーで思いつく釣りに...
-
使わなくなったDS、3DSソフトを...
-
スマホから知らない音楽が勝手...
-
Googleアカウント【通常とは異...
-
釣りって低レベルな頭の悪い人...
-
この画像にムラムラする年齢は...
-
緊急お願いします レポート文字...
-
車の希望番号でいいのお教えく...
-
iPhone13プロマックスを紛失し...
-
男性が勃たない状況は?
-
テトラのカニを取るには
-
下田・鍋田浜では何が釣れますか?
-
asmrの音量
-
もっとも細い釣り糸って何号で...
-
スーパーロボット対戦αの2週目...
-
どっちのハリスがより強いですか?
-
ジョイサウンドマックスの、分...
おすすめ情報