Universal Document Converter
製品の概要
ダウンロード
ご購入
チュートリアル
開発者の方へ
サポートサービス
fCoder SIAについて


      サイト検索
   


      Video tutorial
Show tutorial



Main page>Developer Solutions>Examples>Visual Basic 6>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 6.0.
'
' 4) In Visual Basic main menu press "Project->References".
'
' 5) In the list of references check "Universal Document Converter Type Library".
'----------------------------------------------------------------------
Private Sub PrintPowerPointToJPEG(strFilePath As String)
  Dim objUDC As IUDC
  Dim itfPrinter As IUDCPrinter
  Dim itfProfile As IProfile
 
  Dim objPPTApp As Object
  Dim itfPresentation As Object
  Set objUDC = New UDC.APIWrapper
  Set itfPrinter = objUDC.Printers("Universal Document Converter")
  Set 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 = PO_LANDSCAPE
 
  itfProfile.FileFormat.ActualFormat = FMT_JPEG
  itfProfile.FileFormat.JPEG.ColorSpace = CS_TRUECOLOR
  
  itfProfile.Adjustments.Crop.Mode = CRP_AUTO
   
  itfProfile.OutputLocation.Mode = LM_PREDEFINED
  itfProfile.OutputLocation.FolderPath = "C:\Out"
  itfProfile.OutputLocation.FileName = "&[DocName(0)] -- page &[Page(3)].&[ImageType]"
  itfProfile.OutputLocation.OverwriteExistingFile = False
  
  itfProfile.PostProcessing.Mode = PP_OPEN_FOLDER
 
' Run Microsoft PowerPoint as COM-server
  On Error Resume Next
  Set objPPTApp = CreateObject("PowerPoint.Application")
' Open document from file
  Err = 0 ' Clear GetLastError() value
  Set itfPresentation = objPPTApp.Presentations.Open(strFilePath, 1, 1, 0)
  
  If Err = 0 Then
  
  ' 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
    Set itfPresentation = Nothing
    
  End If
' Close Microsoft PowerPoint
  Call objPPTApp.Quit
  Set objPPTApp = Nothing
End Sub


© fCoder SIA fCoder SIAについて | サイトマップ