VBA插入图片的问题

yjwdjfqb

各位老师大家好，下面代码是插入指定图片后，设置图片浮于文字上方可以
但修改成浮于文字下方，就出现了问题，请教老师们，帮帮忙，谢谢老师们了！

1. 
   
2. 
   
3. Sub Word中光标位置插入图片且浮于文字上方()
   
4. '这个浮于文字上方，可以
   
5. MyPath = ActiveDocument.Path
   
6. Set sha = ActiveDocument.InlineShapes.AddPicture(FileName:=MyPath & "" & "测试图片.jpg").ConvertToShape  '浮于文字上方
   
7. sha.Height = 28.345 * 7.5
   
8. sha.Width = 28.345 * 5.5
   
9. End Sub
   
10. 
    
11. Sub Word中光标位置插入图片且浮于文字下方()
    
12. '这个浮于文字下方，不可以，请老师们帮帮忙。
    
13. MyPath = ActiveDocument.Path
    
14. Set sha = ActiveDocument.InlineShapes.AddPicture(FileName:=MyPath & "" & "测试图片.jpg").ConvertToInlineShape  '浮于文字下方
    
15. sha.Height = 28.345 * 7.5
    
16. sha.Width = 28.345 * 5.5
    
17. End Sub
    
18. 
    

复制代码

测试.rar (54.04 KB, 下载次数: 7)

2022-4-22 14:57 上传

点击文件名下载附件

limonet

Sub Word中光标位置插入图片且浮于文字下方()
Set sha = ActiveDocument.InlineShapes.AddPicture(FileName:=ActiveDocument.Path & "\" & "测试图片.jpg").ConvertToShape  
sha.Height = 28.345 * 7.5
sha.Width = 28.345 * 5.5
sha.ZOrder (5)
End Sub

yjwdjfqb

limonet 发表于 2022-4-22 20:42
Sub Word中光标位置插入图片且浮于文字下方()
Set sha = ActiveDocument.InlineShapes.AddPicture(FileNam ...

谢谢老师的帮助，很好用！