Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
Jonnathanr,
Se eu puder ajudar só lhe indicando o caminho, sugiro este site:
http://www.pptfaq.com/FAQ00329_Insert_a_picture_at_the_correct_size.htm
Veja que neste caso, em que se usa o clipboard para copiar a imagem e depois colá-la no powerpoint, não haverá muitas opções disponíveis.
No link que coloquei há um script VBA para que traga uma imagem de um diretório, coloque no powerpoint e depois ajuste o tamanho.
Assim, precisa primeiro exportar a sua imagem diretamente para um arquivo (em um diretório temporário, por exemplo) e depois adaptar o código VBA do link para o seu caso.
Espero que ajude,
Abs,
Erich
Jonnathanr,
Se eu puder ajudar só lhe indicando o caminho, sugiro este site:
http://www.pptfaq.com/FAQ00329_Insert_a_picture_at_the_correct_size.htm
Veja que neste caso, em que se usa o clipboard para copiar a imagem e depois colá-la no powerpoint, não haverá muitas opções disponíveis.
No link que coloquei há um script VBA para que traga uma imagem de um diretório, coloque no powerpoint e depois ajuste o tamanho.
Assim, precisa primeiro exportar a sua imagem diretamente para um arquivo (em um diretório temporário, por exemplo) e depois adaptar o código VBA do link para o seu caso.
Espero que ajude,
Abs,
Erich