图片批量写入文字

smhf_6 · 发表于 2012-5-31 05:35

谢谢分享，有用

jiminyanyan · 发表于 2012-5-31 06:33

谢谢分享......

godsaveme · 发表于 2012-11-16 09:56

字的颜色和位置，在宏的哪里啊，怎么没看到red，想改成black，另外这个位置怎么调整呢，有些看不太懂，请高手指点下。

godsaveme · 发表于 2012-11-19 15:13

请高手指点下位置在哪个语句，如何定位文字在图片上的位置，还是就是文字的颜色，调整成黑色，在哪个语句中调整，谢了

592rmb · 发表于 2012-11-19 15:39

好啊，先收藏

129151 · 发表于 2012-12-6 17:16

{:soso_e144:}好久没上论坛了

129151 · 发表于 2012-12-6 17:20

大家有什么问题加群229742843问我,

渔君 · 发表于 2016-8-25 08:54

前面用了大侠的代码，惊为天人，获益良多。今天装了64位office 2016,代码有地方不兼容，能否请大神更改一下？目前主要是这句提示类型不匹配：
CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder

StrPtr这个报错。不知在64位版本里该改成什么样？谢大侠不吝赐教，感激不尽！

lcjy11185 · 发表于 2017-2-13 22:18

批量写入文字TO图片

renkangjizhen · 发表于 2019-11-23 11:22

DrawTextOnPicture picPath & "PicName.jpg", picpath1 & "PicName.jpg", InserWord, vbRed, oFont, , True

很有意思！

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

[分享] 图片批量写入文字