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 |