< návrat zpět

MS Excel

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

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

Zaslat odpověď >
kp57(27.10.2015 21:17)#027694
avatar
např.:
Příloha: zip27694_multipagetip.zip (22kB, staženo 29x)
citovat
FrantaH(27.10.2015 22:08)#027695
avatar

kp57 napsal/a:

např.:Příloha: 27694_multipagetip.zip


Díky moc, přesně tohle jsem potřebovalcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje