Format for Excel VBA addWatermarkFromText
Format for Excel VBA addWatermarkFromText
我有一个VBA代码,它可以合并各种PDF文件,然后在每页上添加水印(页码和页脚),这是我找到的一些代码,运行良好:
Set jso = PartDocs(0).GetJSObject
For q = 2 To n
jso.addWatermarkFromText _
cText:=Str(q) & " ", _
nFontSize:=10, _
nStart:=q - 1, _
nEnd:=q - 1
Next q
Set jso = Nothing
我查阅了JavaScript API参考资料,其中显示了如何格式化水印,以便使用各种参数。在这种情况下,我希望使用"nHorizAlign"。然而,我在弄清楚如何在VBA代码中格式化它时遇到了一些麻烦。我所需要做的就是保留我已经拥有的参数,但添加"nHorizAlign",使文本字符串位于页面的左侧。
Javascript版本如下:
this.addWatermarkFromText({
cText: "Example",
nTextAlign: app.constants.align.left,
nHorizAlign: app.constants.align.left,
nVertAlign: app.constants.align.top,
nHorizValue: -72, nVertValue: -72
});
当我使用"nHorizAlign:=Left"或"nHorizmalign:=(某个数字)"时,它不起作用。
我们非常感谢您的协助。
以下代码将cText水平对齐在左侧:
Set jso = PartDocs(0).GetJSObject
For q = 2 To n
jso.addWatermarkFromText _
cText:=Str(q) & " ", _
nFontSize:=10, _
nHorizAlign:=0, _
nVertAlign:=4, _
nStart:=q - 1, _
nEnd:=q - 1
Next q
Set jso = Nothing
相关文章:
- 没有找到相关文章