export images using vba

[amo]

I tried to export images using vba
but the image that was successfully exported cannot be opened
any idea ?

Sub example()
Dim y As Integer, i As Integer, x As Integer
Dim DirFile As String

On Error Resume Next


MkDir "C:\image\"

y = Sheet17.Range(Sheet17.Range("E2"), Sheet17.Range("A2").End(xlDown)).Count + 1

For i = 2 To y
    For x = 5 To 12
             With Sheets("download").Shapes.Range(Array("Chart 2"))
                If Sheet17.Cells(i, x).Value <> "" Then
                   .Fill.UserPicture Sheet17.Cells(i, x).Value
                   .Chart.Export "C:\image\" & i - 1 & "-" & x - 4 & ".jpeg"
                  
                End If
             End With
    Next x
Next i

End Sub

 

[NdNoviceHlp]

I'm guessing there's no image to open. Maybe trial...

.ChartArea.Fill.UserPicture PictureFile:=Sheet17.Cells(i, x).Value

HTH. Dave

 

[amo]

some work and some not work

 

[NdNoviceHlp]

If some work then I would suggest making sure your filepaths in Sheet17.Cells(i, x).Value are correct. Dave