Estoy en el proceso de automatizar la producción de un informe de PowerPoint y una hoja de cálculo de Excel. Tengo el proceso funcionando hasta que pegue una tabla.

Estoy pegando la tabla a PowerPoint usandoPPApp.CommandBars.ExecuteMso ("PasteSourceFormatting") y la tabla aparece como una forma en mi diapositiva (la tercera forma).

Para referirse a la nueva forma que estaba usandoSet pShape = Slide2.Shapes(Slide2.Shapes.Count) pero ahora cuando pego, lapShape @ se le asigna "Forma 2" (no "Forma 3"). ¿Hay algo que deba hacerse entre el pegado y la asignación del objeto?

Code a continuación, comentó dónde se produce el problema. (Código completo eliminado; visibleaqu)

'Copy tables from Excel
Set rng = ws.Range("A:A")
rng.ColumnWidth = 22.75
Set rng = ws.Range("A4:C27")

'Copy the table range
Application.CutCopyMode = False
rng.Copy
Application.Wait (Now + TimeValue("0:00:02"))

'The issue occurs here!!! '-------------------------------------
'Paste the table in to the slide
Slide2.Select
PPApp.CommandBars.ExecuteMso ("PasteSourceFormatting")

'Name the new shape object
Set pShape = Slide2.Shapes(Slide2.Shapes.Count)
pShape.Name = "Slide_2_Table_1"
pShape.LockAspectRatio = False