Powerpoint slide with excel vba code

Powerpoint slide with excel vba code

below click download file click link
https://drive.google.com/open?id=1Iglclf_H-xGuzbhQDssdZ86IkVa0mz_G

Please paste code in excel vba code moudle .
please add shape in excel sheet.
below copy code
---------------------------------------------
Sub expshape()

Dim myppt As PowerPoint.Application
Set myppt = New PowerPoint.Application
myppt.Visible = msoCTrue

Dim mypres As PowerPoint.Presentation
Set mypres = myppt.Presentations.Add
Dim myslide As PowerPoint.Slide
Set myslide = mypres.Slides.Add(1, ppLayoutBlank)
Dim myshape As Shape

For Each myshape In ActiveSheet.Shapes

'MsgBox myshape.Name
myshape.Copy
myslide.Shapes.PasteSpecial ppPasteBitmap
myslide.Shapes(1).Width = 500
myslide.Shapes(1).Left = 100
myslide.Shapes(1).Top = 10
Set myslide = mypres.Slides.Add(mypres.Slides.Count + 1, ppLayoutBlank)
Next
End Sub

================================