ich kopiere mir mit folgendem Code aus Excel eine Kopie als Tabelle in PowerPoint.
Nun bekomme ich es nicht hin die genaue Position zu bestimmen an der ich die Tabelle 4 gerne hätte....so wird sie mir mittig angezeigt & ich muss sie manuell verschieben.
Kennt jmd einen Trick bzw. Richtlinien wie ich das umrechnen kann. Hab schon einige Zahlen ausprobiert, aber rechts eher mittig bekomme ich nicht hin...
Kennt sich hier jmd besser aus?
Sub pptErzeugen()
Set app = CreateObject("PowerPoint.Application")
app.Visible = msoTrue
Set ppt = app.Presentations.Open(Pfad)
Worksheets("Diagramme3").Activate
letzteZelle = Worksheets("Diagramme3").Cells(Rows.Count, 2).End(xlUp).Row
'Bereich kopieren
Worksheets("Diagramme3").Range("A1:H" & letzteZelle).Copy
'Folie auswählen
app.ActivePresentation.Slides(3).Select
With app.Presentations("Vorlage.ppt").Slides(3)
.Shapes.Paste
.Shapes("Tabelle 4").Left = 10
.Shapes("Tabelle 4").Top = 10
.Select
End With
End Sub
Vielen Dank & liebe Grüße