|
初心者 さん
こんにちは
ヒント出しっぱなしですいませんでした
もうみていないかも
ファイル名を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
'----------------------------------------------------
|
|