Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52077 / 76737

←次へ　｜　前へ→


	【29503】Re:リスト選択で別々画像表示させる方法...

hine - 05/10/6(木) 15:56 -


	引用なし

	パスワード

初心者さん
こんにちは
ヒント出しっぱなしですいませんでした
もうみていないかも

ファイル名をSheet1のB列に書き込み
リストボックスに表示しています。
リストボックスをクリックすると
画像が表示されます。
参考になるかな？

'----------------------------------------------------
Private Sub ListBox1_Click()
Dim myPic As String
myPic = ThisWorkbook.Path & "\" & ListBox1.Value
Image1.Picture = LoadPicture(myPic)
Me.Repaint
End Sub
'----------------------------------------------------
Private Sub UserForm_Initialize()
Dim myPath As String
Dim myFname As String
Dim myL As Long
Dim myR As String

myPath = ThisWorkbook.Path & "\"
myFname = Dir(myPath & "*.jpg")

Do While myFname <> ""
　　Worksheets("Sheet1").Range("B65536").End(xlUp).Offset(1, 0).Value = myFname
　　myFname = Dir()
Loop

myL = Worksheets("Sheet1").Range("B65536").End(xlUp).Row
myR = "Sheet1!B2:B" & myL
ListBox1.RowSource = myR

If Worksheets("Sheet1").Range("B2").Value = "" Then
　　ListBox1.RowSource = ""
End If

End Sub
'----------------------------------------------------

0 hits

▼

【29484】リスト選択で別々画像表示させる方法を･･･ 初心者 05/10/6(木) 10:49