CODEWITHSUNDEEP
javascriptvbaexcelwatermark
NDubonix
NDubonix

Reputation: 103

Format for Excel VBA addWatermarkFromText

I have a VBA code which consolidates various PDF files and then adds a watermark (page number and footer) to each page, which is some code I found and is working fine:

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

I have looked up the JavaScript API reference which shows how to format the watermark, in order to get use out of the various parameters. In this case, I want to use "nHorizAlign". However, I am having a bit of trouble figuring out how to format this in VBA code. All I need to do is keep the parameters I already have, but add "nHorizAlign" so that the text string will be on the left side of the page.

The Javascript version would be as follows:

    this.addWatermarkFromText({
      cText: "Example",
      nTextAlign: app.constants.align.left,
      nHorizAlign: app.constants.align.left,
      nVertAlign: app.constants.align.top,
      nHorizValue: -72, nVertValue: -72
    });

When I used "nHorizAlign:=Left" or "nHorizAlign:=(some number)" it does not work.

Assistance is much appreciated.

Upvotes: 1

Views: 2255

Answers (2)

mp3lab
mp3lab

Reputation: 1

Set jso = PartDocs(0).GetJSObject

For q = 2 To n

    jso.addWatermarkFromText _
        cText:=Str(q) & "  ", _
        nFontSize:=10, _
        nTextAlign:=jso.app.Constants.Align.Left, _
        nHorizAlign:=jso.app.Constants.Align.Left, _
        nVertAlign:=jso.app.Constants.Align.Top, _
        nStart:=q - 1, _
        nEnd:=q - 1
Next q

    Set jso = Nothing

Upvotes: 0

NDubonix
NDubonix

Reputation: 103

The following code aligns the cText horizontally on the left:

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

Upvotes: 1

Related Questions