Format for Excel VBA addWatermarkFromText

Format for Excel VBA addWatermarkFromText

本文关键字:addWatermarkFromText VBA Excel for Format      更新时间:2023-09-26

我有一个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
相关文章:
  • 没有找到相关文章