イラストレーターからPDFにする時のSaveOption Functionの場合
Private Function getPDFSaveOptions() As PDFSaveOptions Dim options As PDFSaveOptions = New PDFSaveOptionsClass With options options.Compatibility = AiPDFCompatibility.aiAcrobat4 options.EmbedAllFonts = False options.GenerateThumbnails = False options.PreserveEditability = False End With Return options End Function Dim PDFOp As PDFSaveOptions = New PDFSaveOptionsClass PDFOp = getPDFSaveOptions()