![]() Shp.Top = (.SlideHeight \ 2) - (shp.Height \ 2) Shp.Left = (.SlideWidth \ 2) - (shp.Width \ 2) Set shp = myPresentation.Slides(MySlideArray(x)).Shapes.PasteSpecial(DataType:=2) 'Excel 2007-2010 Set myPresentation = PowerPointApp.ActivePresentation MsgBox "PowerPoint could not be found, aborting." 'Handle if the PowerPoint Application is not found MsgBox "PowerPoint Presentation is not open, aborting." 'If PowerPoint is not already open then Exit ![]() Set PowerPointApp = GetObject(class:="PowerPoint.Application") 'PURPOSE: Copy Excel Ranges and Paste them into the Active PowerPoint presentation slides ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |