ich habe folgendes Problem: Mit untenstehendem Code (hier nur für eine Tabelle) kann ich mehrere Excel Tabellen auf verschiedene Folien einer ppt Präsentation exportieren.
Da in der Präsentation gearbeitet wird, ändern sich die Foliennummern , z.B. durch Einfügen von neuen Folien. Ich suche eine Möglichkeit mit Excel VBA die ppt Folien so zu benennen, dass die Tabellen immer in die definierte Folie kopiert werden, also z. B. anstelle slides(2).select sollte so etwas wie slide(Name).select stehen, in das dann eingefügt wird.
Ich bin hier für jede Hilfe dankbar, da ich an dieser Stelle einfach nicht weiterkomme.
Sub Diagramme_und_Tabelleneinfügen()
Set PowerPoint_Application = CreateObject("Powerpoint.Application")
With PowerPoint_Application
.Visible = True
.Presentations.Open Filename:="C:\Desktop\Präsentation1.ppt"
.ActivePresentation.Slides(2).Select
Worksheets("Excelformeln").Range("X2:AB10").Copy
With .ActiveWindow
.View.Paste
.Selection.ShapeRange.Left = 50
.Selection.ShapeRange.Top = 100
.Selection.ShapeRange.Width = 400
'.Selection.ShapeRange.Height = 400
End With
End Sub