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)Můj první soubor funguje dobře, jen mi to nechce zobrazovat obrázky i v podsložkách.
Zobrazí to jen obrázky ve složce ne však v podsložkách.
Potřebuji upravit jen to aby to zobrazovvalo obrázky i s podsložek.citovat
Zobrazí to jen obrázky ve složce ne však v podsložkách.
Potřebuji upravit jen to aby to zobrazovvalo obrázky i s podsložek.citovat
Ještě jednou pěkný den,
v příloze souboru posílám ukázku jak se vyhledají do sešitu v Excelu soubory ve složce i podsložkách které se načtou do sloupce od B2 to funguje.
Ale když je chci zobrazit tak to nejde vyskočí tabulka?
Microsoft visual Basic
Run-time error 1004
Nelze získat vlastnost insert třídy pictures.
Dám Debug
A zobrazí se žlutý text:
Set objObrazek = ActiveSheet.Pictures.Insert(strSouborObrazek & ".jpg")
Nelze to aby to zobrazovalo v podsložkách ty obrázky.
Pokud jsou obrázky jen ve složce tak to zobrazí jinak ne.
Potřebuji to aby to zobrazilo i podsložky.
Přikládám v příloze soubor.
Moc Vám všem děkuji za Vaši ochotu a pomoc.
v příloze souboru posílám ukázku jak se vyhledají do sešitu v Excelu soubory ve složce i podsložkách které se načtou do sloupce od B2 to funguje.
Ale když je chci zobrazit tak to nejde vyskočí tabulka?
Microsoft visual Basic
Run-time error 1004
Nelze získat vlastnost insert třídy pictures.
Dám Debug
A zobrazí se žlutý text:
Set objObrazek = ActiveSheet.Pictures.Insert(strSouborObrazek & ".jpg")
Nelze to aby to zobrazovalo v podsložkách ty obrázky.
Pokud jsou obrázky jen ve složce tak to zobrazí jinak ne.
Potřebuji to aby to zobrazilo i podsložky.
Přikládám v příloze soubor.
Moc Vám všem děkuji za Vaši ochotu a pomoc.
Příloha: 47531_ukazka-3.zip (385kB, staženo 17x)
citovat47531_ukazka-3.zip (385kB, staženo 17x)(30.7.2020 19:32)#047534
Vážení kolegovia, píšem Vám z dôvodu ušetrenia Vášho času, úsilia a nervov...
Neviem, či ste zatiaľ neodhadli tohto človeka, ale jedná sa alebo o trolla alebo o neobyčajne "snaživý" prípad, ktorý nemá šajnu o vba, ktorý je predmetom jeho "záujmu" a ako sa môžete presvedčiť, ani o základoch správania operačného systému. Venujte svoje sily tým, u ktorých to má zmysel.
Rcitovat
Neviem, či ste zatiaľ neodhadli tohto človeka, ale jedná sa alebo o trolla alebo o neobyčajne "snaživý" prípad, ktorý nemá šajnu o vba, ktorý je predmetom jeho "záujmu" a ako sa môžete presvedčiť, ani o základoch správania operačného systému. Venujte svoje sily tým, u ktorých to má zmysel.
Rcitovat
@Robert
A ja som si myslel, že je to nový prejav vplyvu koronavíru. V poslednej dobe je to skoro pandémia, aspoň podľa týchto príspevkov.
citovat
A ja som si myslel, že je to nový prejav vplyvu koronavíru. V poslednej dobe je to skoro pandémia, aspoň podľa týchto príspevkov.
citovatOmlouvám se všem, že jsem vás obtěžoval.
Promiňte
Nemohu za to, že to umíte a já ne.
Ale nikoho nemusíte přeci urážet.
Nebo to také neumíš tak raději urážíš.
Ještě jednou se vám omlouvám,, že jsem obtěžoval.citovat
Promiňte
Nemohu za to, že to umíte a já ne.
Ale nikoho nemusíte přeci urážet.
Nebo to také neumíš tak raději urážíš.
Ještě jednou se vám omlouvám,, že jsem obtěžoval.citovat
(30.7.2020 23:10)#047538
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).Textcitovat
Potom např.
'zdroj obrázku
strCestaSouborObrazek = Range("R1").Text & "\" & Cells(Target.Cells(1).Row, Target.Cells(1).Column - 1).Text & "\" & Target.Cells(1).Textcitovat
(30.7.2020 23:34)#047539
Mati, už som ti x-krát v dobrom hovoril, aby si pochopil, že sa máš vykašľať na zadávania úloh, keď nechápeš, že ti NEBUDÚ fungovať, pretože keď ti poradcovia pošlú riešenie, nad ktorým strávili kus času (vrátane mňa, kým som nepochopil, ako to s tebou je), ty zistíš, že ty to potrebuješ inak. A toto je NEKONEČNÝ kolotoč, lebo ty ani nevieš popísať, že čo vlastne chceš. A keď nemáš ani šajnu o jazyku VBA nie je možné ani predpokladať, že budeš vedieť kód modifikovať na vlastné podmienky.
Píšeš, že čo máš robiť, keď tomu nerozumieš? Pochopiť, že nemáš šancu riešiť integrály, ak neovládaš malú násobilku, ale čo je horšie, ani sa ju NEMIENIŠ naučiť... Takže bež do prdele aj s tvojimi ďakovaniami a prosbami, ktorými sa tu psychologicky snažíš pôsobiť. Nerieš veci makrami, ktorým nerozumieš, nauč sa, aby si dokázal poriešiť to, čo potrebuješ, ASPOŇ manuálne. Kolegov chcem len vystríhať pred tým, aby si začali trhať vlasy, než dôjdu k poznaniu, ako to vlastne s tebou je... JE MI TO FAKT ĽÚTOcitovat
Píšeš, že čo máš robiť, keď tomu nerozumieš? Pochopiť, že nemáš šancu riešiť integrály, ak neovládaš malú násobilku, ale čo je horšie, ani sa ju NEMIENIŠ naučiť... Takže bež do prdele aj s tvojimi ďakovaniami a prosbami, ktorými sa tu psychologicky snažíš pôsobiť. Nerieš veci makrami, ktorým nerozumieš, nauč sa, aby si dokázal poriešiť to, čo potrebuješ, ASPOŇ manuálne. Kolegov chcem len vystríhať pred tým, aby si začali trhať vlasy, než dôjdu k poznaniu, ako to vlastne s tebou je... JE MI TO FAKT ĽÚTOcitovat
(30.7.2020 23:38)#047540
Anonyme, vieš čo je problém? Že on vlastne netuší, čo si tým chcel povedať...
To je odo mňa k tomu všetko...
Som radca z inej poradne, kde mi už k rejto osobe došla trpezlivosť.
Majte sa...citovat
To je odo mňa k tomu všetko...
Som radca z inej poradne, kde mi už k rejto osobe došla trpezlivosť.
Majte sa...citovat
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