Excel VBA digitales Signaturfeld in ein vorgegebenes Feld einfügen?
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