enlever bar défilement sur gif animé dans userform

[800vfr76]

Bonjour a tous,

J'ai un userform avec un gif animé et je voudrai enlever si c possible la bar de défilement qui se situe a droite du gif.

J'ai essayé d'agrandir, de rétrécir, modifier des false, et des tru, un peu partout mais rien y fait.

Peut-on aussi éviter d'avoir ce garnd carré blanc autour, n'avoir que le gif et plus grand si possible.

Merci a vous tous.

 

[MichelXld]

bonjour

cet exemple permet d'adapter l'image a la taille du Webbrowser et de na pas afficher les barres de défilement

Private Sub UserForm_Initialize()
Dim S As String
Dim Hauteur As Long, Largeur As Long

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

WebBrowser1.Navigate _
'ABOUT:<IMG WIDTH=' & _
Largeur & ' HEIGHT=' & Hauteur & _
' SRC='' & S & '''
End Sub

bonne journée
MichelXld

 

[800vfr76]

Re,

Ok merci, je peux agrandir le gif mais j'ai toujours la barre de défilment a droite, et l'arrière plan du gif en blanc.

@+

 

[MichelXld]

rebonjour

oouuppss...tu as raison , il a une petite erreur de ma part

je vais te preparer un fichier joint car la procedure n'apparait pas correctement losqu'on la colle dans un post


sinon , pour changer la couleur de fond d'un Webbrowser

Private Sub UserForm_Activate() 
'Remarque : l'equivalence de couleur RGB en VBA est BGR en HTML  
WebBrowser1.Document.bgColor = RGB(205, 100, 0) 
End Sub

bon apres midi
MichelXld

Message édité par: michelxld, à: 28/11/2005 12:31

Message édité par: michelxld, à: 28/11/2005 12:34

 

[MichelXld]

rebonjour

...on va y arriver ...

je t'ai copié la procedure dans le fichier joint
la macro adapte l'image a la taille du Webbrowser


bon apres midi
MichelXld


ps
c'est curieux que le code Html soit pris en compte meme quand je saisis la macro entre balises 'Code'...cher David si tu passes par ici ... [file name=imageGifWebBrowser.zip size=420]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imageGifWebBrowser.zip[/file]

 

[800vfr76]

Re,

Impec ca marche.

Merci a toi et a ce super forum sur lequel j'apprend plein de truc, bon d'accord je comprend pas tout mais je me débrouille en faisant des copier coller de bouts de macros.

@+

 

[JPDU92]

Re : enlever bar défilement sur gif animé dans userform

Trop fort, merci beaucoup à tous !