Excel - otvoreni odkazu za pomoci makra Vyřešeno

[danko6]

Caute partia.

Takze potreboval by som pomoc.
Potrebujem aby sa otvoril odkaz na www v exceli za pomoci makra alebo nejak inak pomocou obrazka .
Jedna sa o to ze ten odkaz sa meni v zavislosti od generovaneho cisla. Pripajam aj prilohu.
Pomocou makra co som skusal tak vzdy excel kopiruje ten isty odkaz ale kedze sa meni cislo tak toto mi nepomoze.

[Reklama]

[cmuch]

Ahoj, kam nebo kde se bude zobrazovat generované číslo.
To co si udělal v Z5 nestačí?

[danko6]

No odkaz ktory je v B16 je OK ale chcel by som aby sa odkaz otvoril pomocou obrazka vygeneruj kod. Generovany kod budem tlacit a nasledne pomocou citacky skenovat.

[cmuch]

Takže když se klikne na obrázek tak by se měl otevřít odkaz?
Kde budou data pro ten odkaz?

[danko6]

Je to link v B16

[cmuch]

Tady je makro jak dostat odkaz do obrázku a následně ho i spustit. Odkaz se načítá z buňky Z5

Kód: Vybrat vše

Sub Makro1()

Dim kod As Variant

' ulozeni kodu do promene
kod = Range("Z5").Text

' nastavi hyper odkaz
ActiveSheet.Shapes.Range(Array("Picture 8")).Item(1).Hyperlink.Address = kod

' otevøe hyper odkaz
ActiveSheet.Shapes.Range(Array("Picture 8")).Item(1).Hyperlink.Follow NewWindow:=False, AddHistory:=True

End Sub


Šlo by i udělat pokud se změní hodnota v AA4 aby se ten odkaz v tom obr. změnil taktéž.

Nebo jak to přesně bude probíhat.

[danko6]

Ahoj Cmuch.
Vdaka za pomoc ale asi som to zle vysvetlil takze este raz.
Na vygenerovanie ciaroveho kodu s cislom 123456789 je potrebny tento odkaz zo Z3:
http://www.bokai.com/Barcode.Net/Barcode.aspx?BarcodeType=CODE39&Data=123456789&ImageFormat=Jpeg&BarWidth=3&Height=400&FontName=Arial&FontSize=70&FontStyle=Bold

Aby som mohol menit cislo ciaroveho kodu rozdelil som odkaz na 2 casti Z4 a AB4. Medzi nimi je iba vzorec v AA kde nacitava hodnotu z C4.
Nasledne som nechal pomocou vzorca spojit bunky Z4,AA4,AB4 kde vznikne premenny odkaz :
http://www.bokai.com/Barcode.Net/Barcode.aspx?BarcodeType=CODE39&Data=5555&ImageFormat=Jpeg&BarWidth=3&Height=400&FontName=Arial&FontSize=70&FontStyle=Bold

Odkaz sa mani iba v hodnote =CODE39&Data=cislo ciaroveho kodu.

V bunke B16 je vzorec ktory potrebujem spravit ako odkaz do obrazka. Aby po kliknuti na obrazok generuj kod sa otvoril intenetovy prehliadac s odkazom z B16.

Vdaka.

[cmuch]

Ten kod byl dělán jen pro ukázku jak docílit toho aby se měnil i v obrázku.

Tak přiložím sešit kde je to udělané tak, že pokud se změní číslo v C4 ,
tak se změní automaticky i hypertextový odkaz toho obrázku a pak na něj stačí kliknout.
Nebo je tam v makru zakázané automatické spuštění odkazu.

V makru je nastaven kod takto:

Kód: Vybrat vše

' ulozeni kodu do promene
    ' cislo carovaho kodu
    cislokodu = Range("C4")
    ' cely kod
    kod = "http://www.bokai.com/Barcode.Net/Barcode.aspx?BarcodeType=CODE39&Data=" & cislokodu & "&ImageFormat=Jpeg&BarWidth=3&Height=400&FontName=Arial&FontSize=70&FontStyle=Bold"



Takže ostaní odkazy nejsou potřeba na listě.

[karel.laska]

Zdravím,

kdysi jsem řešil něco podobného, myslím tím tisk čárového kódu.
Vše jsem vyřešil instalací / přidáním fontu, který mi generoval přímo čárový kód.
V případě nedostupnosti webových stránek apod. Vám script nebude načítat čárový kód.
Čárové fonty jsou ke stažení na webu..

S pozdravem Karel Láska

[danko6]

No klobuk dole presne toto som potreboval. Dost casto potrebujem taketo vecicky tak uz viem kam sa obratim nabuduce : ) Vdaka.

--- Doplnění předchozího příspěvku (07 Kvě 2012 20:15) ---

Este jedna otazka ak mam predvoleny prehliadac firefox a chcem aby sa mi odkazy v excely otvarali v nom a nie v explorery ako na to ? Nasiel som v exceli moznosti nastavenia ale su tam iba verzie experora.

[cmuch]

Tak jsem si s tím teď chvíli hrál a zjistil jsem následující.
Pokud vytvořím nějaký jiný hypertextový odkaz třeba http://www.pc-help.cz tak se my otevře v implicitním (výchozím) prohlížeči.
A pokud zadám jen http://www.bokai.com/Barcode.Net/ tak se otevře také ve výchozím prohlížeči.
Když se ale zadá celý odkaz tak se otevře v IE

Jak se to chová u tebe?

[danko6]

No mne to robi presne tak ako Tebe. To je zaujimave ze to takto otvara : )