Gif animate in VBA

[giamoros]

Scusate il ritardo comunque ho fatto, almeno credo, tutte la azioni suggeritemi ultimamente.
Allo stato attuale sul foglio dove va la Gif denominato (Titolo di proprietà) ovvero Foglio7 ho una finestra con delle frecce alto/basso e destra/sinistra dove vedo delle righe dove ci sono questi messaggi:

Non riesco a visualizzare questa pagina.
Verifica che l'indirizzo Web http:// sia corretto.
Cerca la pagina con il tuo motore di ricerca.
Aggiorna la pagina tra alcuni minuti.

----------------------------------------------------------------------
Attualmente nella sezione Basic del foglio7 ho queste istruzioni:

Private Sub Image1_Click()
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

Private Sub Worksheet_Activate()
WebBrowser1.Navigate "E:\Donwloads\hot.gif" '<<< Il vero Drive, Percorso, nome file
End Sub
---------------------------------------------------------------
Nel frattempo ho anche sistemato l'anomalia che non mi permetteva l'invio del file con dropper; se volete posso spedirvi il file excel.
Grazie ed in attesa di risposta cordiali saluti.

[Anthony47]

Non ho capito se stai dicendo che hai risolto con le gif ma hai un altro problema o che cosa.

[giamoros]

Il problema non è ancora risolto.
Se posso inviare l'immagine del foglio forse riesco a spiegarmi meglio.
Ma come faccio?
in attesa saluti.

[giamoros]

Forse sono riuscito a spedirvi l'immagine del foglio su cui vorrei la gif.


image hosting

Fatemi sapere se vi arriva e se è chiara in modo da poter colloquiare più facilmente.
Grazie e saluti

[Anthony47]

L' immagine risulta leggibile, anche se non ne capisco (ancora) l' utilita'.
Quindi: andiamo avanti...

[giamoros]

Come si vede dall'immagine del foglio i dati rappresentano i valori delle quotazioni delle azioni della Borsa Italiana.
La maggior parte di essi arrivano in automatico usando la tecnica DDE.
Ora quando una azione dovesse superare il proprio massimo e/o il proprio minimo vorrei che apparisse una GIF animata.
Per far questo quindi avrei scelto l'area J6-K8 come locazione della GIF, ma come si vede la zona sembra essere ben collocata ma la gf non si vede.
Inoltre non vorrei neanche i cursori che incorniciano la zona J6-K8 .
Nell'area della gif attraverso l'uso dei cursori si vedono 4 righe e precisamente:

Non riesco a visualizzare questa pagina.
Verifica che l'indirizzo Web http:// sia corretto.
Cerca la pagina con il tuo motore di ricerca.
Aggiorna la pagina tra alcuni minuti.

Ho anche provato a nascondere la zona del webbrowser

Quando vuoi nascondere un controllo userai WebBrowser1.Visible = False (e =True per riabilitarlo).

ma non ci sono riuscito,
Qui di seguito l'immagine delle istruzioni Basic relative al foglio 7.

hostare immagini
In attesa cordiali saluti.

[Anthony47]

Ma tu, nel drive E:, hai una directory che si chiama DONWLOADS? Che contiene una hot.gif?

[giamoros]

Si,vedi immagine.

[enrico43]

La gif è più grande della finestra che hai tracciato. Per rimpicciolire la gif è un lavoro da titani (Anthony e Mods vari), potresti però ingrandire la finestra, ma se ti interessa lasciarla in quella posizione e con quelle dimensioni ti rimarrà sempre così.
Intanto cancella le prime 3 istruzioni nelle dichiarazioni del foglio 7 ed ora se vuoi far sparire le barre di scorrimento attorno alla gif e farla comparire interamente. Vai sul foglio 7, clicca su Visualizza-Barre degli Strumenti-Strumenti di Controllo e sul foglio ti compare la relativa finestra. Clicca sull'icona della squadretta in alto a sinistra e ti scompare la finestrella della gif. Clicca nella posizione dov'era la finestrella della gif e ti compariranno i 6 bottoni (cerchietti) del contorno della gif. Devi spostarli per ingrandire la finestrella e riclicca sull'icona della squadretta per vedere se va bene. Quest'operazione la devi fare finchè non sei soddisfatto, cioè fin quando non sono sparite le barre di scorrimento. Tieni presente che ti rimarrà sempre l'impronta della barra di destra. Se poi vuoi eliminarla o spostarla, sempre in fase di progettazione (cioè dopo aver cliccato la squadretta) vai nella posizione della gif e premi Canc o, per spostarla, tieni premuto il pulsante sinistro del mouse e spostala dove vuoi. Quando hai finito riclicca sulla squadretta e ti ricompare la gif.
Edit Vedo dalle immagini che ti ha inviato Anthony che la squadretta (Modalità Progettazione) è già inclusa nella barra dei comandi, è quella di cui sopra che devi cliccare per fare le modifiche. Io ho il 2003. Vedo anche che già avevi Gif89.zip.
Non capisco invece cosa c'è nella gif che vuoi inserire, sembrerebbe un collegamento. Postala se non è "hot".
Ciao

[Anthony47]

No, io non la vedo la directory Donwloads... E l' avevo scritto in maiuscolo!

[enrico43]

Scusa Antony, l'immaginetta è la directory Downloads (vedi anche intestazione) e hot.gif pesa 3kb
Ciao

[Anthony47]

Il quesito della Susy:

upload immagini
Scoprire le piccole differenze.

[enrico43]

Ti ha contagiato Gromit a fare gli indovinelli ?
Ciao

[giamoros]

Per enrico43:

