Universal Document Converter
Información general
Descargas
Comprar
Tutoriales
Desarrolladores
Soporte técnico
Acerca de fCoder SIA


      Búsqueda en el sitio
   


      Conversiones populares
Adobe PDF a JPEG
Word Document a PDF
Hojas de cálculo Excel a PDF
PowerPoint a JPEG
Diseño Visio a PDF
Diseño AutoCAD a TIFF
Página web a JPEG
Convertir de cálculo Excel a PDF
Convertir DjVu a PDF
Convertir una página web a PDF

      Tutorial de vídeo
Ver el tutorial



Página principal>Developer Solutions>Examples>Visual Basic.NET>PowerPoint Presentations to JPEG

Converting PowerPoint Presentations to JPEG


'----------------------------------------------------------------------
' 1) Microsoft PowerPoint 97 or above should be installed and activated on your PC.
'
' 2) Universal Document Converter 5.2 or above should be installed, too.
'
' 3) Open your project in Microsoft Visual Basic.NET.
'
' 4) In Visual Basic main menu press "Project->Add Reference...".
'
' 5) In "Add Reference" window go to "COM" tab and double click into 
'    "Universal Document Converter Type Library".
'----------------------------------------------------------------------

Private Sub PrintPowerPointToJPEG(ByVal strFilePath As String)

    Dim objUDC As UDC.IUDC
    Dim itfPrinter As UDC.IUDCPrinter
    Dim itfProfile As UDC.IProfile

    Dim objPPTApp As Object
    Dim itfPresentation As Object
    Dim nSlides As Long

    objUDC = New UDC.APIWrapper
    itfPrinter = objUDC.Printers("Universal Document Converter")
    itfProfile = itfPrinter.Profile

    ' Use Universal Document Converter API to change settings of converterd document
    itfProfile.PageSetup.ResolutionX = 300
    itfProfile.PageSetup.ResolutionY = 300
    itfProfile.PageSetup.Orientation = UDC.PageOrientationID.PO_LANDSCAPE

    itfProfile.FileFormat.ActualFormat = UDC.FormatID.FMT_JPEG
    itfProfile.FileFormat.JPEG.ColorSpace = UDC.ColorSpaceID.CS_TRUECOLOR

    itfProfile.Adjustments.Crop.Mode = UDC.CropModeID.CRP_AUTO

    itfProfile.OutputLocation.Mode = UDC.LocationModeID.LM_PREDEFINED
    itfProfile.OutputLocation.FolderPath = "C:\Out"
    itfProfile.OutputLocation.FileName = "&[DocName(0)] -- page &[Page(3)].&[ImageType]"
    itfProfile.OutputLocation.OverwriteExistingFile = False

    itfProfile.PostProcessing.Mode = UDC.PostProcessingModeID.PP_OPEN_FOLDER

    ' Run Microsoft PowerPoint as COM-server
    On Error Resume Next
    objPPTApp = CreateObject("PowerPoint.Application")

    ' Open document from file
    itfPresentation = objPPTApp.Presentations.Open(strFilePath, 1, 1, 0)

    ' Get number of slides in the presentation
    nSlides = itfPresentation.Slides.Count

    If nSlides > 0 Then

        ' Print all slides from the presentation
        itfPresentation.PrintOptions.PrintInBackground = 0
        itfPresentation.PrintOptions.ActivePrinter = "Universal Document Converter"

        Call itfPresentation.PrintOut()

    End If

    ' Close the presentation
    Call itfPresentation.Close()
    itfPresentation = Nothing

    ' Close Microsoft PowerPoint
    Call objPPTApp.Quit()
    objPPTApp = Nothing

End Sub


© 2001-2017 fCoder SIA Acerca de fCoder SIA | Mapa del sitio