How to make excel VBA power point slide
Click for Download file:-https://drive.google.com/file/d/1twWXZ1JAGuF0nLQYqaToj--fsqba4nKW/view?usp=sharing
Below copy code and paste excel vba module - 100% Working
--------------------------------------------------------------------------------------
Sub powerpointmyppt()
Dim ppapp As PowerPoint.Application
Dim pppres As PowerPoint.Presentation
Dim ppslide As PowerPoint.Slide
Set ppapp = New PowerPoint.Application
ppapp.Visible = True
ppapp.Activate
Set pppres = ppapp.Presentations.Add
Set ppslide = pppres.Slides.Add(1, ppLayoutBlank)
Sheet1.Range("A1").CurrentRegion.Copy
ppslide.Select
ppslide.Shapes.PasteSpecial (ppPasteEnhancedMetafile)
Set myshape = ppslide.Shapes(ppslide.Shapes.Count)
myshape.Left = 150
myshape.Top = 50
Application.CutCopyMode = False
End Sub
---------------------------------------------------------------------------
