跪求大神相助！想将文档中所有图形组合变成图片原位另存

youxianwei

跪求大神相助！想将文档中所有图形组合变成图片原位替换，以下代码只能成功修改一个图形组合后就弹窗出错4605此方法或属性无效因为剪贴板是空的或无效的
Sub 图形变图()
    '遍历形状
    Dim 图形组合 As Shape
    For Each 图形组合 In ActiveDocument.Shapes
        ' 若是组合
        If 图形组合.Type = msoGroup Then
            ' 选择组合
            图形组合.Select
            '组拷为图
            Selection.CopyAsPicture
            ''原位粘图
            Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine
            ' 删旧组合
            图形组合.Delete
        End If
    Next 图形组合
End Sub
'''以上wordvba代码只能将第一个图形组合转为图片并且原位替换,然后就弹窗运行时错误4605此方法或属性无效因为剪贴板是空的或无效的...跪求高手改正代码