Function CopyOBJECTInImageJPG(ObjecOrRange, _
Optional cheminx As String = "", _
Optional DoNotKeepFile As Boolean) As String
Dim Graph As Object
If cheminx = "" Then cheminx = ThisWorkbook.Path & "\imagetemp.jpg"
With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With 'on vide le clipboard entre chaque copie pour tester vraiment le available
ObjecOrRange.CopyPicture
Set Graph = ObjecOrRange.Parent.ChartObjects.Add(0, 0, 2335, 1335).Chart
ActiveSheet.Shapes(Graph.Parent.Name).Line.Visible = msoFalse
With Graph.Parent
.Width = 2335: .Height = 1135: .Left = ObjecOrRange.Width + 20:
.Select
Do: DoEvents
.Chart.Paste
Loop While .Chart.Pictures.Count = 0
.Chart.Pictures(1).Width = .Width
.Chart.Pictures(1).Height = .Height
'************************************************************
.Chart.Export cheminx, "jpg"
End With
Graph.Parent.Delete
CopyOBJECTInImageJPG = cheminx
If DoNotKeepFile Then Application.OnTime Now, "supperessionF2"
End Function