Bonjour,
J'ai fait une macro qui me permet d'exporter des images groupées collées dans une zone graphique.
Sous excel 2003 la zone graphique s'adaptait au format des images groupées. Avec Excel 2010, le format de la zone graphique ne s'adapte plus. Comment puis-je modifier cela.
Voici la macro (inspirée d'un exemple trouvé sur downloads)
Pouvez-vous m'aider à résoudre ce problème? E n vous en remerciant GROBIN
J'ai fait une macro qui me permet d'exporter des images groupées collées dans une zone graphique.
Sous excel 2003 la zone graphique s'adaptait au format des images groupées. Avec Excel 2010, le format de la zone graphique ne s'adapte plus. Comment puis-je modifier cela.
Voici la macro (inspirée d'un exemple trouvé sur downloads)
VB:
Sub RgptPh_Image()
Dim NmChemin As String
NmChemin2 = Sheets("Page de garde").Range("B4").Value
If Range("A1").Value = "" Then NumCode2
Dim Im As Picture
Dim NmPhoto As String
Selection.ShapeRange.Group.Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 578#
Selection.ShapeRange.IncrementLeft -500#
Selection.ShapeRange.IncrementTop -500#
Selection.Copy
NmPhoto = Sheets("RgptPh").Range("A1").Value
'MsgBox "Photo numéro" & NmPhoto & ""
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
'.ChartArea.Border.LineStyle = 0
.Paste
End With
.Export NmChemin2 & "BasePlusA\" & NmPhoto & ".jpeg"
End With
End SubPouvez-vous m'aider à résoudre ce problème? E n vous en remerciant GROBIN