Hallo,

ich habe eine Excel, wo ich mit einer Form einen "Platzhalter" für eine digitale Signatur eingefügt habe. In meinem Makro wird die Excel in eine PDF umgewandelt und es wird auch das digitale Signaturfeld eingefügt, allerdings werden die Felder bei weiteren Rechnern immer an unterschiedlichen Stellen eingefügt.

Wie schreib ich den CODE so um, das das Signaturfeld immer statisch eingefügt wird? Am besten immer in die Form, wo es rein soll.

Die Form ist eine Gruppe aus Textfeldern und Formen. Im Auswahlbereich habe ich dieser Gruppe den Namen "Ersteller" gegeben.

Code:

Sub Signatur_einfügen()

On Error GoTo Err_Handler

Dim pdfPDDoc As Object

Dim oJS As Object

strVerzeichnis = "H:\"

strFilename = "Mehrarbeit_" & ActiveSheet.Range("H6") & "_" & ActiveSheet.Range("A1") & ".pdf"

strFName1 = strVerzeichnis & strFilename

strFName2 = strVerzeichnis & strFilename

On Error GoTo Err_Handler

  Set pdfPDDoc = CreateObject("AcroExch.PDDoc")

  If pdfPDDoc.Open(strFName1) Then

    Set oJS = pdfPDDoc.GetJSObject

  'Signature-Feld 1

    Set oSign = oJS.AddField("SignatureField1", "signature", 0, Array(220, 90, 50, 140))

  'Signature-Feld 2

    Set oSign = oJS.AddField("SignatureField2", "signature", 0, Array(322, 90, 505, 140)) 'Position von links, Höhe des Felds, Länge des Felds, Höhe des Felds

  'Speichern

    pdfPDDoc.Save 1, strFName2

  End If

  GoTo Finaly

Exit_Proc:

  Exit Sub

   Err_Handler:

  MsgBox "In test" & vbCrLf & Err.Number & "--" & Err.Description

   Resume Exit_Proc

Finaly:

End Sub