Log In
Register
Home
October 25, 2017
Offline
Hi,
I found this code in internet I pasted in Outlook module but when run give error 424 and 438 how can I please get help to get it to work I get lost jpeg attachments that I need to convert to PDF, much appreciated your help.
here is the code:
'
' JPG_PDF Macro
'
Application.ScreenUpdating = False
'Declare variables
Dim file
Dim path As String
path = "C:\Documents\File Conversion Test"
file = Dir(path & "*.jpg")
Sheet1.Activate
'Start loop
Do While file <> ""
'Insert picture into Excel
Sheet1.Pictures.Insert (path & file)
ActiveSheet.Pictures(ActiveSheet.Pictures.Count).name = "A Picture"
ChDir "C:\Documents\File Conversion Test"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=file, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.Shapes.Range(Array("A Picture")).delete
file = Dir()
Loop
Sheet2.Activate
Application.ScreenUpdating = True
End Sub
October 25, 2017
Offline
Any help please.
Should I this code to outlook or excel file?
thank you
November 8, 2013
Offline
Hi Jose,
It's an excel code, not outlook.
Make sure that you have in your excel file the sheets mentioned in code: Sheet1, Sheet2 (these are code names, not sheet names, take them from vba project)
October 25, 2017
Offline
Thank you Catalin.
I removed those sheets when I run the macro nothing happens.
November 8, 2013
Offline
Why would you remove those sheets? I mentioned to make sure you HAVE those sheets in your workbook, or update the code to your sheet code names.
Is the folder path correct?
path = "C:\Documents\File Conversion Test"
Do you have "*.jpg" files in there? (if you have .jpeg, make sure you update the code, these details should be obvious)
1 Guest(s)
