MS Excel

Téma: Přidání obrázků do multipage a withEvents

Zaslal/a FrantaH 27.10.2015 14:11

Mám Userform, na něm MultiPage a tam přidávím Page. Na každou Page chci vložit do Image jednu fotku a odchytit událost Click na každou tu fotku. Vytvořil jsem kód, který vkládá Page, pojmenuje je podle buňek v listu a vloží fotky (cesty k nim jsou uloženy v dalších buňkách). Vše chodí, až na jednu věc - po kliknutí na fotky se nic neděje - jen u poslední vložené dojde k odchycení události Click. Někde jsem našel podobné řešení pro textboxy, ukládaly se do kolekce, ale bohužel jsem to nedokázal aplikovat na můj případ.
Předem děkuji za každou radu.
Franta

Public WithEvents MyImage As MSForms.Image

Private Sub MyImage_Click()
MsgBox ("klik")
End Sub

Private Sub UserForm_Activate()
Dim i As Integer
Dim text As String
For i = 2 To 15
' text "page"
text = Cells(i, 3).Value & " " & Cells(i, 5).Value
Me.MultiPage1.Pages.Add (text)

'vložení image na page
Set MyImage = Me.MultiPage1.Pages(i - 2).Controls.Add("Forms.Image.1", "Image", 1)
MyImage.Height = 280
MyImage.Width = 388
'nahrání obrázku do image
MyImage.Picture = LoadPicture(Cells(i, 1).Value)
MyImage.PictureSizeMode = fmPictureSizeModeStretch

Next i
End Sub