Tamanho da imagem exportada

[jonnathanr]

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

[erichshiino · Accepted solution]

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