Vba Powerpoint name a table

问题:

I just pasted a table from Excel to PowerPoint with this code:

pptApp.CommandBars.ExecuteMso ("PasteAsTableSourceFormatting") 

There are other Shapes on this Slide. How can I make PowerPoint to find the pasted table on the Slide and name it?

回答1:

Whenever you paste something in PowerPoint it appears on the topmost layer so you can get a reference to it and optionally set the name with this function:

Option Explicit  ' *********************************************************** ' Purpose:  Get the topmost shape from the current slide. ' Inputs:   sName - optionally rename the shape ' Outputs:  Returns a shape object if the slide is not empty. ' Author:   Jamie Garroch ' Company:  YOUpresent Ltd. http://youpresent.co.uk/ ' *********************************************************** Function GetPastedShape(Optional sName As String) As Shape   Dim lCurSlide As Long ' current slide index   lCurSlide = ActiveWindow.View.Slide.SlideIndex   With ActivePresentation.Slides(lCurSlide)     If .Shapes.Count = 0 Then Exit Function     ' Set a reference to the shape on the top layer     Set GetPastedShape = .Shapes(.Shapes.Count)     If sName <> "" Then .Shapes(.Shapes.Count).Name = sName     ' Pasted objects should already be selected so next line is optional     GetPastedShape.Select   End With End Function 

回答2:

Maybe something like this:

 Dim MyTableRef As Table  Set MyTableRef = pptApp.CommandBars.ExecuteMso("PasteAsTableSourceFormatting") 

文章来源: Vba Powerpoint name a table