Office中国论坛/Access中国论坛

标题: 跪求大神相助！想将文档中所有图形组合变成图片原位另存 [打印本页]

作者: youxianwei 时间: 2023-8-16 16:28
标题: 跪求大神相助！想将文档中所有图形组合变成图片原位另存
本帖最后由 youxianwei 于 2023-8-16 19:27 编辑

跪求大神相助！想将文档中所有图形组合变成图片原位替换，以下代码只能成功修改一个图形组合后就弹窗出错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此方法或属性无效因为剪贴板是空的或无效的...跪求高手改正代码

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)