![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
あるセルをクリックするとエクセルのコメント機能のように画像が表示されるようにしたいと思います。
調べて本屋でVBAの本を読んだところ、イベント処理、ユーザーフォームに画像を表示させるという方法があるようですが
VBAに関しては全くの素人で歯が立ちません。
初心者だからと甘えていて大変恐縮ですが、立ち往生しております。
ご教授いただけたら幸いです!!
【具体的にしたい処理】
ブック-企画.xlsの シート名 表紙のA1セルをクリックすると画像”小鳥.jpg”が表示される。
【ブックの情報】
格納フォルダ:D:\見出し
ブック名:企画.xls
シート名:表紙
画像に関しては↓
【表示させる画像の情報】
格納先フォルダ:
C:\Documents and Settings\0501402499\My Documents\イメージ
ファイル名:小鳥.jpg
No.1ベストアンサー
- 回答日時:
ただ画像を表示させるだけなら、
A1セルにハイパーリンクを挿入し、リンク先のアドレスを
C:\Documents and Settings\0501402499\My Documents\イメージ\小鳥.jpg
とするだけで出来ますが、それではダメなのでしょうか?
VBAも必要無いし簡単かと思います。
どうしてもVBAでということであれば、
以下のような感じで・・・。
イメージコントロールを配置したユーザーフォームを用意する。
(フォームの名前はUserForm1、コントロールの名前はImage1とする)
フォームモジュールに以下のコードを記述
Private Sub UserForm_Initialize()
Me.Image1.Picture = _
LoadPicture("C:\Documents and Settings\0501402499\My Documents\イメージ\小鳥.jpg")
End Sub
シートモジュールに以下を記述
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then UserForm1.Show
End Sub
これで出来ると思います。
この回答への補足
早速、ありがとうございます。
私もハイパーリンクで提案してみたのですが
これでは駄目ということで(上司が)途方にくれていました。
ありがとうございます。
早速やってみたのですが エラーが出てしまいました。
どこか記入漏れや違った箇所があるのでしょうか。
お忙しいところ恐れ入りますがご教授いただけたら幸いです。
◆エラー
If Target.Address(0, 0) = "A1" Then UserForm1.Showで
53 実行時エラー ファイルが見つかりません
(→UserForm1.Showの部分です)が出てしまいました。
◆ユーザーフォーム
オブジェクト名はUserForm1にしてあります
◆コントロール
ユーザーフォーム内にツールボックス→コントロール→ピクチャを入れております。
全体のプロパティで
オブジェクト名:イメージ1
Picture:(ビットマップ)←目的の画像 C:\Documents and Settings\0501402499\My Documents\イメージを挿入
という状態にしてあります。
シートに関しては
Sheet1(表紙)をクリックして
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then UserForm1.Show
End Sub
を記入しました。
オブジェクト名はSheet1です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/04/21 13:46
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Excel(エクセル) 【関数】【マクロ】データの転記の方法について 2 2023/07/26 15:22
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Excel(エクセル) VBAで「クエリと接続」の画面を出せますか? 2 2022/10/24 13:35
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAで画像を表示する方法
Visual Basic(VBA)
-
クリックすると文章が表示されるシステム
Excel(エクセル)
-
セルをクリックすると付箋のようなものが表示されるのだが。
Excel(エクセル)
-
-
4
Excelでのコメント表示位置
Excel(エクセル)
-
5
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
6
エクセル ハイパーリンクで画像を表示
その他(Microsoft Office)
-
7
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
8
Excelでセルをクリックするたびに表示を切り替えるには?
Excel(エクセル)
-
9
エクセルで図形やワードアートもリスト選択できますか?
Word(ワード)
-
10
エクセル フォルダの画像を画像名で検索して貼り付け
Excel(エクセル)
-
11
Excel セルに入力した画像名からフォルダの画像を自動表示させたい
Excel(エクセル)
-
12
エクセル初心者
Excel(エクセル)
-
13
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
14
エクセル、別のシートの表をポップアップウィンドウにしたい。
Excel(エクセル)
-
15
エクセルでセルに挿入したコメントの表示位置について
Excel(エクセル)
-
16
エクセル マクロ 相対パスから画像を読み込みたいです。
その他(Microsoft Office)
-
17
エクセルで簡単に写真を挿入したい
Excel(エクセル)
-
18
セルにカーソルを合わせると文字を表示させるVBA
Excel(エクセル)
-
19
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
20
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文鳥などの小鳥にとって危険な...
-
セキセイインコ正常ですか?
-
隣人の小鳥の鳴き声の騒音について
-
セキセイインコの肛門が汚れて...
-
鷹って、主に何を食べるんでし...
-
小鳥をベランダに置いておくの...
-
セキセインコの照明の明るさに...
-
小鳥のさえずりをフランス語で...
-
屋根裏に小鳥のひな、が入り込...
-
インコの足の上手な消毒方法
-
小鳥の名まえを教えて下さい。...
-
子供の頃、公園の街路樹を切っ...
-
セルをクリックすると とある...
-
水槽の水を拭いたタオルについて
-
早朝はどうして小鳥のさえずり...
-
小鳥全般に与えられますと書い...
-
アラフィフ夫婦です。 毎晩の夜...
-
セキセイインコ 雛が挿し餌の...
-
野鳥の餌やりは違法ですよね?
-
コザクラインコが観葉植物のモ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文鳥などの小鳥にとって危険な...
-
セキセイインコ正常ですか?
-
隣人の小鳥の鳴き声の騒音について
-
セキセイインコの肛門が汚れて...
-
小鳥全般に与えられますと書い...
-
セルをクリックすると とある...
-
なんらかの原因で車の床にこぼ...
-
セキセイインコが動かなくなり...
-
鷹って、主に何を食べるんでし...
-
セキセインコの照明の明るさに...
-
小鳥のさえずりをフランス語で...
-
小鳥の人見知りについて 昨年4...
-
小鳥とは
-
家の庭で小鳥が キュイーっと一...
-
屋根裏に小鳥のひな、が入り込...
-
朝から連想するものって?
-
小鳥さんにベランダに来て欲し...
-
手乗り文鳥2羽が逃げちゃった
-
小鳥用のバナナ型の水入れの掃...
-
人間のカゼは小鳥にうつりますか?
おすすめ情報