Inserire GIF animate in Userform
Ricky
sto provando di inserire un'immagine in un a userform.
Si tratta di una GIF animata (immagine in movimento....)
Ho utilizzato il codice:
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\image001-.GIF")
L'immagine appare, ma č ferma, inanimata.... :-)
E' possibile farla muovere?
Buona fine giornata
Ricky
Ricky
"Ricky" <Rick...@libero.it> ha scritto nel messaggio
news:7BNBf.144918$65.40...@twister1.libero.it...
> Ciao!
> sto provando di inserire un'immagine in un a userform.
> Si tratta di una GIF animata (immagine in movimento....)
nel caso servisse una GIF per provare il codice....
http://www.webgif.com/
Norman Jones
>> Ciao!
>> sto provando di inserire un'immagine in un a userform.
>> Si tratta di una GIF animata (immagine in movimento....)
>
> nel caso servisse una GIF per provare il codice....
> http://www.webgif.com/
'------------------------------------
Ciao Ricky,
Vedi:
http://dj.joss.free.fr/faq.htm#gifanim
---
Regards,
Norman
Norman Jones
Al site:
http://www.excelabo.net/moteurs/multixl.php?pge=4&f_mot=animation
potresti scaricare un file d'esempio:
fs-gifanime
Nella macro:
Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='C:\!DocFlo\disci3\ds-gif\misange.gif'></img></body></html>"
DoEvents
End Sub
devi sostituire:
'C:\!DocFlo\disci3\ds-gif\misange.gif'
con il percorso e il nome della tua gif.
---
Regards,
Norman
Ricky
"Norman Jones" <norma...@whereforartthou.com> ha scritto nel messaggio
news:%232cO02c...@tk2msftngp13.phx.gbl...
Ciao Norman,
sono andato sul link ma non ho capito il da farsi....
Ho provato ad incollare il codice, cambiando il percorso della GIF...,
nulla....
Devo aggiungere qualche componente aggiuntivo?
Qualche libreria?
Comment insérer un gif animé dans un Userform ?
Ajouter à la boite à outils le contrôle "Navigateur Web Microsoft".
Placer ce contrôle sur un UserForm.
Dans l'événement Initialize du UserForm, placer le code suivant :
Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='D:\images\envelope.gif'></img></body></html>"
End Sub
Norman Jones
> fs-gifanime
Il link per scaricare il file d'esmpio dovrebbe essere:
http://www.excelabo.net/moteurs/compteclic.php?nom=fs-gifanime
---
Regards,
Norman
Norman Jones
> Ciao Norman,
> sono andato sul link ma non ho capito il da farsi....
> Ho provato ad incollare il codice, cambiando il percorso della GIF...,
> nulla....
> Devo aggiungere qualche componente aggiuntivo?
> Qualche libreria?
Prova il file di esempio indicato nella mia seconda (e terza) risposta.
---
Regards,
Norman
Ricky
Ohhhhhh! Fantastico!
Sono riuscito ad animare la mia GIF,
utilizando il file d'esempio.
Andando nel Mio file excel,
non ho trovato nella Casella degli Strumenti,
l'oggetto "WebBrowser"
Sai dove lo posso recuperare?
Ricky
Norman Jones
> Ohhhhhh! Fantastico!
> Sono riuscito ad animare la mia GIF,
> utilizando il file d'esempio.
> Andando nel Mio file excel,
> non ho trovato nella Casella degli Strumenti,
> l'oggetto "WebBrowser"
> Sai dove lo posso recuperare?
Nel VBE:
Menu | Strumenti | Controlli Aggiuntivi | Microsoft WebBrowser
---
Regards,
Norman
Ricky
Trovato!
Grazie come al solito :-)
Ricky
Ricky
"Norman Jones" <norma...@whereforartthou.com> ha scritto nel messaggio
news:O2bVVId...@TK2MSFTNGP15.phx.gbl...
Ciao!
Dopo aver capito come far muovere l'immagine,
ora stò adattando il mio codice per utilizzare questa novità!
In una userform ho 2 bottoni:
premendo il primo eseguo delle istruzioni, il secondo chiude la userform.
Vorrei che premendo il primo tasto,
si animasse la GIG per X secondi,
fossero eseguite le istruzioni,
si chiudesse la userform.
Facile, ho pensato....
Ho provato con il codice che riporto,
ma mi si vengono eseguite le istruzioni e chiusa la userform
immediatamente....
Ho provato a cambaire l'ordine delle istruzioni e di "unload me"...
Inizio a pensare che dovrei usare una funzione tipo "Timer".....
sconosciuta...
Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 8).Value = "CONFERMATO"
UserForm1.Label46.Caption = UserForm1.Label46.Caption + 1
UserForm1.Label70.Caption = "CONFERMATO"
UserForm1.Label70.BackColor = &H80FF80
UserForm1.TextBox5.BackColor = &H80FF80
UserForm1.TextBox8.BackColor = &H80FF80
UserForm1.TextBox9.BackColor = &H80FF80
UserForm1.TextBox12.BackColor = &H80FF80
UserForm1.TextBox13.BackColor = &H80FF80
Do
DoEvents
i = i + 1
Loop Until i = 1000
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='C:\Documents and
Settings\Ricky.UNKNOWN-UNKNOWN\Desktop\Nuova cartella\Immagini x
TOOL\Immagine1.GIF'></img></body></html>"
Unload Me
DoEvents
End Sub
Norman Jones
'-------------------------------------------------
Ciao Ricky,
Prova:
Nel modulo dell'Userform1
'===============>>
Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 8).Value = "CONFERMATO"
UserForm1.Label46.Caption = UserForm1.Label46.Caption + 1
UserForm1.Label70.Caption = "CONFERMATO"
UserForm1.Label70.BackColor = &H80FF80
UserForm1.TextBox5.BackColor = &H80FF80
UserForm1.TextBox8.BackColor = &H80FF80
UserForm1.TextBox9.BackColor = &H80FF80
UserForm1.TextBox12.BackColor = &H80FF80
UserForm1.TextBox13.BackColor = &H80FF80
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat
End Sub
'<<===============
'===============>>
Private Sub UserForm_Activate()
Do
DoEvents
i = i + 1
Loop Until i = 100 ' 75000
' Unload Me
'CAMBIA IL PERCORSO DEL GIF
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='C:\Documents and Settings\NormanJones\" & _
"My Documents\My Pictures\Test.gif'></img></body></html>"
DoEvents
End Sub
'<<===============
In in modulo Standard:
Prima di qualsiasi codice:
Option Explicit
Public RunWhen As Double
Public Const cRunIntervalSeconds = 5 '<<=== Da CAMBIARE
Public Const cRunWhat = "CloseIt" '<<=== Da CAMBIARE
'=============>>
Public Sub CloseIt()
Unload UserForm1
End Sub
'<<=============
---
Regards,
Norman
Norman Jones
> 'CAMBIA IL PERCORSO DEL GIF
===> > 'CAMBIA IL PERCORSO DELLA GIF
Il codice (forse) funziona ma la lingua va male!
---
Regards,
Norman