![]() |
|
Forum
|
|
|
#1 (permalink) |
|
Guest
Messages: n/a
|
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. |
|
| ANNONCES | |||
|
|
|
|
#2 (permalink) |
|
XLDnaute Barbatruc
Date d'inscription: février 2005
Messages: 3 833
|
bonjour
cet exemple permet d'adapter l'image a la taille du Webbrowser et de na pas afficher les barres de défilement Code:
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 |
|
|
|
|
|
#4 (permalink) |
|
XLDnaute Barbatruc
Date d'inscription: février 2005
Messages: 3 833
|
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 Code:
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 |
|
|
|
|
|
#5 (permalink) |
|
XLDnaute Barbatruc
Date d'inscription: février 2005
Messages: 3 833
|
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] |
|
|
|
|
|
#6 (permalink) |
|
Guest
Messages: n/a
|
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. @+ |
|
|
| ANNONCES | |
![]() |
| Liens sociaux |
| Outils de la discussion | |
|
|