跪求大神相助！想將文檔中所有圖形組合變成圖片原位另存

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此方法或屬性無效因為剪貼板是空的或無效的...跪求高手改正代碼