vba问题

鑫11

我想用vba把文档中的两个图片组合成一个图片，运行以下代码，出错，错误提示见图，怎么办：

Sub zxj1()
Dim q As Shape
I = 1
For Each q In ActiveDocument.Shapes
    q.Name = I
Next
ActiveDocument.Shapes.Range(Array("1", "2")).Group

End Sub

守柔

请参考该链接中的方法：

http://club.excelhome.net/dispbbs.asp?boardid=23&replyid=564477&id=73111&page=1&skin=0&Star=1

鑫11

谢谢！解决了，犯了一个幼稚的错误，改正如下：

Sub zxj1()
Dim q As Shape
I = 1
For Each q In ActiveDocument.Shapes
    q.Name = I

i=i+1
Next
ActiveDocument.Shapes.Range(Array("1", "2")).Group

End Sub