< návrat zpět

MS Excel

Téma: Přiřazení obrázku k textu. rss

Zaslal/a Fantom 28.6.2013 14:55

Dobrý den. Rád bych Vás požádal o pomoc. Jak se dá k danému textu přiřadit automaticky obrázek?

Příklad: Kdyby text byl SLUNCE, aby se mi jako obrázek objevil slunce. Díky za pomoc.

Zaslat odpověď >
Strana:  « předchozí  1 2
Opičák(28.6.2013 16:41)#014208
Opičák
Jiná možnost tak, jak jsem psal, aby se nenafukoval excelovský soubor. Vloži HT odkaz do sl. I (skrytý). Userform zobrazí všechny fotky z daného adresáře.
Příloha: zip14208_zobrazeni-foto-v-userform.zip (28kB, staženo 46x)
citovat
Palooo(28.6.2013 16:48)#014209
avatar
skus toto:
Příloha: zip14209_test.zip (108kB, staženo 61x)
citovat
Fantom(28.6.2013 16:52)#014210
avatar
Palooo: Tohle jsem přesně chtěj ať se mi to takhle přepíná. Velice ti děkuji.citovat
Fantom(28.6.2013 19:18)#014213
avatar
Palooo:
Tady je ten dokument, pokud byste měl čas. Jednalo by se o těch 8 oken.

Já jsem to zkoušel sám, ale jaksi mi to nešlo. Díky.
Příloha: rar14213_brankari.rar (33kB, staženo 29x)
citovat
Palooo(29.6.2013 10:37)#014217
avatar
skus toto:
Příloha: zip14217_brankari.zip (39kB, staženo 35x)
citovat
Fantom(29.6.2013 16:09)#014220
avatar
V tom dokumentu není žádné makro. Si možná pracoval s jiným makrem v jiném dokumentu.citovat
Palooo(29.6.2013 17:35)#014221
avatar
neviem preco ho nevidite ale napisem ho rovno do fota:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim aImageName As String

Select Case Target.Address(False, False)
Case "E4:G4", "E4"
aImageName = "Image1"
Case "K4:M4", "K4"
aImageName = "Image2"
Case "E9:G9", "E9"
aImageName = "Image3"
Case "K9:M9", "K9"
aImageName = "Image4"
Case "E14:G14", "E14"
aImageName = "Image5"
Case "K14:M14", "K14"
aImageName = "Image6"
Case "E22:G22", "E22"
aImageName = "Image7"
Case "K22:M22", "K22"
aImageName = "Image8"
Case Else
End
End Select

On Error Resume Next
ActiveSheet.OLEObjects(aImageName).Object.Picture = LoadPicture(ActiveWorkbook.Path & "\" & Target.Value2(1, 1) & ".jpg")
ActiveSheet.OLEObjects(aImageName).Object.Picture = LoadPicture(ActiveWorkbook.Path & "\" & Target.Value & ".jpg")
On Error GoTo 0
End Sub


potom treba vytvorit v dokumente picture1 2 3 4 5 6 7 8 ... stu frame objectycitovat
Fantom(17.7.2013 20:51)#014362
avatar
Tady je ta příloha.
Příloha: rar14362_elh.rar (193kB, staženo 32x)
citovat
Palooo(18.7.2013 8:27)#014368
avatar
trebalo tam doplnit tie frame a este v tom dokumente boli vypnute eventy
- dalsia vec som si vsimol ze tam sa ti nazvy odkazuju na iny list ... v takom pripade nefunguje change event ... dalo by sa to ale urobit inac a to na cuplik refresh picture

tu je to opravene:
Příloha: zip14368_novy-microsoft-excel-worksheet-2.zip (234kB, staženo 35x)
citovat
Palooo(19.7.2013 9:07)#014377
avatar
prerobil som to na funkciu .... a teraz to robi presne ako si chcel :))

len problem je ze do funkcie musis zadavat
"=readPic("cell nazvu";"nazov image frame";"na sheete kde sa nachadza funkcia")"

.... nevedel som zistit v funkcii sheet namea :PP ... mozno niekto tu je chytrejsi a dojde nato aby sa ten jeden udaj nemusel zapisovat
Příloha: zip14377_test.zip (237kB, staženo 41x)
citovat

Strana:  « předchozí  1 2

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