イラストレーター SaveOptions オマケ付き

    Dim NewPath As String
    Sub CreateDir()
        NewPath = Path.GetDirectoryName(Fs(0)) & "\New_" & Format(Now, "yyyyMMdd-HHmmss") & "\"
        Directory.CreateDirectory(NewPath)
    End Sub

    Sub main()
        Dim SavePath As String = NewPath & Path.GetFileName(FilePath)
        IllDoc.SaveAs(SavePath, aiSaveOption)
        If Not IllDoc Is Nothing Then ReleaseComObject(IllDoc)
    End Sub

    Public Function aiSaveOption() As IllustratorSaveOptions
        Dim aiSO As IllustratorSaveOptions = New IllustratorSaveOptions
        With aiSO
            .Compatibility = AiCompatibility.aiIllustrator10
            .PDFCompatible = False
            .Compressed = False
            .EmbedAllFonts = False
        End With
        Return aiSO
    End Function