Jamais vraiment vérifié. La propriété PictureSizeMode donne 3 choix:
0 - Rogner 1- Étirer 2 - Zoom
Quant à apprécier le résultat final...
"huch" a écrit dans le message de news:
Bonjour Est-il possible d'ajuster la taille d'une image à la taille d'un control picture en vba
Merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
michdenis
Bonjour huch,
voici un exemple de code pour insérer un Contrôle "Image" dans une feuille de calcul à un endroit déterminer par une plage de cellules et comment y ajouter une image dans ce contrôle tout en redimensionnant celle-ci.
'--------------------------------- Sub InsererControlEtImage()
Dim Img As Object Dim A As Double, B As Double Dim C As Double, D As Double
With Worksheets("Feuil2") With Range("C2:D5") A = .Top B = .Height C = .Width D = .Left End With Set Img = .OLEObjects.Add(ClassType:="Forms.Image.1", _ Link:úlse, DisplayAsIcon:úlse, Left:=D, _ Top:=A, Width:=C, Height:=B).Object End With With Img .Picture = LoadPicture("C:j0178237.gif") .PictureSizeMode = fmPictureSizeModeStretch End With Set Img = Nothing: Set Rg = Nothing
End Sub '---------------------------------
Salutations!
"huch" a écrit dans le message de news: Bonjour Est-il possible d'ajuster la taille d'une image à la taille d'un control picture en vba
Merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Bonjour huch,
voici un exemple de code pour insérer un Contrôle "Image" dans une feuille de calcul à un endroit déterminer par une plage de
cellules et comment y ajouter une image dans ce contrôle tout en redimensionnant celle-ci.
'---------------------------------
Sub InsererControlEtImage()
Dim Img As Object
Dim A As Double, B As Double
Dim C As Double, D As Double
With Worksheets("Feuil2")
With Range("C2:D5")
A = .Top
B = .Height
C = .Width
D = .Left
End With
Set Img = .OLEObjects.Add(ClassType:="Forms.Image.1", _
Link:úlse, DisplayAsIcon:úlse, Left:=D, _
Top:=A, Width:=C, Height:=B).Object
End With
With Img
.Picture = LoadPicture("C:j0178237.gif")
.PictureSizeMode = fmPictureSizeModeStretch
End With
Set Img = Nothing: Set Rg = Nothing
End Sub
'---------------------------------
Salutations!
"huch" <huch@excel.fr> a écrit dans le message de news: mn.23f37d58a61b0591.0@excel.fr...
Bonjour
Est-il possible d'ajuster la taille d'une image à la taille d'un
control picture en vba
Merci
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
voici un exemple de code pour insérer un Contrôle "Image" dans une feuille de calcul à un endroit déterminer par une plage de cellules et comment y ajouter une image dans ce contrôle tout en redimensionnant celle-ci.
'--------------------------------- Sub InsererControlEtImage()
Dim Img As Object Dim A As Double, B As Double Dim C As Double, D As Double
With Worksheets("Feuil2") With Range("C2:D5") A = .Top B = .Height C = .Width D = .Left End With Set Img = .OLEObjects.Add(ClassType:="Forms.Image.1", _ Link:úlse, DisplayAsIcon:úlse, Left:=D, _ Top:=A, Width:=C, Height:=B).Object End With With Img .Picture = LoadPicture("C:j0178237.gif") .PictureSizeMode = fmPictureSizeModeStretch End With Set Img = Nothing: Set Rg = Nothing
End Sub '---------------------------------
Salutations!
"huch" a écrit dans le message de news: Bonjour Est-il possible d'ajuster la taille d'une image à la taille d'un control picture en vba
Merci
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
huch
Merci , mais je connaissais Je recherche s'il est possible de mettre la hauteur ou la largeur de l'image à l'identique du contrôle et de garder les proportions pour ne pas déformer l'image
Merci encore une fois
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Merci , mais je connaissais
Je recherche s'il est possible de mettre la hauteur ou la largeur de
l'image à l'identique du contrôle et de garder les proportions pour ne
pas déformer l'image
Merci encore une fois
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Merci , mais je connaissais Je recherche s'il est possible de mettre la hauteur ou la largeur de l'image à l'identique du contrôle et de garder les proportions pour ne pas déformer l'image
Merci encore une fois
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
michdenis
Bonjour Huch,
Il te reste les logiciels de dessin avec lesquels tu peux retoucher tes images et les redimensionner en vertu des dimensions de tes contrôles "image" sur ta feuille de Calcul.
Salutations!
"huch" a écrit dans le message de news: Merci , mais je connaissais Je recherche s'il est possible de mettre la hauteur ou la largeur de l'image à l'identique du contrôle et de garder les proportions pour ne pas déformer l'image
Merci encore une fois
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Bonjour Huch,
Il te reste les logiciels de dessin avec lesquels tu peux retoucher tes images et les redimensionner en vertu des dimensions de tes
contrôles "image" sur ta feuille de Calcul.
Salutations!
"huch" <huch@excel.fr> a écrit dans le message de news: mn.2a0c7d58cd6802fd.0@excel.fr...
Merci , mais je connaissais
Je recherche s'il est possible de mettre la hauteur ou la largeur de
l'image à l'identique du contrôle et de garder les proportions pour ne
pas déformer l'image
Merci encore une fois
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Il te reste les logiciels de dessin avec lesquels tu peux retoucher tes images et les redimensionner en vertu des dimensions de tes contrôles "image" sur ta feuille de Calcul.
Salutations!
"huch" a écrit dans le message de news: Merci , mais je connaissais Je recherche s'il est possible de mettre la hauteur ou la largeur de l'image à l'identique du contrôle et de garder les proportions pour ne pas déformer l'image
Merci encore une fois
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
huch
Merci quand même à vous tous
michdenis a exposé le 05/08/2005 :
Bonjour Huch,
Il te reste les logiciels de dessin avec lesquels tu peux retoucher tes images et les redimensionner en vertu des dimensions de tes contrôles "image" sur ta feuille de Calcul.
Salutations!
"huch" a écrit dans le message de news: Merci , mais je connaissais Je recherche s'il est possible de mettre la hauteur ou la largeur de l'image à l'identique du contrôle et de garder les proportions pour ne pas déformer l'image
Merci encore une fois
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Merci quand même à vous tous
michdenis a exposé le 05/08/2005 :
Bonjour Huch,
Il te reste les logiciels de dessin avec lesquels tu peux retoucher tes
images et les redimensionner en vertu des dimensions de tes contrôles
"image" sur ta feuille de Calcul.
Salutations!
"huch" <huch@excel.fr> a écrit dans le message de news:
mn.2a0c7d58cd6802fd.0@excel.fr... Merci , mais je connaissais
Je recherche s'il est possible de mettre la hauteur ou la largeur de
l'image à l'identique du contrôle et de garder les proportions pour ne
pas déformer l'image
Merci encore une fois
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Il te reste les logiciels de dessin avec lesquels tu peux retoucher tes images et les redimensionner en vertu des dimensions de tes contrôles "image" sur ta feuille de Calcul.
Salutations!
"huch" a écrit dans le message de news: Merci , mais je connaissais Je recherche s'il est possible de mettre la hauteur ou la largeur de l'image à l'identique du contrôle et de garder les proportions pour ne pas déformer l'image
Merci encore une fois
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Modeste
Bonsour® huch wrote:
Je recherche s'il est possible de mettre la hauteur ou la largeur de l'image à l'identique du contrôle et de garder les proportions pour ne pas déformer l'image
il n'y a qu'une possibilité !!! régler les dimensions du controle image aux proportions de l'image
le parametre fmPictureSizeModeStrech déforme l'image pour qu'elle occupe entierement le controle le parametre fmPictureSizeModeClip affiche une partie de l'image en taille réelle (selon le cas ce sera un gros plan, ou bien une vignette qui apparaitront) le parametre fmPictureSizeModeZoom affiche l'intégralité de l'image sans la déformer, toute la surface du controle n'est alors pas utilisée pour comprendre essaie ces 3 options dans la macro de Denis.
ou bien prendre le probleme à l'envers, récupérer les dimensions de l'image(appliquer éventuellement un coefficient) et redimensionner le controle.... le principe : Ctrlimage1.height=image.height*ratio Ctrlimage1.width=image.width*ratio CtrlImage.pictureSizemode=fmpictureSizemodeStrech
@+
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Bonsour®
huch wrote:
Je recherche s'il est possible de mettre la hauteur ou la largeur de
l'image à l'identique du contrôle et de garder les proportions pour ne
pas déformer l'image
il n'y a qu'une possibilité !!!
régler les dimensions du controle image aux proportions de l'image
le parametre fmPictureSizeModeStrech déforme l'image pour qu'elle occupe
entierement le controle
le parametre fmPictureSizeModeClip affiche une partie de l'image en taille
réelle (selon le cas ce sera un gros plan, ou bien une vignette qui
apparaitront)
le parametre fmPictureSizeModeZoom affiche l'intégralité de l'image sans la
déformer, toute la surface du controle n'est alors pas utilisée
pour comprendre essaie ces 3 options dans la macro de Denis.
ou bien prendre le probleme à l'envers, récupérer les dimensions de
l'image(appliquer éventuellement un coefficient) et redimensionner le
controle....
le principe :
Ctrlimage1.height=image.height*ratio
Ctrlimage1.width=image.width*ratio
CtrlImage.pictureSizemode=fmpictureSizemodeStrech
@+
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042
Je recherche s'il est possible de mettre la hauteur ou la largeur de l'image à l'identique du contrôle et de garder les proportions pour ne pas déformer l'image
il n'y a qu'une possibilité !!! régler les dimensions du controle image aux proportions de l'image
le parametre fmPictureSizeModeStrech déforme l'image pour qu'elle occupe entierement le controle le parametre fmPictureSizeModeClip affiche une partie de l'image en taille réelle (selon le cas ce sera un gros plan, ou bien une vignette qui apparaitront) le parametre fmPictureSizeModeZoom affiche l'intégralité de l'image sans la déformer, toute la surface du controle n'est alors pas utilisée pour comprendre essaie ces 3 options dans la macro de Denis.
ou bien prendre le probleme à l'envers, récupérer les dimensions de l'image(appliquer éventuellement un coefficient) et redimensionner le controle.... le principe : Ctrlimage1.height=image.height*ratio Ctrlimage1.width=image.width*ratio CtrlImage.pictureSizemode=fmpictureSizemodeStrech
@+
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
