Come Scaricare Un Immagine Da una pagina Web con un link che ha una Estensione del Tipo (PNG)

Ciao a Tutti mi chiamo Maurizio
E il mio problema e questo:

(Premetto che Vorrei lavorare solo usando l'userform di excel )
E non collegamenti vari al foglio .

Detto questo il mio problema e questo :
In un Userform ho inserito un ( CommandButton ) una ( Label ) un
( Combobox ) e un ( Image2 )

Ora Per praticità ho inserito nella (Combobox) un link che corrisponde ad una ummagine appartenente ad una pagina Web con Estensione ( PNG )

Questo Link che seleziono ; Sempre per praticità dalla (Combobox)
Viene trasferita nella ( Label3 ) e fin qui tutto ok

Ora quello che vorrei Ottenere sarebbe quella di Trasferire questa Immagine con Estensione (PNG)
Mangiarlain (JPG)
e Visualizzarla nella (Image2) del mio Userform

(P.S) Ora prima di postare questa mia richiesta , ho provato a dare un occhiata in giro per il vostro FORUM, E mi sono imbattuto in un altra vostra discussione analoga dal titolo

[VBA EXCEL] C'é un comando che fa scaricare una immagine avendo l'URL )

Ora la cosa mi ha incuriosito molto ; Pertanto lo provato ma pur funzionando perfettamente, non viene recuperata dalla mia (Image2) che ho nell'userform ; In quanto mi dice (Errore Immagine Non Valida )
Eppure lo Tramutata da (PNG) a (JPG)
Perché e come posso ovviare a questo inconveniente Grazie
Saluti da A:Maurizio

ciao
ci mancano un bel po' di istruzioni nel tuo file (vedi quelle della discussione che hai trovato) per l'inserimento dell'immagine.

MA a parte questo, l'oggetto image delle userForm NON accetta PNG (vanno bene invece jpg e bmp)

Ora, il fatto che tu salvi quell'immagine con estensione jpg non serve a nulla in quanto l'immagine sempre PNG resta.
(Come se tu rinominassi un file .xlsl in .docx e lo volessi aprire con word......spero di esser stato chiaro)

Ciò premesso, si fa prima a trasformare "da codice" il PNG in jpg.

