目  录

一、思路

1.遍历形状

2.判断形状类型

3.操作完成

二、示例代码

1.遍历形状

2.判断形状类型

一般可能不需要将插入的悬浮型图片以外的形状（如文本框、矩形等）转换为嵌入式

所以本文示例代码增加了这个选项，根据需要按提示选择即可

3.操作完成

二、示例代码

Sub 形状悬浮转嵌入()
    Dim i As Integer
    Dim sp As Shape
    Dim allConv As Long
    
    allConv = MsgBox("转换所有形状（如文本框、矩形）[是]" & vbCrLf & "仅转换图形[否]" & vbCrLf _
        & "即出程序[取消]", vbInformation + vbYesNoCancel + vbDefaultButton2, "被转换类型")

    If allConv = vbNo Then
        For Each sp In ActiveDocument.Shapes
            If sp.Type = msoPicture Then
                sp.ConvertToInlineShape
                i = i + 1
            End If
        Next
    ElseIf allConv = vbYes Then
        For Each sp In ActiveDocument.Shapes
            sp.ConvertToInlineShape
            i = i + 1
        Next
    Else
        Exit Sub
    End If
    
    MsgBox Format(i, "完成，共转换了0个形状")
End Sub