Excel VBA addWatermarkFromText 的格式答案

【问题标题】：Format for Excel VBA addWatermarkFromTextExcel VBA addWatermarkFromText 的格式
【发布时间】：2023-04-03 11:36:01
【问题描述】：

我有一个 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)”时，它不起作用。

非常感谢您的帮助。

【问题讨论】：

标签： javascript vba excel watermark

【解决方案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

【讨论】：