Bonjour,
J'ai besoin d'un petit coup de main.
Est il possible d'avoir une modif sur le code ci-dessous pour ne plus avoir de contour ou cadre autour des images.
Je vous remercie par avance et vous souhaite une bonne journée
Cordialement
Max
J'ai besoin d'un petit coup de main.
Est il possible d'avoir une modif sur le code ci-dessous pour ne plus avoir de contour ou cadre autour des images.
Code:
Image.Show
Set s = F.Shapes(CStr(Me.cboRace))
s.CopyPicture
F.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
F.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
F.Shapes(F.Shapes.Count).Delete
Image.Image1.PictureSizeMode = fmPictureSizeModeZoom
Image.Image1.Picture = LoadPicture("monimage.jpg")
Kill "monimage.jpg"Cordialement
Max
