Hi there, been trying to research this but I guess I'm using the wrong search prompts, but I couldn't find a simple answer to what I want to do.
I want to use the Acrobat Add-in (PDFMOfficeAddin) that's installed on Excel to "Save As Adobe PDF" a specific worksheet called Charts.
Reason is, I've been using this method of printing the sheet as a PDF, and linking that PDF to an InDesign file.
However, this manual method was slow for me, so I used VBA and used the "regular" method using ExportAsFixedFormat and exported the Charts sheet that way.
What I did not realize however, is that it screwed up the links in InDesign, and the sizes are not being followed anymore. So instead of undoing that amount of work from InDesign, I just want to export once again through the Add-In.
Anyone know how to do so?
This is the original code that completely works, but just exports using the regular way. If someone can convert this and use the Acrobat Add-in instead, that'd be perfect.
I want to use the Acrobat Add-in (PDFMOfficeAddin) that's installed on Excel to "Save As Adobe PDF" a specific worksheet called Charts.
Reason is, I've been using this method of printing the sheet as a PDF, and linking that PDF to an InDesign file.
However, this manual method was slow for me, so I used VBA and used the "regular" method using ExportAsFixedFormat and exported the Charts sheet that way.
What I did not realize however, is that it screwed up the links in InDesign, and the sizes are not being followed anymore. So instead of undoing that amount of work from InDesign, I just want to export once again through the Add-In.
Anyone know how to do so?
This is the original code that completely works, but just exports using the regular way. If someone can convert this and use the Acrobat Add-in instead, that'd be perfect.
VBA Code:
Public Sub Export_PDF()
Dim Path As String
Dim fn As String
Dim ws As Worksheet
Path = "G:\Proj\PDF\"
fn = Left(ActiveWorkbook.name, InStr(1, ActiveWorkbook.name, ".") - 1)
Set ws = Sheets("Charts")
ws.PageSetup.FitToPagesWide = 1
'On Error Resume Next
ws.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Path & fn & ".pdf"
End Sub