How to embed an excel file in powerpoint using VBA

ganesh2606 · Nov 21st 2020

I need to embed excel file as object in powerpoint using vba macros on active slide..

Can anyone help me.

I tried below code,but it was creating new ppt and adding file on given location.

But I need to browse and select the excel file in active slide

Code

Sub WKSEmbedInPPT()
Dim objAppPPT As Object 'PowerPoint.Application
Dim objPPTPres As Object 'PowerPoint.Presentation
Dim objPPTSlide As Object 'PowerPoint.Slide
Dim objPPTShape As Object 'PowerPoint.Shape
Dim wbk As Workbook
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(Index:=objPPTPres.Slides.Count + 1, Layout:=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

Display More

**royUK** · Nov 21st 2020

Welcome to the Forum. Please read the Forum Rules to understand how the Forum works and why I have added Code Tags to your post

All VBA code posted in the forum must be wrapped in code tags, which you omitted, including single-line code snippets.Be sure to use them in future posts.

How to use code tags

Note: no apostrophe in the tags, just used for demonstration here.

['code]

your code goes between these tags

['/code]

Or, just highlight all of the code and press the <> in the post menu above button to add the code tags.

Thanks.

**royUK** · Nov 21st 2020

Your code is creating a new PPT here

Code

Set objPPTPres = objAppPPT.Presentations.Add

Read through this, it might help.

Export an Excel Chart to PowerPoint

**royUK** · Nov 21st 2020

This works for me. It might help you adapt your code

Code

Sub CopyRangetoPPT()
Dim objPPT
Const ppLayoutBlank = 2
Set objPPT = GetObject(, "Powerpoint.Application")
With objPPT
.ActivePresentation.Slides.Add .ActivePresentation.Slides.Count + 1, ppLayoutBlank
.ActiveWindow.View.GotoSlide .ActivePresentation.Slides.Count
ThisWorkbook.Sheets(1).Range("A1:D10").CopyPicture Appearance:=xlScreen, Format:=xlPicture
.ActiveWindow.View.Paste
.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
End With
End Sub

Display More

ganesh2606 · Nov 23rd 2020

Not worked, I need to write macro for browse and select the excel file and create as object in existing slide itself.

For example:

If i run the macro,

1) Need to browse and manually choose the location and select the file,

2) it must create as excel object in my current slide

**royUK** · Nov 23rd 2020

If you asked your question properly in the first instance I would have added browse for file in the code.

The ppt code was just to show what needed changing in your code.

Share

Tags