1、首先选取图片左上角所在单元格，可以选整行、整列，也可以框选范围，还可以全选工作表，然后执行下列宏（有宏代码的详细说明）：
2、Sub 选区图片选取() '全选在选区单元格中的图片Dim n As Integer, iShp As Shape荑樊综鲶, NmShp() As Variant '为避免在Excel2003中出错，存放图片名的数组不能定义成String For Each iShp In ActiveSheet.Shapes '遍历所有图片 If Not Application.Intersect(Selection, iShp.TopLeftCell) Is Nothing Then '如果图片在选区单元格中 n = n + 1 '在选区单元格中的图片数 ReDim Preserve NmShp(1 To n) '增加数组空间 NmShp(n) = iShp.Name '存图片名称到数组中 End If Next iShp ActiveSheet.Shapes.Range(NmShp()).Select '选择存放图片名的数组中包含的图片End Sub
3、选取图片以后,要复制也行,要删除也行,要调整大小,要移动位置,要更改属性都行.
