9 Replies Latest reply: Aug 31, 2016 2:06 PM by Yuri Nicolett RSS

    Macro PPT

    Guilherme de Moraes Nunes

      Bom dia

       

      encontrei a seguinte macro para gerar PPT porem quando uso o QlikView no navegador PRD não consigo executar

       

      Sub ppt
      'Crie uma lista (Array) com os objetos que deseja exportar para o Power Point
      Dim myArray(1)
      myArray(0) = "CH01"
      myArray(1) = "CH02"
      'Criando um objeto do tipo ppt
      Set objPPT = CreateObject("PowerPoint.Application")
      objPPT.Visible = True
      Set objPresentation = objPPT.Presentations.Add
      'Usando o For each para colar cada objeto em um slide do power point
      For each item in myArray
      Set PPSlide = objPresentation.Slides.Add(1,11)
      ActiveDocument.GetSheetObject(item).CopyBitmapToClipboard
      'Aqui é o comando que cola os objetos
      with PPSlide.Shapes.Paste
      end with
      Next
      'Aqui limpa as variáveis
      Set PPSlide = Nothing
      Set PPPres = Nothing
      Set PPApp = Nothing
      End Sub


      Obrigado.