目 录
一、思路
1.遍历形状
2.判断形状类型
3.操作完成
二、示例代码
一、思路
1.遍历形状
2.判断形状类型
一般可能不需要将插入的悬浮型图片以外的形状(如文本框、矩形等)转换为嵌入式
所以本文示例代码增加了这个选项,根据需要按提示选择即可
3.操作完成
二、示例代码
Sub 形状悬浮转嵌入()Dim i As IntegerDim sp As ShapeDim allConv As LongallConv = MsgBox("转换所有形状(如文本框、矩形)[是]" & vbCrLf & "仅转换图形[否]" & vbCrLf _& "即出程序[取消]", vbInformation + vbYesNoCancel + vbDefaultButton2, "被转换类型")If allConv = vbNo ThenFor Each sp In ActiveDocument.ShapesIf sp.Type = msoPicture Thensp.ConvertToInlineShapei = i + 1End IfNextElseIf allConv = vbYes ThenFor Each sp In ActiveDocument.Shapessp.ConvertToInlineShapei = i + 1NextElseExit SubEnd IfMsgBox Format(i, "完成,共转换了0个形状")End Sub