• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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

Teď snad už doopravdy posílám screenshot - musel jsem zmenšit obrázek

Makro je v ThisWorkbook, proto ho asi správce nevidí. Tvořil jsem to včera doma (Win Xp +Excel 2002) - datumy ve sloupcích jsou. Teď jsem zkusil i v práci (Win 7 + Excel 2010) a vidím je tam také. Mají být jinak nebo jinde?
Posímám screenshot.

Snad jsem dobře pochopil zadání - soubor je v příloze
Franta

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse