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
