marges des webbrowser

D

dacyrix

Guest
bonjour
j'ai inséré un gif animé dans un webbrowser.le problème est que je ne vois pas tout le gif.j'aimerai en gardant la taille du webbrowser pouvoir positionner le gif où je veux par exemple en haut à gauche
afin de voir tout le gif. apparemment il faut que j'utilise la syntaxe
webbrowser.document.body
WebBrowser1.Document.body.TopMargin = 0
WebBrowser1.Document.body.BottomMargin = 0
WebBrowser1.Document.body.LeftMargin = 0
WebBrowser1.Document.body.RightMargin = 0
mais je n'arrive pas à garder la taille du webbrowser et à positionner
correctement le gif
quelqu'un a t-il la solution
merci
 

MichelXld

XLDnaute Barbatruc
bonjour

l'exemple proposé correspond à un webBrowser dans un UserForm.
il faut l'adapter pour un WebBrowser dans la feuille


Code:
Sub webBrowser_Feuille()
Dim S As String
Dim Hauteur As Long, Largeur As Long

Largeur = Feuil1.WebBrowser1.Width * 96 / 72
Hauteur = Feuil1.WebBrowser1.Height * 96 / 72
S = 'C:\\Documents and Settings\\michel\\dossier\\fourmiz.gif'

Feuil1.WebBrowser1.Navigate _
'ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=' & _
Largeur & ' HEIGHT=' & Hauteur & _
' SRC='' & S & ''</IMG></BODY></CENTER></HTML>'

End Sub


bonne journée
MichelXld

Message édité par: michelxld, à: 24/10/2005 06:06
 

Discussions similaires

Statistiques des forums

Discussions
312 492
Messages
2 088 942
Membres
103 989
dernier inscrit
jralonso