EXCEL2003中快速选取部分图片

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、选取图片以后,要复制也行,要删除也行,要调整大小,要移动位置,要更改属性都行.