topic Embed excel in ppt via QV macro in QlikView

Embed excel in ppt via QV macro

sachingodhania — Thu, 25 Feb 2016 05:00:30 GMT

Hi All,

I am trying to embed Excel file in the PPT via QV macro but in vain. Below is the macro ,

Sub WKSEmbedInPPT()

Dim objAppPPT 'PowerPoint.Application
Dim objPPTPres 'PowerPoint.Presentation
Dim objPPTSlide 'PowerPoint.Slide
Dim objPPTShape 'PowerPoint.Shape

Dim wbk

Set objAppPPT = CreateObject("PowerPoint.Application")
objAppPPT.Visible = 1 'msoCTrue
Set objPPTPres = objAppPPT.Presentations.Add
objAppPPT.ActiveWindow.ViewType = 1
objAppPPT.ActiveWindow.View.GotoSlide Index=objPPTPres.Slides.Add(1, 12).SlideIndex
Set objPPTShape = objPPTPres.Slides(1).Shapes.AddOLEObject(Left=100, Top=100,Width=200, Height=300,ClassName="Excel.Sheet", , DisplayAsIcon=True) 'OR Use , Filename:="E:\Documents and Settings\User\My Documents\abc.xlsm" instead of ClassName but not both
With objPPTShape
'Code Manipulations here if required on the Object
End With
Set objAppPPT = Nothing
Set objPPTPres = Nothing
Set objPPTShape = Nothing
Set objPPTSlide = Nothing

End Sub

Please let me know if some have done this sort of macro earlier.

Thanks,

Sachin

Re: Embed excel in ppt via QV macro

marcus_sommer — Fri, 26 Feb 2016 10:11:57 GMT

I think you should look within the vbs/vba/office foren to these topic and build a routine from excel which worked - if you didn't find enough useful postings, the macro-recorder could be very helpful - and then you could convert it into a vbs-routine.

- Marcus

Re: Embed excel in ppt via QV macro

Frank_Hartmann — Sun, 28 Aug 2016 09:16:15 GMT

I had the same problem! Try like below:

Sub InsertOLEobject

filepath = "C:\Users\Admin\Desktop\.........xls"

'Insert OLEObjects (Excel app&Icon) into PP sheet

Set PPApp = CreateObject("Powerpoint.Application")

PPApp.Presentations.Open "C:\Users\Admin\Desktop\.......pptx"

Set EL = PPApp.ActivePresentation.Slides("Slide328").Shapes.AddOLEObject(, , , , ,filepath, True, , ,"Title of Excel")

'Change Position of OLEObject

With EL

.Top = 380

.Left = 50

End with

End sub

For finding out the slideno there are several macros available!

Hope this helps!