Insert signature image in diff worksheet in a workbook and save as pdf

[gincemathew]

Hi,

I am using below code to save diff worksheet in a workbook as single pdf file in workbook name.
And i need to insert signature image in every worksheet(form a location) before saving as pdf.
Also i having 1000+ workbook under a folder eg:C:\ABC and i need to loop the process


Sub SaveAsPdf()
Dim strPDF_File_Name As String
Sheets(Array("A-1", "A-2", "A-3", "A-4 ", "A-5", "A-6", "A-7", "A-8")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Split(ActiveWorkbook.Name, ".")(0) & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

[xlbiznes]

Hi,

Use the code below. Hope this helps.

Please Login or Register  to view this content.