使用addwatermarkfromtext的pdf页码字体颜色

时间:2017-09-06 10:00:10

标签: vba pdf fonts colors

我有一个问题,即使用addwatermarkfromtext在pdf文件中插入页码,但同时更改页码的字体颜色。我使用以下代码插入页码,这是非常有效的。在互联网上搜索我应该可以插入一行" aColor:= color.red"但这不起作用,代码将返回错误。有谁知道如何将标准字体颜色(黑色)更改为另一种颜色??

for i=1 to 10
jso.addWatermarkFromText _
            cText:=Str(i) , _
            cFont:="Arial", _
            nFontSize:=9, _
            nTextAlign:=1, _
            nHorizAlign:=2, _
            nVertAlign:=4, _
            nVertValue:=24, _
            nHorizValue:=-48, _
            nStart:=i - 1, _
            nEnd:=i - 1
next i

谢谢!

1 个答案:

答案 0 :(得分:0)

根据the docs,颜色信息的格式比您建议的更复杂。它需要颜色类型然后值。引用:

  

例如,红色可以表示为[" RGB",1,0,0]

所以我想你想要更像

的东西
aColor:=["RGB", 1, 0, 0]

但这可能适用于JavaScript。 VBA中的等价物如下:

dim color(0 to 3) as Variant 
color(0) = "RGB"
color(1) = 1#
color(2) = 0#
color(3) = 0#

然后

aColor=color