webBrowser et ajustement image GIF dans feuille de calcul

Le
j-pascal
Bonjour à tous,

Afin d'importer un GIF animé dans une feuille excel, j'utilise un contrôle
webBrother :

1 - Dans un module, j'ai :

Function ChangeIMG(Fichier As String)
Sheets("planning activités").WebBrowser1.Navigate "about:<html><body
scroll='no'><img src='" & ThisWorkbook.Path & Fichier & "' WIDTH='150'
HEIGHT='38' STYLE='position: absolute; top: 2px; left:
2x'></img></body></html>"

End Function

2 - Je trace mon image à partir de "Affichage" / "Barre d'outils" / "Boite à
outils contrôles" / "Autres contrôles" / puis je sélectionne "Navigateur Web
Microsoft"

3 - Puis je sélectionne "Boite à outils contrôles" / "Propriétés" et
j'ajuste la taille en "Height" et "Width"

Question : Puisque j'ai la taille de l'image dans "Function ChangeIMG" et
dans "Propriétés", mon GIF devrait être parfaitement superposé dans ma
feuille de calcul, et pourtant, il ne l'est pas tout à fait ! Pourriez-vous
me dire pourquoi ?

Un grand merci d'avance ;-)

JP
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #3686181
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :

Function ChangeIMG(Fichier As String)
Sheets("planning activités").WebBrowser1.Navigate "about:<html><body
scroll='no'><img src='" & ThisWorkbook.Path & Fichier & "' WIDTH='150'
HEIGHT='38' STYLE='position: absolute; top: 2px; left:
2x'></img></body></html>"
End Function
../..

3 - Puis je sélectionne "Boite à outils contrôles" / "Propriétés" et
j'ajuste la taille en "Height" et "Width" ...


ajuster également le parametre PictureSizeMode à :
1-fmPictureSizeModeStretch

@+

j-pascal
Le #3686151
Bonsoir Modeste,

Merci pour ta réponse (toujours aussi rapide !)

Désolé, mais je ne comprends pas ;-(
Où se trouve :
1-fmPictureSizeModeStretch
(ajuster également le parametre PictureSizeMode à : ) ?

PS : je ne peux pas sélectionner les "Propriétés" sans passer par l'étape
"navigateur web microsoft" ! Peut-on le faire sans cela ?

Merci,

JP

Function ChangeIMG(Fichier As String)
Sheets("planning activités").WebBrowser1.Navigate "about:<html><body
scroll='no'><img src='" & ThisWorkbook.Path & Fichier & "'
WIDTH='150' HEIGHT='38' STYLE='position: absolute; top: 2px; left:
2x'></img></body></html>"
End Function
../..

3 - Puis je sélectionne "Boite à outils contrôles" / "Propriétés" et
j'ajuste la taille en "Height" et "Width" ...


ajuster également le parametre PictureSizeMode à :
1-fmPictureSizeModeStretch

@+



Modeste
Le #3686121
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :

Désolé, mais je ne comprends pas ;-(
Où se trouve :
1-fmPictureSizeModeStretch
(ajuster également le parametre PictureSizeMode à : ) ?


oupssss!!!!
en effet réponse trop rapide non verifiée....
confusion de propriétes des controles

toutes mes excuses...
@+

Publicité
Poster une réponse
Anonyme