
あるセルをクリックするとエクセルのコメント機能のように画像が表示されるようにしたいと思います。
調べて本屋で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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文鳥などの小鳥にとって危険な...
-
スミレの名前、教えてください
-
セキセイインコが動かなくなり...
-
人間のカゼは小鳥にうつりますか?
-
ぜんそくの人が鳥を飼えますか
-
野草の名前 教えてください
-
セキセイインコ正常ですか?
-
同じ親から生まれてきた子供同...
-
オウムがペレットを水に浸して...
-
文鳥のフンが出ていないのです...
-
亀と同居できて、ボウフラを食...
-
コザクラインコが観葉植物のモ...
-
卵を検卵してください!! セキ...
-
オカメインコの噛み癖は治りま...
-
子供のように可愛がっていた、...
-
烏は、光る物に集まる習性が有...
-
セキセイインコ性別
-
セキセイインコのくちばしの横...
-
飼っている文鳥が・・
-
森から聞こえる不思議な鳴き声...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文鳥などの小鳥にとって危険な...
-
セキセイインコ正常ですか?
-
セルをクリックすると とある...
-
隣人の小鳥の鳴き声の騒音について
-
セキセイインコが動かなくなり...
-
野草の名前 教えてください
-
鷹って、主に何を食べるんでし...
-
野草の名前 教えてください
-
野草の名前 教えてください
-
手乗り文鳥2羽が逃げちゃった
-
スミレの名前、教えてください
-
セキセイインコの肛門が汚れて...
-
小鳥をベランダに置いておくの...
-
東京都小平市近辺で小鳥店
-
インコの足の上手な消毒方法
-
最近見る小鳥
-
朝から連想するものって?
-
セキセインコの照明の明るさに...
-
小鳥さんにベランダに来て欲し...
-
ウロコインコの長時間移動について
おすすめ情報