请高手写代码设置图片浮于文字上方

evolymeh

   sub d()
picPath = "F:\2.png"
    Dim pic As InlineShape
Set pic = ActiveDocument.InlineShapes.AddPicture(FileName:=picPath, _
    LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range)
    pic.Height = 113.4
     ‘设置图片浮于文字上方代码
End Sub

evolymeh

word2021版，谢谢

gwjkkkkk

Sub test()
    picPath = "F:\2.png"
    Dim pic As InlineShape
   
    Set pic = ActiveDocument.InlineShapes.AddPicture(FileName:=picPath, _
    LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range)
    pic.Height = 113.4
    Set iShape = pic.ConvertToShape
    With iShape
        .WrapFormat.Type = 3
    End With
End Sub

evolymeh

请问老师，如何判断word文档是否已插入该图片，避免重复插入。谢谢！