将剪切板中的图片粘贴至Word，浮动于文字上方，设置图片背景透明

Sub Macro1()
     '将剪切板中的图片粘贴至Word
     Selection.Paste
     '执行循环
     For i = 1 To ActiveDocument.InlineShapes.Count
       '将Word文档中的图片浮动于文字上方
       ActiveDocument.InlineShapes(i).ConvertToShape
       '设置图片背景透明
       With ActiveDocument.Shapes(i)
        .WrapFormat.Type = 3
        .ZOrder 4
        .PictureFormat.TransparentBackground = msoTrue
        .PictureFormat.TransparencyColor = RGB(255, 255, 255)
        .Fill.Visible = msoFalse
     End With
     Next
End Sub