批量选中指定行的图片

zmw10

求助大神，怎么批量选中指定行的图片，如下面的代码是删除图片，但是改成选中就不行
Sub 删除选定行图片()
On Error Resume Next
Dim p As Shape, rng As Range
With ActiveSheet
For Each p In .Shapes
For Each rng In Selection

     
     If Not Application.Intersect(rng.EntireRow, p.TopLeftCell) Is Nothing Then p.Delete
     
   
     Next
Next

End With
End Sub

zmw10

已解决，http://club.excelhome.net/thread-1275941-1-1.html