Slide 10
Slide 10 text
EXCEL-VBA側
Private Sub UserForm_Activate()
iRow = 0
ix = 20
Image = Array("100-200-080", "100-200-081", _
"100-200-082", "100-200-083", _
"100-200-084", "100-200-085", _
… "100-200-098", "100-200-099", _
"100-200-100", _
"100-200-101", "100-200-102", _
… "100-200-117", "100-200-118", _
"100-200-119", "100-200-120")
Me.Label1.Caption = ix & " ... " & Image(ix) & 拡張子
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & _
MYFOL & Image(ix) & 拡張子)
Me.Repaint
End Sub
Private Sub Image1_Click()
On Local Error Resume Next
ix = ix + Distance
Me.Label1.Caption = ix & " ... " & Image(ix)
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & _
MYFOL & Image(ix) & 拡張子)
Me.Repaint
End Sub