Příspěvky uživatele
< návrat zpět
Přikládá soubor pro náhled na WEB
Tohle funguje pouze jako náhled data z toho nenačtu
Běží to bez problémů. Dodělám možnosti volby URL. Jen zvolím pro náhled obrázek v UserForm abych viděla pouze tu část stránky která mne zajímá. To celé jsem byla nucena vytvořit pro výpočet převodu AED na CZK, neboť ČNB nemá kurz této měny. Stejně to musím zadat ručně do Excelu ale vidím aktuální kurz. Excel umí spustit WEB stránky, ale neuí je zavřít..bohužel.
Za pomoc děkuji "ELŇINOVI" klobouk dolů
Hotovo. Děkuji za pomoc a odkaz na youtube
Lze prosím zobrazit náhled web stránky ( URL ) sešitu Excel nebo v okně Userform?
Děkuji za pomoc
Chci tímto poděkovat všem, co mi přispěli a pomohli.
Moc moc všem děkuji.
Přiložený zip soubor pracuje přesně jako ten můj původní.
I ten program pro uložení grafu na HDD také využiji.
Nedá se vyjádřit jak jsem vám oběma vděčná a toho času, co jste mi ušetřili.
Děkuji a přeji hezký den
V původním programu se graf neukládal na HDD, nýbrž jsem volil číslo z počtu obrázků na listu. Tento návrh nenačte Obrázky, ale pouze graf, který uloží na HDD
Přesto děkuji a opět prosím o pomoc s mým trápením..
Dateiname = "C:\Excel\\graf1.gif", ale bez On Error resume next to hlásí - nesprávný řetězec třídy
Katastrofální selhání!
Nemám dobře nastavenou adresu odkazu
Dateiname = "": Soubor je uložen c:\Excel\montix03.xlsm, obsahuje 3 listy a Graf 1, Obrázek 6 ajiné jsou uloženy v listu "obr"
Private Sub UserForm_Initialize()
'On Error Resume Next
Dim Dateiname As String, Graf As Chart
Set Graf = Sheets("obr").ChartObjects("Graf 1").Chart
Dateiname = ThisWorkbook.Path & "\graf1.gif"
MsgBox Dateiname
Graf.Export Filename:=Dateiname, FilterName:="GIF"
UF1.Image5.Picture = LoadPicture(Dateiname)
Sheets("obr").Select
'Add Dynamic Image and assign it to object 'Img'
Set Img = UF1.Controls.Add("Forms.Image5")
With Img
'Load Picture to Image Control
.Picture = LoadPicture(Dateiname)
'Align the Picture Size
'.PictureSizeMode = fmPictureSizeModeStretch
'.Width = 717
'.Height = 460
'Image Position
'.Left = 20
''.Top = 100
End With
End Sub
Pro upřesnění.
V UserForm mám image1, který dle hodnoty spinbutton1 změní načte obrázky (vloží) z listu ("obr") právě do image1. Asi to lépe nepopíšu. Zdroj není na HDD nýbrž v programu na listu ("obr").
Prosím, prosím o pomoc
Děkuji moc
Tak Vás opět zdravím.
prosím o pomoc, přeinstalovala jsem MS office komplet včetně Outlooku.
Měla jsem v listu("obr") několik grafů i obrázků...
Jakmile jsem spustila program, zkolaboval s hláškou verze 64 bit..
Prosím, snažně, pošlete mi VBA kód pro přesun ( vložení ) obrázku do Userform. Děkuji
Jediné co funguje je správný počet obrázků v zdroj.listu (obr)
Starý kód ani nepřikládám
Nastavila jsem to dle doporučení.
Musím zkoušet, stále to neodesílá, jen v jednom případě jsem musala povolit odeslání, avšak pošta nedošla...
Děkuji za pomoc, outlook ten nyní běží, jen to zasílat z Excelu se nedaří. Budu laborovat, není to priorita ( mám jen jedny nervy!)
Děkuji mnohokrát
Mám tedy znovu přeinstalovat OUTLOOK?
Děkuji, že se mi snažíte pomoci. Vážím si toho..
poslední aktualizace 2015
Nenašla jsem verzi...
Zjistila jsem, že bohužel mi nejde spustit outlook, ale v liště mám "pošta" a ta ten outlook spustí
Uživatelské menu
\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