Vy mě znáte, že mi tykáte?
Já jen děkuji podle mého je to slušnost poděkovat.
U tebe je to asi něco jiného, že?citovat
Já jen děkuji podle mého je to slušnost poděkovat.
U tebe je to asi něco jiného, že?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Zobrazení obrázku v Excelu
MS Excel
Téma: Zobrazení obrázku v Excelu 
Zaslal/a Mati 23.7.2020 14:42
Dobrý den, měl bych prozbu ohledně zobrazení obrázku.
1 ve složce jsou obrázky a sesit Excel když kliknu na daný obrázek tak by se měl zobrazit zobrazí ze pokud je za názvem .jpg je možné to odstranit, aby to zobrazilo obrázek bez koncovky .jmg.
2 Je možné, aby ve sloupečku B2 až B1000 se automatycky načetl sezna v dané složce.
3 sešit musí být v aktuální složce, kde jsou obrázky je možné to upravit tak, aby to bylo na ploše a našetlo to obrázky například ze složky: G:\Mati\001 ODB\001 Imdb\005 Fotky a jsou tam další podsložky
Děkuji za Vaši pomoc
Příloha: 
47436_ukazka.zip (83kB, staženo 25x)
47436_ukazka.zip (83kB, staženo 25x)Vložil jsem to do makra, ale pořád mi to nejde.
citovat
Anonym napsal/a:
Je potřeba s názvem obrázku uložit i cestu (např. do sloupce A).
Potom např.
'zdroj obrázku
strCestaSouborObrazek = Range("R1").Text & "\" & Cells(Target.Cells(1).Row, Target.Cells(1).Column - 1).Text & "\" & Target.Cells(1).Text
(1.8.2020 9:24)#047556
Doplnění do 'zdroj obrázku
má ale podmínku - vedle do sloupce "A" uložit dílčí cestu k souboru
Tzn. tam kde se čte a ukládá název souboru doplnit další proměnnou a číst a uložit celou cestu k souboru nebo část, která je za cestou uloženou v "R1" /vzoreček je pro dílčí část cesty/citovat
má ale podmínku - vedle do sloupce "A" uložit dílčí cestu k souboru
Tzn. tam kde se čte a ukládá název souboru doplnit další proměnnou a číst a uložit celou cestu k souboru nebo část, která je za cestou uloženou v "R1" /vzoreček je pro dílčí část cesty/citovat
Přesně tak jsem to udělal, ale nejde to.
Můžeš mi prosím poslat vzor. Děkuji vám.
citovat
Můžeš mi prosím poslat vzor. Děkuji vám.
Anonym napsal/a:
Doplnění do 'zdroj obrázku
má ale podmínku - vedle do sloupce "A" uložit dílčí cestu k souboru
Tzn. tam kde se čte a ukládá název souboru doplnit další proměnnou a číst a uložit celou cestu k souboru nebo část, která je za cestou uloženou v "R1" /vzoreček je pro dílčí část cesty/
Stáhnul jsem si Váš příklad z 30.7 17:11.
V proceduře listu máte toto:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
.....
'zdroj obrázku
strCestaSouborObrazek = "C:\Users\Ames\Plocha\ukazka\" & Target.Cells(1).Text
Jestliže tam vložím obrázky, tak to funguje.
Anonym Vám radil vložit cestu třeba do sloupce A. Píšete "Přesně tak jsem to udělal, ale nejde to."
Takže vložte přílohu s tímto posledním souborem a ideálně tam poznačte, co jste "Přesně tak udělal". Pak se dá poradit, kde máte chybu.
Podle mě tam pořád máte natvrdo nastavenou neaktuální cestu.citovat
V proceduře listu máte toto:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
.....
'zdroj obrázku
strCestaSouborObrazek = "C:\Users\Ames\Plocha\ukazka\" & Target.Cells(1).Text
Jestliže tam vložím obrázky, tak to funguje.
Anonym Vám radil vložit cestu třeba do sloupce A. Píšete "Přesně tak jsem to udělal, ale nejde to."
Takže vložte přílohu s tímto posledním souborem a ideálně tam poznačte, co jste "Přesně tak udělal". Pak se dá poradit, kde máte chybu.
Podle mě tam pořád máte natvrdo nastavenou neaktuální cestu.citovat
Dobrý den,
v příloze zasílám soubor ukázku.
Vyhledávání finguje.
Jen to zobrazuje obrázky ve složkách, ale pokud jsou i v podsložkách tak je nezobrazí.
Děkuji
v příloze zasílám soubor ukázku.
Vyhledávání finguje.
Jen to zobrazuje obrázky ve složkách, ale pokud jsou i v podsložkách tak je nezobrazí.
Děkuji
Příloha: 47559_ukazka-4.zip (400kB, staženo 18x)
citovat47559_ukazka-4.zip (400kB, staženo 18x)Ale tam žádná změna oproti původní verzi není nebo ji nevidím.
Anonym psal, že je potřeba uložit dílčí cestu.
Vy jste napsal, že jste to udělal.
Ptám se, kde jsou uvedené ty podsložky?citovat
Anonym psal, že je potřeba uložit dílčí cestu.
Vy jste napsal, že jste to udělal.
Ptám se, kde jsou uvedené ty podsložky?citovat
Jak to myslíte?
Vložil jsem do makra:
strCestaSouborObrazek = Range("R1").Text & "\" & Cells(Target.Cells(1).Row, Target.Cells(1).Column - 1).Text & "\" & Target.Cells(1).Text
Můžeš mi to prosím upravit dělám na tom už několik dnů ale nevím co a jak.
citovat
Vložil jsem do makra:
strCestaSouborObrazek = Range("R1").Text & "\" & Cells(Target.Cells(1).Row, Target.Cells(1).Column - 1).Text & "\" & Target.Cells(1).Text
Můžeš mi to prosím upravit dělám na tom už několik dnů ale nevím co a jak.
Jiří497 napsal/a:
Ale tam žádná změna oproti původní verzi není nebo ji nevidím.
Anonym psal, že je potřeba uložit dílčí cestu.
Vy jste napsal, že jste to udělal.
Ptám se, kde jsou uvedené ty podsložky?
No a tento kód říká, že v buňce vlevo vedle názvu obrázku má být uvedený podadresář. tzn.
v A2 nebude nic, protože Slunce 1 je v uvedeném adresáři
v A3 bude Rodina\001 Pejsci, protože Mazlíček (1) je v podadresáří Rodina a dále v podadresáři 001 Pejsci
v A4, A5 a A6 bude to samé
v A7 - A9 bude Rodina\002 Rodinacitovat
v A2 nebude nic, protože Slunce 1 je v uvedeném adresáři
v A3 bude Rodina\001 Pejsci, protože Mazlíček (1) je v podadresáří Rodina a dále v podadresáři 001 Pejsci
v A4, A5 a A6 bude to samé
v A7 - A9 bude Rodina\002 Rodinacitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články