Insérer une bannière animée

**zangaloni** · 19/04/2011, 11h40

Bonjour,

Je cherche à faire une bannière animée sous excel, est ce que c'est possible ?
une bannière comme celle qu'on trouve dans les sites de bourse,
un exemple : http://www.casablanca-bourse.com/BourseWeb/index.aspx

bonne journée.

**mercatog** · 19/04/2011, 11h45

Bonjour
Excel est d'abord un tableur (pour des fins certes grandes mais précises)
C'est faisable, mais combien de ressources tu engagera (boucle infinie) pour ce coté "esthétique".

**zangaloni** · 19/04/2011, 11h55

Je pense que c'est difficile à réaliser.
Je me rend, mon programme est assez volumineux je voulais juste ajouter une touche particulière
Merci en tous cas

**patricktoulon** · 19/04/2011, 20h50

bonjour

effectivement une boucle perpétuelle serai nécessaire pour faire ton animation

néanmoins il y a une autre solution.

regarde un peu sur le net au sujet de la "gif.dll" petite dll te permettant d'afficher un gif animé (c'est un ocx) a ajouter

télécharger la dll ici

la gif89.dll est ici

met la dans le dossier "c\windows \system32"

enregistre avec regsvr32 :

menu démarrer/exécuter, et tape l'instruction :

regsvr32 "c:\Windows\System32\gif89.dll"

dans la boite a outil de l'éditeur de macro (outil supplémentaires et "giff089"

ça pourrait être une solution alternative que j'ai utlisé d'ailleurs

il ne reste plus qu' a fabriquer ta bannière animée au format giff avec le logiciel de ton choix

pour ma part j'utilise "theGIMP" gratuit (sans faire de PUB!!!)

n'hésite pas si tu a des questions

au plaisir

**mercatog** · 19/04/2011, 20h53

Bonjour Patrick
idée géniale sauf que la bannière dont il s'agit sert comme support d'informations (données) qu'il faut mettre à jour et non une simple image annimée.

**fring** · 20/04/2011, 11h50

Bonjour,

Il y a une solution en passant par un WebBrowser

tu insères un contrôle WebBrowser sur ta feuille

code à placer dans un Module Standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub TestWb()
'Références à activer :
'    - Microsoft Internet Control
'    - Microsoft HTML Object Library
 
Dim Texte As String
 
Texte = "Mon Texte qui défile"
 
Sheets(1).WebBrowser1.Navigate _
        "about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color='#000099' size='5' face='Arial'>" & _
        "<marquee scrollAmount=5>" & Texte & "</marquee></font></body></html>"
        'body BGCOLOR ='#CCCCCC' <-- couleur de fond du WebBrowser
        'font color='#000099' <-- couleur du texte
        'size='5' <-- taille du texte
        'face='Arial' <-- style de texte
        'scrollAmount=5 <-- vitesse de défilement
 
End Sub

code à placer dans le module de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Activate()
    TestWb
End Sub

Insérer une bannière animée [XL-2003]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager