Question sur image animé GIF

Bonjour,

Voila mon nouveau petit problème.

Je voulais insérer un gif animé dans mon classeur excel, ça j'ai réussi (youpi ) mais le problème est après, quand je l'inserre j'ai la barre a droite comme internet pour descendre la page alors que mon image est entièrre!!! Et j'ai des bordures à la c**.

Ma question est simple, peut on enlever ce superflu? Si oui de quel façon si non c'est pas grave je ferais sans mais avec je marquerais des points!!! lol

Voici comment j'ai fait:

outils->Controle->Insérer->Autres controles->Microsoft web browser

Ensuite tout petit VB Alt + F11

Sub Gif()

WebBrowser1.Navigate "C:\Users\JC03B03C\Desktop\cube.gif"

End Sub

Puis Alt + F8 pour lancer la macro.

Je joint un screen pour vous montrez les choses qui rendent le doc moche!!!

Merci d'avance

Amicalement

Bonjour,

Pour supprimer le défilement vertical

dans le VBE de la feuille concernée

Private Sub Worksheet_Activate()
    ActiveWindow.DisplayVerticalScrollBar = False
End Sub

Private Sub Worksheet_Deactivate()
    ActiveWindow.DisplayVerticalScrollBar = True
End Sub

Amicalement

Claude

Bonjour claude,

Je vient de copier coller ce que tu m'as dit mais ça ne fonctionne pas!

N'y a t il pas une erreur a: Private Sub Worksheet_Deactivate()

N'est ce pas desactivate()?

J'ai essayer les deux mais ça ne fonctionne pas! voila où je l'ai mis.

ps: je ne peut pas te donner le fichier car il fait 60 Mo

Voila un screen.

Amicalement

re,

N'est ce pas desactivate()?

Non, c'est bien comme j'ai écrit + haut

Les macros sont-elles bien activées ?

mon code fonctionne au changement de feuille, as-tu essayé ?

Claude

Voila ce que ça me donne comme code:

Sub Gif()

WebBrowser1.Navigate "C:\Users\JC03B03C\Desktop\cube.gif"

End Sub

Private Sub Worksheet_Activate()

ActiveWindow.DisplayVerticalScrollBar = False

End Sub

Private Sub Worksheet_Deactivate()

ActiveWindow.DisplayVerticalScrollBar = True

End Sub

Parceque je vais chercher mon image et ensuite ton code ou dois-je les taper dans un autre ordre ou différement?

Je ne sais pas comment voir si mes Macros sont bien activé mais je pense que oui puisque je dois en lancer une pour avoir mon gif animé?!

Amicalement

re,

çà n'a rien à voir avec ta macro image,

quand tu sélectionne l'onglet où il y a mon code, la barre de déplacement verticale est annulée,

si tu passe dans un autre onglet, çà remet la barre.

En aucun cas, le Sub Gif() ne lance les Private Sub Worksheet_Activate()

à noter que le Sub Gif() devrait être dans un module

comment le lance-tu, avec un bouton ?

Claude

Je le lance avec ALT+F8 et j'execute la macro a son nom et une fois que c'est lancé ya plus besoin de recommencer.

Je re regarde ton code un peut plus tard, mon patron m'a demandé un truc qu'il faut que je fasse assez rapidement donc si j'ai pas le temps aujourd'hui je regarde demain.

Amicalement