• 締切済み

【マクロ】でセルと同名の画像を表示させる

こんばんわ。マクロについてお聞きしたいです。よろしくお願いします。 [エクセル] 2003or2007 [内容] セルと同じ名前のついている画像を指定した場所に貼り付け、簡単な画像付きの順位表を作成したいと思っています。 また、画像は特定なフォルダにありエクセルと画像は離れている状態とします。 [詳細] ※A1から下に1位2位・・・と順位通りになっているとします。 セル　名前　　画像位置 -------------------------------------------------------- A1　　りんご　C1～F5に画像 A10　 ばなな　C10～F15に画像 A20　 みかん　C20～F25に画像 上から順に 1位　りんご画像 2位　ばなな画像 3位　みかん画像が表示できれば嬉しいのですが。 欲を言えば・・・画像表示サイズも「縦×横」の指定や倍率の指定が できると助かります。 こんなことってできますでしょうか？ ご鞭撻よろしくお願い致します。

みんなの回答

  • mitarashi
  • ベストアンサー率59% (574/965)
回答No.2

いまいち御趣旨が分かりかねますが、セルに入れたファイル名の画像を隣のセルに読み込む例を、回答しています。 http://okwave.jp/qa5167607.html セルにいれた値が「りんご」で、そのファイルがc:\りんご.jpgにあるとすると、 Set myPic = ActiveSheet.Pictures.Insert("C:\" & myCell.Value & ".jpg")という様に改造すれば良いでしょう。 外していたらすみません。

hiro7th
質問者

お礼

少しずつ理解して行ってみます。いつも「マクロ記憶」で手動を記憶しているだけだとマクロ文を理解するのに時間がかかりそうです。 もう少し勉強してみます。ありがとうございました。

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.1

マクロで取り組むにしても下記のＵＲＬを参考にして、それらを理解したうえでマクロに取り組むことになるでしょう。勉強してください。

参考URL：
http://officetanaka.net/excel/function/tips/tips14.htm
hiro7th
質問者

お礼

