请各位高手帮忙，ActiveSheet.Shapes.Range语句使用数组变量

EH福多多

Sub 选区图片选取()      '全选在选区单元格中的图片
Dim n, m, iShape As Shape, Index_Shape() As Integer
    For Each iShape In ActiveSheet.Shapes   '对于所有图片
        n = n + 1   '图片序号
        If Not Application.Intersect(Selection, iShape.TopLeftCell) Is Nothing Then '如果图片在选区单元格中
            m = m + 1   '在选区单元格中的图片数
            ReDim Preserve Index_Shape(1 To m)  '增加数组空间
            Index_Shape(m) = n  '存图片序号
        End If
    Next iShape
    ActiveSheet.Shapes.Range(Index_Shape()).Select  '按照图片序号选取图片.出错!!! 系统提示:"运行时错误'1004',和指定的参数有无效值"
End Sub
出错处的正确语句如: ActiveSheet.Shapes.Range(Array(1,3,4)).Select
请问应该怎样改呢?

huang1314wei

ActiveSheet.Shapes.Range(Array(1,3,4)).Select
当中的array(1,3,4)默认数组下标是0，而你的Index_Shape数组下标是从1开始的，这显然不行
改成这样再试试
Sub 选区图片选取()      '全选在选区单元格中的图片
Dim n, m, iShape As Shape, Index_Shape() As Integer
    For Each iShape In ActiveSheet.Shapes   '对于所有图片
        n = n + 1   '图片序号
        If Not Application.Intersect(Selection, iShape.TopLeftCell) Is Nothing Then '如果图片在选区单元格中
            m = m + 1   '在选区单元格中的图片数
            ReDim Preserve Index_Shape(0 To m - 1) '增加数组空间
            Index_Shape(m - 1) = n '存图片序号
        End If
    Next iShape
    ActiveSheet.Shapes.Range(Index_Shape()).Select  '按照图片序号选取图片.出错!!! 系统提示:"运行时错误'1004',和指定的参数有无效值"
End Sub

fxl447098457

1. Sub PicSelect()
   
2. Dim index_Shape() As String
   
3. Dim iShape As Shape
   
4. Dim i%
   
5. On Error GoTo line
   
6. With ActiveSheet
   
7.    For Each iShape In .Shapes
   
8.     If Not Intersect(iShape.TopLeftCell, Selection) Is Nothing Then
   
9.      i = i + 1
   
10.      ReDim Preserve index_Shape(1 To i)
    
11.      index_Shape(i) = iShape.Name
    
12.     End If
    
13.    Next iShape
    
14. .Shapes.Range(index_Shape).Select: MsgBox "已选中" & i & "张图片"
    
15. End With
    
16. Exit Sub
    
17. line: MsgBox "所选区域没有图片"
    
18. End Sub

复制代码

要么就用shapes(index)

1. Sub PicSelect1()
   
2. Dim index_Shape() As Integer
   
3. Dim iShape As Shape
   
4. Dim i%, k%
   
5. On Error GoTo line
   
6. With ActiveSheet
   
7.    For i = 1 To .Shapes.Count
   
8.     If Not Intersect(.Shapes(i).TopLeftCell, Selection) Is Nothing Then
   
9.     k = k + 1
   
10.      ReDim Preserve index_Shape(1 To k)
    
11.      index_Shape(k) = i
    
12.     End If
    
13.    Next i
    
14. .Shapes.Range(index_Shape).Select: MsgBox "已选中" & k & "张图片"
    
15. End With
    
16. Exit Sub
    
17. line: MsgBox "所选区域没有图片"
    
18. End Sub

复制代码

EH福多多

谢谢，不过，这两种方法我都试过了，还是不行，问题还是一样。
"运行时错误'1004',和指定的参数有无效值"

EH福多多

huang1314wei 发表于 2016-5-5 06:33
ActiveSheet.Shapes.Range(Array(1,3,4)).Select
当中的array(1,3,4)默认数组下标是0，而你的Index_Shape ...

谢谢，但是我刚又试了一下，还是不行。

fxl447098457

EH福多多 发表于 2016-5-5 09:27
谢谢，不过，这两种方法我都试过了，还是不行，问题还是一样。
"运行时错误'1004',和指定的参数有无效值"

我这里一切OK。不然我也不会发出来。

huang1314wei

Sub 选区图片选取()      '全选在选区单元格中的图片
Dim n, m, iShape As Shape, Index_Shape() As Integer
    For Each iShape In ActiveSheet.Shapes   
        n = n + 1  
        If Not Application.Intersect(Selection, iShape.TopLeftCell) Is Nothing Then
            m = m + 1  
            ReDim Preserve Index_Shape(0 To m - 1)
            Index_Shape(m - 1) = n
        End If
    Next iShape
    ActiveSheet.Shapes.Range(Index_Shape()).Select
End Sub

以上代码我在我的电脑上测试通过，如果你的电脑上报错，请提供报错的附件，肯定还有其它原因

EH福多多

fxl447098457 发表于 2016-5-5 07:25
要么就用shapes(index)

谢谢，不过，这两种方法我都试过了，还是不行，问题还是一样。
"运行时错误'1004',和指定的参数有无效值"

蓝桥玄霜

建议上传表格附件来说明问题。

EH福多多

蓝桥玄霜 发表于 2016-5-5 09:47
建议上传表格附件来说明问题。

好的，可我还不知道怎么传附件给你。另外附件也简单，就是有几张图片在工作表里，然后就是代码。