none
Problema exportar PPT para JPG RRS feed

  • Pergunta

  • Pessoal, 

     Tenho uma rotina que exporta ppt para jpg conforme código abaixo:

     Porem quando o ppt possui arquivo com extensão .emf a imagem que gera fica em branco. Só com EMF. Alguem pode me ajudar?

     

    If Not (fso.FolderExists(sFolder)) Then

     

            Set oPPT = CreateObject("PowerPoint.Application")

            Set oPPTDoc = oPPT.Presentations.Open(sPPTFilePath, , , False)

            oPPTDoc.Export sFolder, "JPG"

            oPPTDoc.Close

            Set oPPTDoc = Nothing

            oPPT.Quit

            Set oPPT = Nothing

            End If

    quinta-feira, 24 de março de 2011 14:33

Respostas

  • Bom dia Thiago,

    Isso deve ajudar, tente e se funcionar marque como resposta ok!?

    Segue código:

    Sub Exportar_ppt_para_jpg()

        Dim strImagemCaminho As String
        Dim strImagemNome As String
        Dim objSlide As Slide
          
        On Error GoTo Err_ImageSave
       
        strImagemCaminho = "C:\"
       
        For Each objSlide In ActivePresentation.Slides
            strImagemNome = objSlide.Name & ".jpg"
            objSlide.Export strImagemCaminho & strImagemNome, "JPG"
        Next objSlide
       
    Err_ImageSave:
       
        If Err <> 0 Then
            MsgBox Err.Description
        End If

    End Sub

    Abs.

    Evando Anholeti


     

     

     

    sexta-feira, 25 de março de 2011 13:46