1 Reply Latest reply: Jul 4, 2012 5:55 PM by Erich Shiino RSS

    Tamanho da imagem exportada

      Boa Tarde pessoal

       

      Estou exportando minha dashboard (QV) como imagem para uma apresentação power point, conforme o codigo abaixo:

       

      sub CreatePPT

       

      Set objPPT = CreateObject("PowerPoint.Application")

      objPPT.Visible = True

      Set objPresentation = objPPT.Presentations.Add

       

      Set PPSlide = objPresentation.Slides.Add(1,11)

      Application.WaitForIdle

      ActiveDocument.ActiveSheet.CopyBitmapToClipboard

      PPSlide.Shapes.Paste

       

      Set PPSlide = Nothing

      Set PPPres = Nothing

      Set PPApp = Nothing

       

      objPresentation.SaveAs("C:\a.ppt")

      objPresentation.Close

      objPPT.Quit

      End Sub

       

       

       

       

       

       

      Queria exportar já no tamanho certo do slide, pra apresentação ja ficar pronta, sem eu precisar diminuir a imagem...

      Acredito que uma linha no código, especificando o tamanho resolveria meu problema...

      Alguem me ajuda com isso?

       

       

      Obrigado

      Jonnathanr