目 录

一、思路

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