NB: (ho fatto qualche variazione ai percorsi, comunque prima di sistemarli usa il file così com'è)

@ CREA UNA CARTELLA chiamata Temp dove risiede il tuo file

qualche spiegazione
- nel tuo file sfrutto la cella A1 come appoggio
- il parametro della Image2 PictureSizeMode è stato settato a 1
per adattare l'immagine all'oggetto
- nel modulo della tua UserF Frm_Immagine ci sono tutti i codici necessari, pertanto quelli del tuo modulo2 non vengono utilizzati

Se segui in debug ti accorgi quello che succede.

saluti

(ci devi mettere qualche controllo, perchè se la combo è vuota quando clicchi sul download dell'immagine, excel va in crash !!!)

Ciao dodo47
Per prima cosa ti ringrazio per il tuo File o Aiuto che sia.
Molto Bello e Soprattutto Molto Intuitivo.

Detto Questo : Inizialmente non vedevo nulla in quanto si era dimenticato di dirmi che oltre alla mia cartella pricipale avrei dovuto inserire anche una sotto cartella chiamata ( \test\ )
Ma dopo aver apportato la modifica del caso; Ora l'immagine Si Vede Bene All'interno Del ImageBox dell'userform.
Ora non mi resta altro che : Capire come Ridurre Tale Dimensione dell'immagine e il gioco e fatto.
Ma grazie a Voi ora mi e molto più chiaro come procedere.
Grazie Infinite
Sei Sublime
Sinceri Saluti e Buona Giornata a Tutti da A.Maurizio

A..M, 01/07/2020 15:56:

---

.....
Detto Questo : Inizialmente non vedevo nulla in quanto si era dimenticato di dirmi che oltre alla mia cartella pricipale avrei dovuto inserire anche una sotto cartella chiamata ( \test\ ).....

---

Ciao
in realtà te l'ho scritto ma mi sono sbagliato dicendoci Temp a posto di Test come è riportato nella macro.

Comunque bene per aver risolto

"....Ora non mi resta altro che : Capire come Ridurre Tale Dimensione dell'immagine e il gioco e fatto....."

e a che ti serve, visto che l'immagine viene adattata alle dimensioni dell'oggetto image2 in modo automatico settando un parametro come detto in precedenza??


cari saluti

Ciao Dodo 47 Come stai ?
Scusami per la mia Gaf : Nel dire certe cose
Capita a volte di parlare a sproposito senza ragionarci bene su !
In fatti ci ho pensato solo dopo averlo scritto , ma oramai ero troppo stanco per correre ai ripari ; Scusami
Ma la mia non voleva essere una mancanza di maleducazione nel tuoi confronti ; Semmai solo una Precisazione detta a sproposito.

Detto questo : Posso chiederti ancora una gentilezza da parte tua , ti garantisco che mi servirebbe molto.
Ed e questa :

Ora e vero che il tuo lavoro mi piace molto e visto che ora funziona a meraviglia ; Ancora di più !
Però : Nella tua immensa e indiscussa capacità
Non ti sarebbe possibile riuscire a Cambiare alcune cose in modo che il tutto possa solo funzionare all'interno dell'userform , senza per forza attaccarsi al foglio di Excel anche se solo sotto forma di punto di appoggio ?

(P.S) Ti spiego il perché ti chiedo questo :

Il motivo per certi versi e molto semplice, ed e questo :
Una volta che grazie al vostro aiuto fossi riuscito a realizzare il tutto sfruttando cioè il solo Userform del foglio di Excel.

Vorrei riuscire a replicare il tutto usando il VB6.0
Che come hai già ben capito tu si tratta delle previsioni meteo.
Anche perché tra le altre cose questo progetto e sempre stato un mio sogno nel cassetto ; Che fino a qualche settimana fa non ero mai riuscito a realizzare Tutto qui !

Se non puoi ho non vuoi più aiutarmi in merito non importa hai già fatto molto e per questo ti ringrazio comunque
Saluti da Maurizio

Ciao
ma che dici...nessun risentimento, ho solo precisato che.....ci mancherebbe.

Venendo al tuo quesito (sempre con riferimento al mio esempio e cartella: "test" nello stesso percorso

per quanto riguarda la cella A1, ho eliminato la sub Trasforma e pertanto, il problema non si pone.

Per l'immagine ho utilizzato una conversione del formato immagine con WIA (Windows Image Acquisition); se vuoi approfondire:

https://docs.microsoft.com/it-it/windows/win32/wia/-wia-startpage?redirectedfrom=MSDN

NB attenzione:
il giochino ti funzionerà solo la prima volta cioè con la cartella test vuota (o meglio con il jpg NON presente).

La seconda volta, poichè troverà il file jpg già esistente, la routine andrà in errore.

Ora, visto che non mi sembri un principiante, la cosa la sistemi tu (i modi sono diversi, dalla cancellazione del jpg alla modifica del codice........)

--------------------------------------------------------------------
Qualora dovesse interessarti, queste sono le chiavi dei vari formati:

BMP : "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"
GIF : "{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}"
JPEG : "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
PNG : "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}"
TIFF : "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"
---------------------------------------------------------------------
cari saluti

Ciao Dodo47 Come stai ?
Per prima cosa grazie infinite per il tuo programmino niente male
C'é solo un problema che continua ad uscirmi fuori questa locandina
Vedi immagine

[https://www.dropbox.com/s/4731qgiazxzn9ku/Cattura.JPG?dl=0]

E in più non vedo l'immagine inserita nell'userform
Ma giustamente come hai detto tu Dovrò lavorarci un pochino su.

Comunque si Grazie ancora di tutto
E se non ti disturbo molto : Una volta portato a termine il tutto vorrei dartene una copia in segno di amicizia
Sinceri saluti e Grazie ancora di tutto . Maurizio

ti facevo un po' più attivo......se non trova il percorso del file è evidente che non lo hai cambiato.

Comunque, accorciamo e sostituisci:




saluti

Ciao Dodo47
Ascolta : Io penso di essere una persona più che determinata e Attiva; Come mi hai definito tu.

Però quando pur provandole tutte; Compreso il cambiare il percorso e in pratica tutto ciò che hai riportato tu nel (Tag) non avrei potuto saper fare di meglio che riportare quanto detto.

Tanto e vero che: Anche facendo quanto scritto nuovamente da te
La procedura continua a darmi tale Errore; Che poi errore non é

Però va bene cosi Pertanto Ritengo che sia doveroso e giusto nei tuoi confronti
Chiudere qui questa mia richiesta in quanto come ho dià detto più volte.
Ora grazie a te ho le basi per poter andare avanti anche per conto mio.
Grazie infinite Per i tuoi lavori Sei sempre un grandissimo programmatore ; Ora però tocca a me proseguire il mio cammino ; Solo cosi posso imparare Grazie e Buona Giornata a te e tutti quelli del Forum
Saluti da A.Maurizio

Ciao
a me piace precisare le cose, quindi:

Nel file che ti ho inviato in allegato al post #6, per un MIO ERRORE, avevo lasciato le path di riferimento al mio computer:



Ora, l'errore evidenziato da te, mi ha indotto a pensare che tu non avessi cambiato tali percorsi, e pertanto ti ho inviato la rettifica:



Ciò detto mi scuso se ho pensato che tu non avessi apportato già tali rettifiche ma d'altronde, il solo motivo per il quale poteva uscire quell'errore, è solo questo e non altri.

saluti

Ciao Dodo47
E proprio vero che se non ci fossi dovrebbero trovare il modo di inventarti ho Reinventarti .
In quanto mi stavo veramente perdendo in un bicchiere di acqua .

Per quanto riguarda la tua Tra ("") sfuriata devo renderti atto che più delle volte desidero anche io fare in un modo e poi finisco sempre con farne dell'altro.
Però quasi sempre : Quando grazie a persone come te riescono a mettermi sulla retta via.
Riesco quasi sempre a trovare il sistema di risolvere il tutto .

Ma in questo caso hai ragione tu : In quanto avevo Ovviato all'errore ponendo un più sbagliato ; Ma voluto e forzato (On Error Resume next)
Pertanto cosi facendo il tuo lavoro non mi dava più l'errore iniziale
Ma non prendeva l'immagine dalla mia sotto cartella classificata come da te descritto (Test)
In più avevo fatto la tavanata di scrivere Il tuo ultimo aiuto in questo modo :

---

WIA_ConvertImage (ThisWorkbook.Path & "\test\mImg.png", _
ThisWorkbook.Path & "\test\mImg.jpg")
Me.Image2.Picture = LoadPicture(ThisWorkbook.Path & "\test\mImg.jpg")

---

In Pratica con le () all'inizio e alla fine dell'indirizzo
Ora però togliendo il tutto proprio come mi hai suggerito tu ; Ora funziona alla grande
Grazie infinite Nel vero senso della parola
Non potevi farmi più cosa gradita di questa.
Saluti sinceri Con simpatia ed Amicizia Da Maurizio

(P.S) Posso chiederti di dove sei ?
Ho per meglio dire sè un giorno dovessi capitare dalle parti di (Torino) Fammelo sapere Ti offro a te e famiglia un buon Caffè e un vassoio di Pasticceria a te poi la scelta.
Grazie

di Roma...mio caro, un po' distanti, ma non si sa mai nella vita.

Felice tu abbia risolto.

nota (e senza polemica):
l'On error resume next è un'istruzione pericolosa....occhio

un caro saluto

Ciao Dodo47
Ascolta non so' quando potrò venire in quanto anche io tra lavoro e famiglia ; Ho molti impegni da compiere.

Però visto ché ho una cugina a Velletri e suo marito e uno degli alti comandi dei vigili del Fuoco di Roma.

Non e detto che le paste te le possa portare direttamente a Piazza Navona.

Detto questo : Prova a Scaricarti questo mio lavoro e dimmi cosa ne pensi ( Per Me il tuo Parare e molto importante )

Questo e il link per scaricare il tutto :

---

https://app.box.com/s/f8dcwh6xd96nzsq7jsrhkt9oo2ru4ks9

---

(P.S) Per la cronaca : io non sono una persona suscettibile che se la prende per ogni (BU BU') anzi al contrario amo stare quando posso in mezzo alla gente a ridere e a scherzare
Quello che non mi va a genio in determinati Forum e L'arroganza che si addotta tutto qui.

Per rispondere alla tua domanda : Hai pienamente ragione che devo fare attenzione ad usare il Valutatore di errori (On Error Resume next) in effetti lo uso pochissimo
Da quando gli anni che furono , proprio per non dare retta a chi ne sapeva più di me ; Ho dovuto buttare nel Cestino un mare di file.
In quanto mi mandava in Crash le procedure e non c'era più verso di interrompere il ciclo.

Pertanto lo uso proprio in casi estremi.
Spero che il mio Lavoro sia di tuo Gradimento
Ti auguro a te e a tutti i partecipanti di questo Forum Una Buona Domenica e un buon inizio Settimana.
Ciao da A.Maurizio

(P.S) Ascolta Dodo47 Mi potresti dire Semplicemente il Perché l'immagine estratta ha come sfondo di colore nero , mentre l'originale e trasparente ?

ciao
ho visto il tuo lavoro, ben fatto dal punto di vista strutturale.

Alcune cose:
- l'immagine sul foglio che viene generata dalla proc. legata al pulsante blu (Meteo), non viene cancellata e, pertanto se esegui la procedura più volte, avrai immagini sovrapposte. Inoltre gli cambierei posto, in quanto copre parte delle descrizioni in col. A.

- Ordinerei l'elenco della convalida in E1 (e, "pignoleria" cambierei il nome da regiomi a regioni)

- assegnerei alle label ed alle combo della uForm dei nomi che richiamino cosa sono, es: al posto di ComboBox1: Localita - etc.
Toglierei la caption dalle label14 e label 16 e le rinominerei mMin e mMax......
Questo per avere una "lettura" comprensibile del codice.

- relativamente alla trasparenza non so aiutarti. (Se per esempio fai una prova ed apri un png con paint e lo salvi in jpg, paint ti dice che perdi la trasparenza.)

- Quando azzeri le variabili, non c'è bisogno di scrivere per esempio:
If Not oIP Is Nothing Then Set oIP = Nothing
ma basta
Set oIP = Nothing
Non serve testarne lo stato.

Infine "credo" che tu abbia un concetto errato dell' On Error Resume Next, in quanto lo trovo un po' dappertutto e NON serve a gestire gli errori.

Gli errori vanno gestiti in un altro modo, es:




Per quanto riguarda On Error Resume Next, tale istruzione può essere usata in casi particolari, MA POI si deve annullare con On Error GoTo 0, per passare all'interprete gli eventuali errori non voluti.
Detta istruzione non fa altro che passare alla riga successiva l'esecuzione del codice, quindi (e mi sembra che lo sai a tue spese) capisci bene i danni che potrebbe causare.

Ti faccio un piccolo esempio:
ipotizziamo che tu voglia creare un foglio nuovo in un documento, chiamandolo "temporaneo".
Se il foglio già esiste e tenti di crearlo, l'istruzione andrebbe in errore.
In questo casi si che va usato On error Resume Next, ma, come vedi, subito dopo va annullato (on Error GoTo 0) per la ragione su esposta:



saluti

Ciao Dodo47
Ti Garantisco che sono cose già fatte le modifiche da te accennate
Anche io amo essere un pochino pignolo in queste cose.
Però era il desiderio di farti sapere che grazie a te ero riuscito a realizzare il tutto che la troppa fretta non mi ha fatto apportare tutte queste modifiche per tempo.

La prossima volta farò un pochino più con calma e attenzione.

Ascolta (Dodo47) Se nel vba si specifica ( thisworkbook.path )
per produrre una istanza di trasferimento idati in una cartella specifica che nel tuo caso era (Test\mImg.png ) ecc...!

Nel Vb6.0 come si scrive tutto ciò
Che mi ricordassi io avrei dovuto scrivere ( strpath = savePicture.Path & ("\test\mImg.png") )

Però pun non dandomi errore non mi salva l'immagine nella sotto cartella
Tu hai una vaga idea di quale codice mi potrebbe dare questa cosa?.
In caso contrario lascia pure stare hai già fatto molto di più di quanto non fosse necessario Grazie
Ciao e Buona Serata

ciao
conosco ben poco il vb6....prova a fare qualche ricerca nel web

saluti

Ciao Dodo47
Non ti preoccupare ieri sera in un lasso di tempo molto breve
Mi sono messo a leggere dei vecchi libri di vb6.0
E come per magia ho trovato il codice ché stavo cercando
In effetti basta poi solo pensarci un pochino più intensamente.
In quanto : Ciò che avevi riportato tu scrivendo

---

WIA_ConvertImage ThisWorkbook.Path & "\test\mImg.png", _
ThisWorkbook.Path & "\test\mImg.jpg"

---

Se ci pensiamo bene il

---

Thisworkbook

---

Non ha nulla a che fare con (Savefile) ; (Saved) ecc...!
Ma e solo una Variabile per identificare L?applicazione di Excel con tutto il suo Insieme.

Pertanto L'acronimo di (Thisworkbook) del vba
Nel VB6.0 è ( App.path )

E questo spiega come sono riuscito a risovere il tutto anche con il VB6.0

Il problema però anche qui risulta essere sempre lo stesso : Che e quello che quando il tuo codice trasforma l'immagine da (PNG) a (JPG)
La nuova immagine risulta con lo sfondo di colore scuro; Mentre L'originale no ?

Tutto qui !

Ma ora ci lavoro un pochino su' e vedrai che ne uscirà un qualche cosa di valido.
Ciao Grazie E alla Prossima

A..M, 06/07/2020 17:57:

---

Il problema però anche qui risulta essere sempre lo stesso : Che e quello che quando il tuo codice trasforma l'immagine da (PNG) a (JPG)
La nuova immagine risulta con lo sfondo di colore scuro; Mentre L'originale no ?

---

Ciao un modo l'avrei trovato:

- nella uForm, cancella l'oggetto image1.
- al suo posto inserisci una Label, la chiami Image1 così non stai a rettificare il codice.
- cancella la caption della label.
- setti il parametro della label BackStyle a: FmBackStyleTransparent

il risultato mi sembra accettabile.

saluti

Ciao Dodo47
Come sempre sei un grande
anche sé a dire il vero l'altro giorno per certi versi Facendo delle ricerche per il mio lavoro su delle pagine Internet
Ho trovato lo stesso tuo listato su di un forum di lingua Inglese

Allora avevo quasi delle perplessità sulle tue capacità !
Però poi mi sono detto che :

Che Per Imparare Bene le cose sono :

1) Ho sei una persona Abituata a Copiare di tutto e di più L'importante e Apparire !

Ma cosi facendo Prima o poi sei costretto a fermarti in quanto non avrei mai imparato nulla.

2) Oppure : Va bene anche cosi
D'altronde da qualche parte bisogna pur sempre incominciare; No ?

Ma la Conferma Della Tua Bravura me lo hai confermato adesso con questa tua variante ha qui non ci avevo pensato .
Io in realtà miravo più al recupero dell'immagine (PNG) sfruttando più che altro il concetto della "ClipPard" SetData e GetData
Ma aspettavo di avere più tempo da dedicare nuovamente a queste cose.
Ciao e Grazie
Né farò sicuramente buon uso !
Buona Serata