À l'aide de VBA comment dois-je appeler le Adobe Create PDF fonction

  Sheets("Key Indicators").ExportAsFixedFormat Type:=xlTypePDF,
 Filename:=ArchivePath, Quality:=xlQualityStandard,
 IncludeDocProperties:=True, IgnorePrintAreas _
         :=False, OpenAfterPublish:=False

Actuellement, c'est ce que j'ai.

Je comprends comment ExportAsFixedFormat PDF mais ce que j'ai besoin de savoir comment faire est d'accéder à la Créer fonction PDF sous Acrobat (Comme le montre l'image ci-dessous) à l'aide de VBA. Si je ne ExportAsFixedFormat les liens s'aplatissent. Acrobat "Créer un fichier PDF" me permettrait de convertir un fichier Excel en PDF avec les liens hypertexte présents.

Comment dois-je procéder?

Je suis à l'aide d'Excel 2016 et Adobe Pro DC

À l'aide de VBA comment dois-je appeler le Adobe Create PDF fonction
Ce sont mes adobe références

Le Acrobat complément fournir une API? un modèle d'objet? tout c'est par programmation accessible à partir de VBA? Si non, vous pourriez avoir à recourir à SendKeys, qui est un horrible, horrible façon de faire les choses. Quel est le problème avec l'enregistrement au format PDF? Quel est le complément Adobe faire qu'Excel n'est pas déjà?
Si je enregistrer en tant que PDF, normalement, il va s'aplatir tous les liens dans le document.
Ceci pourrait aider
Liées à @Mat'sMug commentaire, avez-vous essayé d'ajouter la référence pour Adobe Acrobat et voir les commandes disponibles? (Références->Adobe Acrobat)
Dans l'Éditeur VBA Excel, allez dans Outils->Références-> Chercher quelque chose qui ressemble à acrobat. Voir ci-joint les images de référence Image1: s20.postimg.org/3qxr9vqpp/Capture.png Image2: s20.postimg.org/iuoirq2gt/Capture.png

OriginalL'auteur Michael Downey | 2016-05-31

Acrobat Référence devrait fonctionner

Voici le guide à partir d'Adobe

Une fois ajouté, vous pouvez utiliser le code suivant
Astuce: Il peut vous conduire à de code correct -je ne suis pas tout à fait sûr, car j'ai codé "à l'aveugle" car je n'ai pas Acrobat dans mon PC. Debug étape par étape pour voir ce qui est en train de faire.

Sub ExportWithAcrobat()
Dim AcroApp As Acrobat.CAcroApp 'I'm not quite sure it's needed since we are creating the doc directly
Dim AcrobatDoc As Acrobat.CAcroPDDoc
Dim numPages As Long
Dim WorkSheetToPDF As Worksheet
Const SaveFilePath = "C:\temp\MergedFile.pdf"
    Set AcroApp = CreateObject("AcroExch.App") 'I'm not quite sure it's needed since we are creating the doc directly
    Set AcrobatDoc = CreateObject("AcroExch.PDDoc")
    'it's going to be 0 at first since we just created
    numPages = AcrobatDoc.GetNumPages
    For Each WorkSheetToPDF In ActiveWorkbook.Worksheets
    If AcrobatDoc.InsertPages(numPages - 1, WorkSheetToPDF, 0, AcrobatDoc.GetNumPages(), True) = False Then 'you should be available to work with the code to see how to insert the sheets that you want in the created object ' 1. If Part1Document.InsertPages(numPages - 1, "ExcelSheet?", 0, AcrobatDoc.GetNumPages(), True) = False
    MsgBox "Cannot insert pages" & numPages
    Else ' 1. If Part1Document.InsertPages(numPages - 1, "ExcelSheet?", 0, AcrobatDoc.GetNumPages(), True) = False
    numPages = numPages + 1
    End If ' 1. If Part1Document.InsertPages(numPages - 1, "ExcelSheet?", 0, AcrobatDoc.GetNumPages(), True) = False
    Next WorkSheetToPDF
    If AcrobatDoc.Save(PDSaveFull, SaveFilePath) = False Then ' 2. If Part1Document.Save(PDSaveFull, "C:\temp\MergedFile.pdf") = False
    MsgBox "Cannot save the modified document"
    End If ' 2. If Part1Document.Save(PDSaveFull, "C:\temp\MergedFile.pdf") = False
End Sub

Pages suivantes peuvent fournir une meilleure assistance: Link1, Link2

Je reçois le message d'erreur "Impossible d'insérer des pages - 1"
Reportez-vous à la documentation et à essayer de "jouer" en les combinant avec les codes fournis au fond, ne pouvez pas le code car je n'ai pas Acrobat.

OriginalL'auteur Sgdva

Sub PDF()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\PCNAME\Documents\Book1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
End Sub

S'il vous plaît essayer les codes ci-dessus

Le problème est que, sans appel d'Adobe, les liens hypertextes ne sauraient, de transfert au format PDF

OriginalL'auteur David Syriac

With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:="N:\JKDJKDJ", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True,  
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

intéressant de noter mes liens ne s'aplatissent lors de l'utilisation de cette approche
Sont-ils des liens hypertextes entre des feuilles de calcul?

OriginalL'auteur jellz77

Vous pouvez publier toute la Gamme Excel en tant que fichier PDF à l'aide de ExportAsFixedFormat. Il n'est pas nécessaire de définir une refernce à Acrobat.

' Usage:
' PublishRangePDF(Thisworkbook, fileName) : Will Publish the entire Workbook
' PublishRangePDF(AvtiveSheet, fileName) : Will Publish all selected worksheets
' PublishRangePDF(Range("A1:H100"), fileName) : Will Publish Range("A1:H100")


Sub PublishRangePDF(RangeObject As Object, fileName As String, Optional OpenAfterPublish As Boolean = False)
    On Error Resume Next
    RangeObject.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=OpenAfterPublish
    On Error GoTo 0
End Sub

Le problème est que, sans appel d'Adobe, les liens hypertextes ne sauraient, de transfert au format PDF
Les hyperliens de travail pour moi. Signet liens hypertexte s'aplatissent. jellz77 utilise ExportAsFixedFormat également un vous dit qu'il n'a pas les aplatir. Si vous pouvez m'envoyer votre classeur, je vais prendre un lot. Si non pouvez-vous poster le reste si votre code?
Livre marque hyperliens je veux garder.

OriginalL'auteur

Vous devez vous connecter pour publier un commentaire.