gif animé

G

gothc

Guest
bonjour le forum

je cherche le module qui contrôle le gif animé sur une page excel

le module navigateur web microsoft
ne marche pas

merci pour votre aide et bon vendredi
 

ziopizza

XLDnaute Occasionnel
Bonjour gotgc et le Forum,

J'utilise se code qui fonctionne tres bien chez moi



Private Sub UserForm_Initialize()
'gif anime Ajouter Navigateur web Microsoft dans Userform
WebBrowser1.Navigate _
'about:<html><body scroll='no'>' & '<img src='c:\\ani.gif'></img></body></html>'
End Sub

Salut Yves
 
G

gothc

Guest
piéce jointe [file name=WebBrowser_On_Sheets.zip size=10773]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/WebBrowser_On_Sheets.zip[/file]
 

Pièces jointes

  • WebBrowser_On_Sheets.zip
    10.5 KB · Affichages: 71
  • WebBrowser_On_Sheets.zip
    10.5 KB · Affichages: 71
  • WebBrowser_On_Sheets.zip
    10.5 KB · Affichages: 72

MichelXld

XLDnaute Barbatruc
bonjour Gothc , bonjour Yves

@+Thierry utilises bien un WebBrowser dans la feuille

dans cet exemple , la procédure ( identique à celle proposée par yves ) est au niveau de ThisWorkbook
avec l'evenement 'Open ' pour que le déclenchement soit effectué dès l'ouverture du classeur

pour insérer un navigateur Web dans la feuille :
dans la barre de menus , tu cliques sur l'icône 'autres controles'
Sélectionnes 'Navigateur Web Microsoft' dans la liste
et inséres l'objet dans la feuille


bonne soiree
MichelXld
 
D

DAVID P

Guest
Bonjour le forum,


je me permets une petite question.


J'ai essayé la procédure ci dessus:


Autres contrôles
Navigateur web microsoft


et lorsque je clique sur ma feuille , j'obtiens une forme
avec un drapeau microsoft' webbrowers1'.



- Comment donne t'on le chemin d'accés pour atteindre
le gif désiré?


je ne suis pas pressé.

Merci d'avance

Bonne nuit à tous
 

ziopizza

XLDnaute Occasionnel
Bonsoir david p,gothc et le Forum,

ci joint le code de @Thierry
adapte à ta demande.
c/ani.gif la position et le nom de mon image a toi de changer le nom


salut Yves [file name=WebBrowser.zip size=13064]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/WebBrowser.zip[/file]
 

Pièces jointes

  • WebBrowser.zip
    12.8 KB · Affichages: 72
  • WebBrowser.zip
    12.8 KB · Affichages: 65
  • WebBrowser.zip
    12.8 KB · Affichages: 66
G

gothc

Guest
merci pour votre demo

j'ai encore une petite question
comment choisir une couleur dans le module
WebBrowser

jai un code pour Userform


Private Sub UserForm_Activate()
WebBrowser1.Document.bgColor = RGB(224, 224, 224)
End Sub
comment ladapter sur une page

merci pour votre aide
 

Gibson94

Nous a quitté
Repose en paix
Bonjour le fil, le forum,

Je profite de ce fil pour vous demander si vous connaissez le moyen d'appeler un gif animé provenant non pas du PC, mais du web.

Jusqu'à maintenant, je n'ai jamais réussi a en appeler un d'un site. J'ai toujours eu un soucis de liaison avec message d'erreur.

Merci à vous tous.
 
G

gothc

Guest
bonjour

ça marche mais avec une erreur
dans la page 1
le code
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Sheets('Feuil1').WebBrowser1.Document.bgColor = RGB(224, 224, 224)

End Sub

mais quand je quitte ou jouvre le document il m fait une erreur
Ereeur d'exécution 1004
la methode sheets de lobjet_Global a échoué
:sick:
 

Gibson94

Nous a quitté
Repose en paix
Bonjour le fil,

Merci Michel pour l'info, bien sûr que la démo de thierry fonctionne à merveille. D'autant que je l'ai utilisé hier (lol), mais comme j'avais déjà concontré cet erreur auparavant (il me semble même que tu m'avais déjà tuyauté sur le sujet mais j'obtenais toujours des cadres blancs). J'ai du actionner quelque chose depuis pour le lien web...merci encore.

Je ne peux répondre à ta question Gothc, je ne connait pas la solution de ton problème... A bientôt.
 

Discussions similaires

Réponses
13
Affichages
339