Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Gif animate in VBA

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Gif animate in VBA

Postdi giamoros » 12/04/15 17:53

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.
Windows 8.1 Excel 2007
giamoros
Utente Junior
 
Post: 48
Iscritto il: 30/06/11 15:22

Sponsor
 

Re: Gif animate in VBA

Postdi Anthony47 » 12/04/15 22:31

Non ho capito se stai dicendo che hai risolto con le gif ma hai un altro problema o che cosa.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Gif animate in VBA

Postdi giamoros » 13/04/15 15:46

Il problema non è ancora risolto.
Se posso inviare l'immagine del foglio forse riesco a spiegarmi meglio.
Ma come faccio?
in attesa saluti.
Windows 8.1 Excel 2007
giamoros
Utente Junior
 
Post: 48
Iscritto il: 30/06/11 15:22

Re: Gif animate in VBA

Postdi giamoros » 13/04/15 16:22

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

Immagine
image hosting

Fatemi sapere se vi arriva e se è chiara in modo da poter colloquiare più facilmente.
Grazie e saluti
Windows 8.1 Excel 2007
giamoros
Utente Junior
 
Post: 48
Iscritto il: 30/06/11 15:22

Re: Gif animate in VBA

Postdi Anthony47 » 13/04/15 20:41

L' immagine risulta leggibile, anche se non ne capisco (ancora) l' utilita'.
Quindi: andiamo avanti...
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Gif animate in VBA

Postdi giamoros » 14/04/15 10:48

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.
Immagine
hostare immagini
In attesa cordiali saluti.
Windows 8.1 Excel 2007
giamoros
Utente Junior
 
Post: 48
Iscritto il: 30/06/11 15:22

Re: Gif animate in VBA

Postdi Anthony47 » 14/04/15 14:07

Ma tu, nel drive E:, hai una directory che si chiama DONWLOADS? Che contiene una hot.gif?
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Gif animate in VBA

Postdi giamoros » 14/04/15 15:44

Si,vedi immagine.
Immagine
Windows 8.1 Excel 2007
giamoros
Utente Junior
 
Post: 48
Iscritto il: 30/06/11 15:22

Re: Gif animate in VBA

Postdi enrico43 » 14/04/15 17:46

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
enrico43
Utente Senior
 
Post: 133
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Gif animate in VBA

Postdi Anthony47 » 14/04/15 18:37

No, io non la vedo la directory Donwloads... E l' avevo scritto in maiuscolo!
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Gif animate in VBA

Postdi enrico43 » 14/04/15 20:20

Scusa Antony, l'immaginetta è la directory Downloads (vedi anche intestazione) e hot.gif pesa 3kb
Ciao
enrico43
Utente Senior
 
Post: 133
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Gif animate in VBA

Postdi Anthony47 » 14/04/15 23:51

Il quesito della Susy:
Immagine
upload immagini
Scoprire le piccole differenze.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Gif animate in VBA

Postdi enrico43 » 15/04/15 08:19

Ti ha contagiato Gromit a fare gli indovinelli ?
Ciao
enrico43
Utente Senior
 
Post: 133
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Gif animate in VBA

Postdi giamoros » 15/04/15 10:25

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.
Windows 8.1 Excel 2007
giamoros
Utente Junior
 
Post: 48
Iscritto il: 30/06/11 15:22

Re: Gif animate in VBA

Postdi enrico43 » 15/04/15 13:29

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.
enrico43
Utente Senior
 
Post: 133
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Gif animate in VBA

Postdi giamoros » 15/04/15 14:21

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
Windows 8.1 Excel 2007
giamoros
Utente Junior
 
Post: 48
Iscritto il: 30/06/11 15:22

Re: Gif animate in VBA

Postdi Anthony47 » 15/04/15 14:40

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 :D :D

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Gif animate in VBA

Postdi giamoros » 15/04/15 16:11

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.
Windows 8.1 Excel 2007
giamoros
Utente Junior
 
Post: 48
Iscritto il: 30/06/11 15:22

Re: Gif animate in VBA

Postdi Anthony47 » 15/04/15 16:32

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 :diavolo:
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Gif animate in VBA

Postdi giamoros » 15/04/15 18:28

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.
Windows 8.1 Excel 2007
giamoros
Utente Junior
 
Post: 48
Iscritto il: 30/06/11 15:22

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "Gif animate in VBA":

Gif animate
Autore: Ary_89
Forum: Software Windows
Risposte: 3
gif animate
Autore: Xwarrior
Forum: Programmazione
Risposte: 1

Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti