how can I recover deleted photo in worksheets with VBA code ?

[wai yan]

Sub Test()

Sheet6.Select
Sheet6.Range("E24:W204,AI1:BA204").Select
Call SelectAllPicturesInSelectedRange(Sheet6)

End Sub

Sub SelectAllPicturesInSelectedRange(ws As Worksheet)


Dim oShape As shape
Dim rUserSel As Range




If TypeName(Selection) <> "Range" Then Exit Sub

Set rUserSel = Selection

For Each oShape In ws.Shapes
If oShape.Type = msoPicture Then
If Not Intersect(oShape.TopLeftCell, rUserSel) Is Nothing Then
oShape.Select False
Selection.Delete

End If
End If
Next oShape

End Sub

 

[Michael M]

you can't.
VBA does not send data / images to the recycle bin, and there is no UNDO with VBA either!
You would need data recovery software.

 

[wai yan]

Ok bro .. Thanks for your reply.