Excel Downloads
Forum

Précédent   Excel Downloads Forums > Excel > Forum Excel


Réponse
 
LinkBack Outils de la discussion
Vieux 28/11/2005, 12h08   #1 (permalink)
800vfr76
Guest
 
Messages: n/a
Par défaut enlever bar défilement sur gif animé dans userform

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.
  Réponse avec citation
ANNONCES
Vieux 28/11/2005, 12h39   #2 (permalink)
XLDnaute Barbatruc
 
Date d'inscription: février 2005
Messages: 3 833
Par défaut Re:enlever bar défilement sur gif animé dans userform

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
MichelXld est déconnecté   Réponse avec citation
Vieux 28/11/2005, 12h55   #3 (permalink)
800vfr76
Guest
 
Messages: n/a
Par défaut Re:enlever bar défilement sur gif animé dans userform

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.

@+
  Réponse avec citation
Vieux 28/11/2005, 13h30   #4 (permalink)
XLDnaute Barbatruc
 
Date d'inscription: février 2005
Messages: 3 833
Par défaut Re:enlever bar défilement sur gif animé dans userform

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
MichelXld est déconnecté   Réponse avec citation
Vieux 28/11/2005, 13h48   #5 (permalink)
XLDnaute Barbatruc
 
Date d'inscription: février 2005
Messages: 3 833
Par défaut Re:enlever bar défilement sur gif animé dans userform

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]
Fichiers attachés
Type de fichier : zip imageGifWebBrowser.zip (420 octets, 86 affichages)
MichelXld est déconnecté   Réponse avec citation
Vieux 28/11/2005, 14h39   #6 (permalink)
800vfr76
Guest
 
Messages: n/a
Par défaut Re:enlever bar défilement sur gif animé dans userform

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.

@+
  Réponse avec citation
ANNONCES
Réponse

Liens sociaux

Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 07h05.


(C) 2006 Excel Downloads