La gif è più grande della finestra che hai tracciato. Per rimpicciolire la gif è un lavoro da titani (Anthony e Mods vari), potresti però ingrandire la finestra, ma se ti interessa lasciarla in quella posizione e con quelle dimensioni ti rimarrà sempre così.

Diciamo che per il momento va bene così.

Intanto cancella le prime 3 istruzioni nelle dichiarazioni del foglio 7

fatto

ed ora se vuoi far sparire le barre di scorrimento attorno alla gif e farla comparire interamente. Vai sul foglio 7, clicca su Visualizza-Barre degli Strumenti-Strumenti di Controllo e sul foglio ti compare la relativa finestra

.
Vado sul foglio 7 clicco su Visualizza ma non vedo né la sezione barra degli strumenti né la sezione Strumenti di controlli.
E qui mi sono impantanato.
In attesa cordiali saluti.

[enrico43]

Nella prima immagine del topic di Anthony del 7 h 21.21 dove ti ha spiegato tutti gli step per inserire la gif, subito sotto al tab Sviluppo c'è l'icona di una squadretta e matita, quella è l'icona che devi cliccare stando sul foglio dove c'è la gif per entrare nella modalità progettazione e fare tutte le modifiche alla gif. Cioè dal mio post precedente parti dalla riga 4 dove dice "Clicca sull'icona della squadretta....."
Io ho excel 2003 dove per trovare quell'icona va fatta la procedura descritta, tu invece l'hai già nella barra dei comandi sotto il tab Sviluppo.

[giamoros]

Per enrico43 :
vado sul foglio 7
vado sul tab Sviluppo
clicco su Modalità Progettazione (squadra e matita)
per un attimo la zona della Gif sparisce completamente ma immediatamente ricompare con tutte le frecce direzionali non dandomi la possibilità di operare.
Dove sbaglio?
Grazie e cordiali saluti

[Anthony47]

Non ho capito perche' siamo tornati alla fase di progettazione dell' oggetto.

Piuttosto, hai risolto l' incongruenza che non faceva visualizzare la gif??

Per inserire una gif grande in un frame piccolo va usata una stringa di codice html, in cui si useranno gli attributi htm width e heigth; idem per rimuovere le barre di scorrimento.
Quindi, ad esempio:

Codice: Seleziona tutto

   WebBrowser1.Navigate "about:<html><body scroll='no'><img src='D:\PIPPO\Pesce_Sorridente.gif' width=""120"" height=""60""></body></html>"


Ma se non stai attento a quel che digiti non ti riuscira' nemmeno stavolta

Ciao

[giamoros]

Per Anthony47 :

Non ho capito perche' siamo tornati alla fase di progettazione dell' oggetto.
Piuttosto, hai risolto l' incongruenza che non faceva visualizzare la gif??

A dire il vero non l'ho capito nemmeno io ma senz'altro è colpa mia perché sto passeggiando su delle sabbie molli a causa della mia inesperienza della materia in oggetto e sto affogando sempre più in basso non sapendomi spiegare meglio.
La situazione delle dichiarative del foglio 7 è la seguente;
...............................................................................
Private Sub Image1_Click()
End Sub
...............................................................................
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
End Sub
.............................................................................
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
..........................................................................
Private Sub Worksheet_Activate()
WebBrowser1.Navigate "E:\Donwloads\hot.gif" '<<< Il vero Drive, Percorso, nome file
End Sub
.............................................................................
e non mi dà nessun errore diciamo di sintassi.
Ora tu mi dici di provare questa dichiarazione

WebBrowser1.Navigate "about:<html><body scroll='no'><img src='D:\PIPPO\Pesce_Sorridente.gif' width=""120"" height=""60""></body></html>"

ma sinceramente al posto e/o di quale su elencate dichiarazione va messa
Poi per prima cosa l'ho personalizzata per il mio caso in questo modo :

WebBrowser1.Navigate "about:<html><body scroll='no'><img src='E:\Donwloads\hot.gif' width=""120"" height=""60""></body>/html>

"
ma questa dichiarativa,anche se messa su un unica riga,diventa subito rossa come se avesse qualche errore di sintassi.
In attesa cordiali saluti.

[Anthony47]

Devi rimuovere questo codice
Private Sub Worksheet_Activate()
WebBrowser1.Navigate "E:\Donwloads\hot.gif" '<<< Il vero Drive, Percorso, nome file
End Sub
(anche l' altro codice che hai pubblicato e' inutile e puoi cancellarlo).
Inserirai al suo posto

Codice: Seleziona tutto

Private Sub Worksheet_Activate()
   WebBrowser1.Navigate "about:<html><body scroll='no'><img src='E:\Downloads\hot.gif' width=""120"" height=""60""></body>/html>"
End Sub


Height e width li metterai secondo la dimensione del tuo WebBrowser, che leggi tra le Proprieta',
E ti avviso che se leggo ancora una volta E:Donwload\hot.gif cancello tutta la discussione

[giamoros]

Per Anthony47 :
Questa è la situazione attuale delle dichiarative relative al foglio 7,
.............................................................................
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
End Sub
..............................................................................
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
.............................................................................
Private Sub Worksheet_Activate()
WebBrowser1.Navigate "about:<html><body scroll='no'><img src='E:\Downloads\hot.gif' width=""120"" height=""60""></body>/html>"
End Sub
...................................................................................
Ma dove trovo le proprietà del webBrowser e come determino Height e width ed in base a che cosa?
Sono per caso width=""120"" height=""60""> presi dalla dichiarativa che mi hai postato?
Grazie ed in attesa cordiali saluti.