Macro code is not working for inserting images into PPT

[tripatirao]

Hi all,

I have some image in the PNG format in a specific folder. I wants to export those images into ppt by using  below macro code.

Sub main()

Dim objPresentaion As Presentation

Dim objSlide As Slide

Dim objImageBox As Shape

Set objPresentaion = ActivePresentation

Set objSlide = objPresentaion.Slides.Item(2)

Set objImageBox = objSlide.Shapes.AddPicture("E:\Qllikview\ExcelTask\*.png", msoCTrue, msoCTrue, 100, 100)

End Sub

But it is not working for me.

Please check and do the needful.

Regards

Tripati

[marcus_sommer]

I'm not sure but I don't believe that you could add images with a wildcard else you will need some kind of a loop and you will also need some further logic where to place and to size them. But this isn't really related to qlikview and I think you will find suitable stuff rather in office-communities or within here: https://www.google.de/search?q=vba+ppt+addpicture

- Marcus

[beck_bakytbek]

Hi Rajana,

check this: Automated PowerPoint Presentation Extraction

and this : Export QV objects to ppt template

i hope that helps

beck