![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
あるセルをクリックするとエクセルのコメント機能のように画像が表示されるようにしたいと思います。
調べて本屋で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 VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
6
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
7
エクセル ハイパーリンクで画像を表示
その他(Microsoft Office)
-
8
エクセルで図形やワードアートもリスト選択できますか?
Word(ワード)
-
9
エクセル フォルダの画像を画像名で検索して貼り付け
Excel(エクセル)
-
10
Excel セルに入力した画像名からフォルダの画像を自動表示させたい
Excel(エクセル)
-
11
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
12
Excelでセルをクリックするたびに表示を切り替えるには?
Excel(エクセル)
-
13
エクセル、別のシートの表をポップアップウィンドウにしたい。
Excel(エクセル)
-
14
エクセルでセルに挿入したコメントの表示位置について
Excel(エクセル)
-
15
エクセルで簡単に写真を挿入したい
Excel(エクセル)
-
16
エクセル マクロ 相対パスから画像を読み込みたいです。
その他(Microsoft Office)
-
17
セルにカーソルを合わせると文字を表示させるVBA
Excel(エクセル)
-
18
Excel 全シート上のボタンを削除 VBA
Excel(エクセル)
-
19
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
20
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文鳥などの小鳥にとって危険な...
-
セキセイインコ正常ですか?
-
セキセイインコの肛門が汚れて...
-
セキセイインコが動かなくなり...
-
隣人の小鳥の鳴き声の騒音について
-
家の庭で小鳥が キュイーっと一...
-
文鳥の爪切り
-
小鳥の足輪外しと爪切りの動物病院
-
クリッピング
-
小鳥の突然死
-
カナリアシード100パーセントの...
-
セルをクリックすると とある...
-
夜中に動いたお皿。 お世話にな...
-
アラフィフ夫婦です。 毎晩の夜...
-
私がだいすきというとムラムラ...
-
セキセイインコの姿勢
-
賃貸で鳥を飼ってる方・・
-
犬の交尾のコツ
-
部屋を閉め切っててもできるイ...
-
近付くと画像のように片方の羽...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文鳥などの小鳥にとって危険な...
-
セキセイインコ正常ですか?
-
セキセイインコの肛門が汚れて...
-
隣人の小鳥の鳴き声の騒音について
-
セルをクリックすると とある...
-
セキセイインコが動かなくなり...
-
鷹って、主に何を食べるんでし...
-
小鳥の足を踏んでしまいました!
-
小鳥をベランダに置いておくの...
-
セキセインコの照明の明るさに...
-
小鳥とは
-
屋根裏に小鳥のひな、が入り込...
-
小鳥のさえずりをフランス語で...
-
小鳥さんにベランダに来て欲し...
-
人間のカゼは小鳥にうつりますか?
-
早朝はどうして小鳥のさえずり...
-
小鳥が集まる木について
-
小鳥の足輪外しと爪切りの動物病院
-
メスのオカメインコを飼ってい...
-
シジュウカラについて。 玄関前...
おすすめ情報