もう少しマクロを理解して挑んでみます。 ありがとうございます。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • エクセル　関数　範囲のタイトルを１つのセルに帰す

    こんなことをしたいのですが、関数でできますでしょうか？ 　　　　 　　　りんご　みかん　ばなな　　 A子　　　２　　　１　　　０　　　　りんご、みかん B子　　　０　　　０　　　１　　　　ばなな、 C子　　　１　　　１　　　１　　　　りんご、みかん、ばなな D子　　　０　　　０　　　０　　 E子　　　０　　　４　　　０　　　　みかん ・ ・ X子 例のように、A子～X子までがそれぞれりんご、みかん、ばななを買ったとき、買ったものの名前だけを、それぞれの名前と同じ行で、1つのセルに表示したいのです。果物の種類は１０個以下で、どんな順番に記入されてもかまいません。実際はX子以上にたくさんいます。 よろしくお願いします。

  • 複数のエクセルの同じセルにファイル名一括入力

    複数のエクセルファイルが同じフォルダ上にあります。 内容は全く同じで、ファイル名だけが違うものです。 そのファイルそれぞれにファイル名を一括で入力するなんて事は可能でしょうか？ たとえばりんご.xls、ばなな.xls、みかん.xls・・・とありまして、 それぞれのセルA1にりんご　ばなな　みかん　と入れたいのです。 または、それが可能なフリーソフトなどありましたら情報が欲しいです。

  • エクセル　のマクロで　複数の表を1つにまとめたい

    エクセル　のマクロで　複数の表を1つにまとめたい 下記のようなシートがあります。 Sheet1 A B C E F G I J K 1 日付　 品名 数 日付　 品名 数 日付　 品名 数 2 1/1　 みかん 100 1/2 りんご 50 1/1 バナナ 30 3 1/5　 みかん 50 1/6 りんご 25 1/7 バナナ 20 4 1/10 みかん 30 1/11 りんご 15 1/10 バナナ 10 5 1/12 りんご 30 1/11 バナナ 10 6 1/13 りんご 50 みかん・りんご・バナナのそれぞれの表をマクロで下記のような1つの表ににまとめたいのですが どのようにしたら良いかご教授お願いいたします。 （初心者なので可能であればマクロ内で’コメント付きで解説いただけると助かります） 　M N O 1 日付 品名 数 2 1/1 みかん 100 3 1/1 バナナ 30 4 1/5 みかん 50 5 1/6 りんご 25 6 1/7 バナナ 20 7 1/10 みかん 30 8 1/10 バナナ 10 9 1/11 りんご 15 10 1/11 バナナ 10 11 1/12 りんご 30 12 1/13 りんご 50 うまく説明できないのでイメージ画像を添付いたします。

  • エクセルのマクロについて

    一つのセルに以下のマクロを設定したいです。 [Aシート] A1～B30の表があります。 A1～A30セルには、有 or 無 が入力されています。 B1～B30セルには、りんご、みかん、ばなな など物の名前(重複なし)が入力されています。 [Bシート] C3セルに、AシートのAセルが"有"だったら、Bセルの値を反映させたいです。 ※例えばAシートが以下の時 ---------------------- 　　A　　B 1　有　　りんご 2　有　　みかん　 3　無　　ばなな 4　無　　いちご 5　有　　ぶどう 6　無　　ぱいん 7　有　　びわ ・ ・ ------------------------ BシートのC3セルに、AシートBセルの値を"折り返して"表示する。 　　A　　B　　C 1 2 3　　　　　　りんご 　　　　　　 みかん 　　　　　　 ぶどう 　　　　　 　びわ 4 ------------------------ OS：Windows XP sp3 エクセル：Microsoft Office Excel 2003 sp3 ご存知の方がおりましたらご教授ください。

  • 文字で指定した画像を表示するには

    エクセルについて質問です。 複数の画像の中から指定した番号の画像を 表示させることはできますか？ 例えば、1をあるセルに入力したら指定した場所にりんごの画像を表示し、 2を入力したらみかんの画像を表示というようなことです。 教えてください。 よろしくお願いします。

  • エクセルで納品書作成

    エクセルで納品書を作成しています。 まず、『Sheet1』に受注一覧表があります。 　　　Ａ　　　　Ｂ　　　　　Ｃ　　　　　 Ｄ　　　 Ｅ　　　Ｆ １　受注ID　　　顧客　　　　品名　　　　単価　　　数量　　合計 ２　100100　　あい商店　　　みかん　　　150　　　　4　　　600 ３　100100　　あい商店　　　りんご　　　150　　　　2　　　300 ４　100100　　あい商店　　　ばなな　　　200　　　　1　　　200 ５　100101　　(株)うえ　　　　みかん　　　150　　　　4　　　600 ３　100101　　(株)うえ　　　　りんご　　　150　　　　2　　　300 ４　100101　　(株)うえ　　　　ばなな　　　200　　　　1　　　200 次に、、『Sheet2』に納品書があります。 セルＡ１に受注IDを『100100』と入力すると、 自動的に、 　　　Ａ　　　　Ｂ　　　　Ｃ　　　Ｄ　　 ５　品名　　　　単価　　　数量　　合計 ６　みかん　　　150　　　　4　　　600 ７　りんご　　　150　　　　2　　　300 ８　ばなな　　　200　　　　1　　　200 と表示されるようにしたいのですが・・・。 セルＡ６～Ａ８に =IF(ISBLANK($A$1),"",VLOOKUP($A$1,Sheet1!$A$1:$F$9997,3)) セルＢ６～Ｂ８に =IF(ISBLANK($A$1),"",VLOOKUP($A$1,Sheet1!$A$1:$F$9997,4)) セルＣ６～Ｃ８に =IF(ISBLANK($A$1),"",VLOOKUP($A$1,Sheet1!$A$1:$F$9997,5)) 入力したのですが、↓↓こうなっちゃいましたo(;△;)o 　　　Ａ　　　　Ｂ　　　　Ｃ　　　Ｄ　　 ５　品名　　　　単価　　　数量　　合計 ６　りんご　　　150　　　　2　　　300 ７　りんご　　　150　　　　2　　　300 ８　りんご　　　150　　　　2　　　300 至急、助けてください(/_<。)

  • マクロで商品ごとの並び替えで一定の数を超すと改行

    (sheet1) A 　　　B 1　りんご　 　2 2　ばなな 6 3　りんご 3 4　りんご 1 5　ばなな 2 6　ばなな 4 　↓ (sheet2） 　　A B C D E F 1りんご 2 りんご 3 りんご　　1 2ばなな　　6 3ばなな 2　　　ばなな　　4 4 5 6 上記のように、sheet1の表がsheet2に転記され さらに、sheet1のB行の個数がsheet2で足して6以下は3列で転記され 6以上になると、次の行に転記される。 ようなマクロを作りたいのですが、教えていただけないでしょうか。

  • お願いします！エクセルで問題発生！

    excelで困っています。 A 　 　　　B　　　　　　　 りんご 　 私は　りんご　すきです　 ばなな　　 私は　ばなな　　すきです みかん　 私は　みかん　すきです 私は＜Ａ行＞　好きです というように、ＢにＡ行の文字列を入れるにはどうすればよいでしょうか？ よろしくおねがいします・・・

  • 【ＶＢＡ】「同じ文字を含むセルがあるならば」とやりたい

    こんばんは。 エクセル2003を使用しています。 例えば A1→「りんご」 A2→「りんご食べたい」 の場合、 「りんご」は2個以上あります としたいのですがうまくいきません。 Sub 重複() For 行 = 1 To Cells(65536, 1).End(xlUp).Row If Cells.Find(what:=Range("a" & 行), LookAt:=xlPart) Is Nothing Then Else 'あるならば MsgBox Range("a" & 行) & "は2個以上あります" End If Next End Sub これだと取得セルもカウントされてしまうため、必ずMsgBoxが表示されてしまいます。 どうすれば取得セル意外にも取得セルを含むセルがあるかを調べられるのでしょうか？ そしてこれは A1→「りんご」 A2→「りんご食べたい」 A3→「みかん」 A4→「みかんはオレンジ」 A5→「バナナ」 ・ ・ ・ と続いており 最終的には →「りんご食べたい」 →「みかんはオレンジ」 →「バナナ」 にしたいのです。 よろしくお願いします。

  • エクセル関数

    エクセル関数について下記のような表があります。 Ａ　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ Ｆ　　　　 12/1　　りんご　　9.5kg 12月度 りんご 48.0kg 12/1　　みかん　　5.0kg 12月度 みかん 25.0kg 12/1　　ばなな 5.0kg 12月度 ばなな 25.0kg 12/2　　りんご 9.5kg 12/2　　みかん 5.0kg 12/2　　ばなな 5.0kg 12/3　　りんご 9.5kg 12/3　　みかん 5.0kg 12/3　　ばなな 5.0kg 12/4　　りんご 9.5kg 12/4　　みかん 5.0kg 12/4　　ばなな 5.0kg 12/5　　りんご 9.5kg 12/5　　みかん 5.0kg 12/5　　ばなな 5.0kg Ｆ2列の式は、SUMIF($B:$B,E2,$C:$C)で、F3,F4はF2の式を下フィルしています。質問内容はF2の小計が本来47.5kgとなるべきはずが、48kgとなってしまうのは何故かということです。ご教示の程 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する