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
'将剪切板中的图片粘贴至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