请教大师，如何插入指定路径图片，

evolymeh · 发表于 2023-3-22 17:31

将宽度和高度设置为5厘米？
将图片设置为“浮于文字上方”

录制宏，实现不了，谢谢大师！

evolymeh · 发表于 2023-3-22 18:40

VBA代码实现。

batmanbbs · 发表于 2023-3-22 18:40

ActiveDocument.Shapes.AddPicture FileName:="文件全名", LinkToFile:=False, SaveWithDocument:=True, Left:=0, Top:=0, Width:=CentimetersToPoints(5), Height:=CentimetersToPoints(5)

复制代码

batmanbbs · 发表于 2023-3-22 18:49

本帖最后由 batmanbbs 于 2023-3-22 18:52 编辑

PS：才发现直接发代码需要审核，而且时间还挺长，发图片可以直接显示

evolymeh · 发表于 2023-3-22 19:07

就是，谢谢大师指点。

batmanbbs · 发表于 2023-3-22 19:14

本帖最后由 batmanbbs 于 2023-3-22 19:17 编辑

evolymeh 发表于 2023-3-22 19:07
就是，谢谢大师指点。

啥大师啊，去年11月才接触VBA，相互学习而已

evolymeh · 发表于 2023-7-9 22:27

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

batmanbbs · 发表于 2023-7-9 23:14

插入的时候，必须设置LinkToFile为真，然后用判断图片类型是不是wdInlineShapeLinkedPicture，最后用LinkFormat.SourceFullName匹配文件名

evolymeh · 发表于 2023-7-10 22:25

请大师指点代码，谢谢！

batmanbbs · 发表于 2023-7-10 23:48

evolymeh 发表于 2023-7-10 22:25
请大师指点代码，谢谢！

		自动登录	找回密码
密码			免费注册

[求助] 请教大师，如何插入指定路径图片，