Hi
I have our gl recons as picture uploaded
I have the following code that
1 - allows the manger to insert a picture of there signature (this works 100%)
2- creates a pdf of the "signed" gl recon that saves to our sharepoint.
What I would like to add to the macro as step 1 is for the link to the document in cell b51 to open so the manager can view it and then sign
the link should be the consecutive pages to the pdf document saved on the sharepoint ie page 1 of the pdf document should be the active sheet pg2 onwards the document in the link
this will result in one pdf file combining the active sheet and the document in the link
Sub Sign()
If InputBox("Enter Provided Pin #") = 1234 Then
Range("e61").Select 'Select cell where the signature is going.
attachFile = Application.GetOpenFilename(FileFilter:="Picture Files (*.jpg;*.bmp;*.png), *.jpg;*.bmp;*.png", Title:="Select Signature File") 'Prompt to upload the signature file.
If attachFile = False Then Exit Sub 'If no file uploaded exit the subroutine.
Set signimage = ActiveSheet.Pictures.Insert(attachFile) 'Attach image
With signimage
'Resize Picture to fit in the range....
.Width = 55
.Height = 55
End With
End If
Dim wPath As String, wFile As String
wPath = "https://sharepintadress"
wFile = Range("d3").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=wPath & wFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
I have our gl recons as picture uploaded
I have the following code that
1 - allows the manger to insert a picture of there signature (this works 100%)
2- creates a pdf of the "signed" gl recon that saves to our sharepoint.
What I would like to add to the macro as step 1 is for the link to the document in cell b51 to open so the manager can view it and then sign
the link should be the consecutive pages to the pdf document saved on the sharepoint ie page 1 of the pdf document should be the active sheet pg2 onwards the document in the link
this will result in one pdf file combining the active sheet and the document in the link
Sub Sign()
If InputBox("Enter Provided Pin #") = 1234 Then
Range("e61").Select 'Select cell where the signature is going.
attachFile = Application.GetOpenFilename(FileFilter:="Picture Files (*.jpg;*.bmp;*.png), *.jpg;*.bmp;*.png", Title:="Select Signature File") 'Prompt to upload the signature file.
If attachFile = False Then Exit Sub 'If no file uploaded exit the subroutine.
Set signimage = ActiveSheet.Pictures.Insert(attachFile) 'Attach image
With signimage
'Resize Picture to fit in the range....
.Width = 55
.Height = 55
End With
End If
Dim wPath As String, wFile As String
wPath = "https://sharepintadress"
wFile = Range("d3").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=wPath & wFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub