Juan Carlos González Chavarría respondió:
Tal vez te pueda servir este código que me encontré. Sub selShapesOnSht() Dim shp As Shape For Each shp In ActiveWorkbook.ActiveSheet.Shapes ans = MsgBox("Borrar Imangen " & Chr(10) & shp.Name & " " & shp.TopLeftCell.Address & _ Chr(10) & " -- " &...