Private Sub UserForm_Initialize()
Dim f(4)
Application.ScreenUpdating = False
For i = 1 To 4
f(i) = ActiveWorkbook.Path & "\Image" & i & ".jpg"
With Sheets("T11")
L = .Shapes("Image" & i).Width
H = .Shapes("Image" & i).Height
Set cht = .ChartObjects.Add(0, 0, L, H)
.Shapes("Image" & i).Copy
With cht.Chart
.Paste
.Export f(i), "jpg"
End With
cht.Delete
End With
Me.Controls("Image" & i).Picture = LoadPicture(f(i))
Kill f(i)
Next
Application.ScreenUpdating = True
End Sub