VBA WatermarkParams .Scale SOLVED

[OfficeWorker]

Hello there,

So i am working on adding a watermark to a pdf in ms Access using VBA.
I recently got the PDFXCoreAPI dll's and the company i work at hasn't bought the license yet. That is probably the reason why the watermark itself isn't showing and only the demo stamps are there so ill skip that for now.

When i have a IPXC_WatermarkParams object and try to change the scale i get a compile error no matter what value entered

image.png

I am fairly new to VBA and working with PDFXChange core API so i am not sure if it is a VBA or a PDFXChange thing. Looking at the documentation and other posts i am pretty certain this is the correct syntax so i don't know what's happening.

Here is some sample code below, same thing happens in Access and Excel so test where you prefer.

Code: Select all

Public Sub testWatermarkImage()
    Dim objIPXC As PDFXCoreAPI.IPXC_Inst
    Dim objIAUX As PDFXCoreAPI.IAUX_Inst
    Dim objIAFS As PDFXCoreAPI.IAFS_Inst

    Dim objDocMain As IPXC_Document
    Dim rect As PXC_Rect
    Dim bitset As IBitSet
    Dim wp As IPXC_WatermarkParams
    Dim resultPath As IAFS_Name

    Set objIPXC = New PDFXCoreAPI.PXC_Inst
    Set objIAUX = objIPXC.GetExtension("AUX")
    Set objIAFS = objIPXC.GetExtension("AFS")

    'I don't have a license key (yet)
    objIPXC.init ""

    Debug.Print objIPXC.APIVersion ' Prints: 33751040

    Set objDocMain = objIPXC.NewDocument()

    ' Define A4 size
    rect.Left = 0
    rect.bottom = 0
    rect.Right = 595
    rect.Top = 842

    ' Add a blank page
    objDocMain.Pages.AddEmptyPages 0, 1, rect

    ' Create watermark parameters
    Set wp = objIPXC.CreateWatermarkParams()
    wp.WatermarkType = 1 ' Image
    wp.ImageFile = "C:\temp\myImage.png"
    wp.Opacity = 1
    wp.Rotation = 0
    wp.HAlign = 2 ' Center
    wp.VAlign = 2 ' Middle
    wp.HOffset = 0
    wp.VOffset = 0
    wp.Start = 0
    'wp.Scale = 76 ' Gives: "compile error: Expected: ("

    ' Apply watermark to all pages
    Set bitset = objIAUX.CreateBitSet(objDocMain.Pages.Count)
    objDocMain.PlaceWatermark bitset, wp

    ' Save the document
    objDocMain.WriteToFile ("C:\temp\testWatermark.pdf")

End Sub

[Daniel - PDF-XChange]

Hello, OfficeWorker

I am very sorry for the delay, it seems that this post was missed, and I only just spotted it now.
I have raised this topic to the Dev team today to see what they think could be the cause. It looks like to me that the error is from VBA itself, but we shall see what the experts have to say.

Kind regards,

[Ivan - Tracker Software]

It is not our issue, but a VBA-specific issue. For some reason, in the wp.Scale, VBA treats this Scale as a call to its method Scale, instead of the object's property. Do not ask me why.
A workaround for this is to use With:

Code: Select all

With wp
    .Scale = 76
End With

P.S. The Opacity property has a range from 0 to 100. Setting it to 1 will make your watermark almost invisible.

[OfficeWorker]

Thanks for the reply, better late then never

The with solution works lovely, thanks! The company bought the license by now and I was close to pushing the update through, I did find out about the opacity and the only thing not working at this point was the scale, which i can work on today .

Once again VBA proving to me why im not a fan of it.

For some reason, in the wp.Scale, VBA treats this Scale as a call to its method Scale, instead of the object's property.

Do you know why it happens?

[Daniel - PDF-XChange]

Hello, OfficeWorker

I'm going to take the safe route here say say that... he probably doesn't know the answer to that question, given what immediate followed the section you quoted:

Do not ask me why.

I am sorry to say, that you will need to reach out elsewhere, likely to Microsoft and ask why these VBA actions are acting up, as it is beyond our expertise.

Kind regards,