none
ExcelでのISO19005-1準拠PDF出力方法について RRS feed

  • 質問

  • VBAにてISO19005-1準拠のPDF出力を行いたいのですが、

    ExcelのExportAsFixedFormatメソッドにはUseISO19005_1パラメータが無く、

    どの様に出力すればよいか不明です。

    VBA(Excel機能のみ)での実装方法をご教授下さい。

    2018年4月12日 11:50

回答

  • 2013と2016でテスト

    If (Application.Version < 15) Then
        Return
    End If
    
    Dim ver As String
    ver = Int(Application.Version) & ".0"
    
    Dim wsh As New IWshRuntimeLibrary.WshShell 'Windows Script Host Object Model参照
    Dim desktop As String
    desktop = wsh.SpecialFolders("Desktop") & "\"
    
    Dim regPath As String
    regPath = "HKCU\Software\Microsoft\Office\" & ver & "\Common\FixedFormat\LastISO19005-1"
    
    Call wsh.RegWrite(regPath, 0, "REG_DWORD")
    Call ThisWorkbook.ExportAsFixedFormat(xlTypePDF, desktop & "NotPDF_A.pdf")
    
    Call wsh.RegWrite(regPath, 1, "REG_DWORD")
    Call ThisWorkbook.ExportAsFixedFormat(xlTypePDF, desktop & "PDF_A.pdf")



    個別に明示されていない限りgekkaがフォーラムに投稿したコードにはフォーラム使用条件に基づき「MICROSOFT LIMITED PUBLIC LICENSE」が適用されます。(かなり自由に使ってOK!)


    2018年4月12日 15:07