kämpfe hier mit einem Problem und komme nicht weiter. Nun hoffe ich hier einen Denkanstoß zu erhalten. Googeln, Forumsuche brachten keine Abhilfe.
Was funktioniert:
1. In Excel bereich markieren, kopieren
2. Vorhandene Powerpoint-Datei öffnen
3. Tabelle als Bild in Powerpoint einfügen
Was funktioniert nicht:
1. Tabelle als Bild in Powerpoint ausrichten
Im Grunde suche ich eine Möglichkeit das eingefügte Bild innerhalb der Folie zu zentrieren. Sollte das Bild größer als die Folie sein, soll das Bild verkleinert werden, damit das Bild exakt mittig auf die Folie passt. Anbei mal der bisherige Code
Sub Tabelle_kopieren()
Set ppap = CreateObject("Powerpoint.Application")
With ppap
.Visible = True
.presentations.Open Filename:= _
"D:\TEST.pptx"
'Aus Sheet1 die Tabelle kopieren
Sheets(1).Range("A1:G7").CopyPicture
'Powerpoint auswählen und Bild einfügen
Set slide = ppap.activepresentation.slides(2)
slide.Shapes.Paste
'Größe und Positionierung des Bildes in der Powerpointdatei bestimmen
End With
End Sub
Über Hilfe würde ich mich sehr freuen. Habe mitShapeRange
versucht zu hantieren, aber leider ohne Erfolg.Gruß,
Psy