Re : Changer une image dans un usf
bon ben tant pis me revoilà...
J'arrive à faire mes changements d'image dans l'usf qui s'appelle ATTENTE pour l'image qui s'appelle TRAVAUX. Le problème, c'est que les images arrivent dans des tailles qui varient d'une exécution qui varie d'une fois sur l'autre, à un emplacement qui varie dans l'usf et en plus certaines sont encadrées alors que l'image originale ne l'est pas. Il m'a donc semblé nécessaire de préciser certains éléments du format dans le code (picturesizemode etc...) mais je me rend compte qu'en fait ça ne sert à rien... si vous avez des explications et des solutions, ça m'intéresse aussi...
Voilà la macro
Sub IMAGE_ATTENTE(image)
Sheets("DONNEES").Visible = True
Set s = Sheets("DONNEES").Shapes(image)
Sheets("DONNEES").Shapes(image).CopyPicture xlScreen, xlPicture
Sheets("DONNEES").ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
Sheets("DONNEES").ChartObjects(1).Chart.Export Filename:="monimage.jpg"
Sheets("DONNEES").Shapes(Sheets("DONNEES").Shapes.Count).Delete
ATTENTE.TRAVAUX.Picture = LoadPicture("monimage.jpg")
With ATTENTE.TRAVAUX
.PictureSizeMode = fmPictureSizeModeClip
.BorderStyle = fmBorderStyleNone
.PictureAlignment = fmPictureAlignmentBottomRight
End With
ATTENTE.Repaint
Kill "monimage.jpg"
End Sub
Merci
Gilles