Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5191 / 13646 ツリー ←次へ | 前へ→

【52170】コンボボックスで別々の画像を表示させる方法 kaito 07/10/26(金) 13:24 質問[未読]
【52172】Re:コンボボックスで別々の画像を表示させ... Jaka 07/10/26(金) 13:41 発言[未読]
【52173】Re:コンボボックスで別々の画像を表示させ... kaito 07/10/26(金) 13:54 発言[未読]
【52174】Re:コンボボックスで別々の画像を表示させ... Jaka 07/10/26(金) 14:11 発言[未読]
【52175】Re:コンボボックスで別々の画像を表示させ... kaito 07/10/26(金) 15:08 お礼[未読]

【52170】コンボボックスで別々の画像を表示させる...
質問  kaito  - 07/10/26(金) 13:24 -

引用なし
パスワード
   はじめまして、VBAを使い始めて間もない初心者です。

フォームにコンボボックスを1個、イメージを1個用意し、
コンボボックスのリストから1つを選ぶとイメージに画像が表示され
リストの選択ごとに違う表示をさせるものを作成したいのですが
作成できず途方に暮れています。

コンボボックスのリストは
Private Sub UserForm_Initialize()
料理.RowSource = "Sheet1!A3:A5"
料理.ListIndex = -1
End Sub
によりシートから読み出しています。

Image1.Picture = LoadPicture("")
を使い試行錯誤したのですか作成できませんでした。

どなたかアドバイスなど、ご教授お願いいたします。

【52172】Re:コンボボックスで別々の画像を表示さ...
発言  Jaka  - 07/10/26(金) 13:41 -

引用なし
パスワード
   コンボボックスの値がどうなっているのか解らないけど、
ロードしたいファイルのフルパスを書かないとダメです。

PicData = "ロードしたい画像ファイルのフルパス"
Image1.Picture = LoadPicture(PicData)

【52173】Re:コンボボックスで別々の画像を表示さ...
発言  kaito  - 07/10/26(金) 13:54 -

引用なし
パスワード
   ▼Jaka さん:
返信ありがとうございます。

コンボボックスの値ですが
Private Sub UserForm_Initialize()
combo_box1.RowSource = "Sheet1!A3:A5"
combo_box1.ListIndex = -1
End Sub
で、シートからコンボボックスのリストを読み出しています。
シートA3〜A5のリストを読み出しているんですが、A3を選んだら1の画像を表示、A4を選んだら2の画像を表示というものを作成したいと思っています。

ファイルパスというのはDドライブに画像があれば\Dのように表記すればいいんですよね?

【52174】Re:コンボボックスで別々の画像を表示さ...
発言  Jaka  - 07/10/26(金) 14:11 -

引用なし
パスワード
   フルパスとは。
tp://www.weblio.jp/content/%E3%83%95%E3%83%AB%E3%83%91%E3%82%B9

他は、ネットで検索してみてください。

おまけ、
保存したブックにて実行してください。
こういうやつ。
MsgBox ThisWorkbook.FullName

【52175】Re:コンボボックスで別々の画像を表示さ...
お礼  kaito  - 07/10/26(金) 15:08 -

引用なし
パスワード
   ▼Jaka さん:
フルパスは理解できました。
Dドライブにある場合はD:\画像名にすればよいのですね。

いろいろご教授ありがとうございました。

5191 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free