Excel VBA addWatermarkFromText 的格式

Question

我有一个 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" 或 "nHorizAlign:=(some number)" 时，它不起作用。

非常感谢您的帮助。

Answer 1

以下代码将 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

Excel VBA addWatermarkFromText 的格式

Format for Excel VBA addWatermarkFromText

javascript

excel

vba

watermark