Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel webBrowser et ajustement image GIF dans feuille de calcul

webBrowser et ajustement image GIF dans feuille de calcul

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Modeste
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

@+

Avatar
j-pascal
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

@+



Avatar
Modeste
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...
@+