|
今日、EXCELのマクロをやり始めました。
友達の本を借りて、色々見たのですが、
全然わからないので、教えてもらえたらなって思っています。
リストボックスでリストを選んで、
コマンドボタンを押すと、そのリストの4コマを見れるようにしたいです。
下のようにしてみました(ほとんど本のものを写しただけですが)。
リストを選んで、
コマンドボタンを押しても画像が表示されません。
よろしくお願いします。
Private Sub CommandButton2_Click()
Dim no As Variant
Dim pname As String
no=listbox1.listindex
pname = "C:\Documents and Settings\tanabe\My Documents\excel\ドラえもん\dora" & Format("no,00") & ".jpg"
If Dir(pname) <> "" Then
Image1.Picture = LoadPicture(pname)
Else
Image1.Picture = LoadPicture()
End If
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ListBox1.RowSource = "sheet2!B4:B9"
End Sub
よろしくお願いします。
|
|