Exportar para Power Point
Quem trabalha com o Qlikview já viu as formas de exportar os objetos para arquivos do tipo: xls, csv, qvo, imagem e outros delimitados como texto, esta dica que estou passando é para criar um botão que aciona uma macro onde vamos salvar todos os objetos em slides do Power Point, veja o passo a passo.
- Crie um qvw novo e salve em sua pasta de projetos preferida;
- Aperte CTRL+M para entrar na janela “Editar Módulo”
- Copie o vbscript abaixo e salve utilizando o OK
- Agora você já tem a macrp “ppt” instalada em seu projeto
- Crie um botão com o nome “Exportar PPT”
- Crie uma ação “Executar macro” e coloque “ppt” no nome da macro
- Faça o carregamento de alguma base de teste e crie 1 gráfico e 1 tabela
- Aperte o botão e veja a mágica acontecer.
Código vbscript
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
Boa sorte!
