AW: Kopieren von Excel zu Powerpoint
Excel
Hallo
probier mal das aus
Sub Excel_Range_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
'Dateiname
ppPres = "C:\Demo.ppt"
'Object referenzieren
Set ppApp = CreateObject("Powerpoint.Application")
'bereich kopieren
Range("A1:q30").Copy
'Diagramm kopieren : Name bitte anpassen
'ActiveSheet.ChartObjects("Diagramm 1").Copy
'Object initialisieren
ppApp.Visible = msoTrue
'PPT öffnen
Set ppFile = ppApp.Presentations.Open(ppPres)
'Folie auswählen
ppApp.ActivePresentation.Slides(2).Select
'Bereich einfügen und OLE Verknüpfung herstellen = Link
'ppApp.ActiveWindow.View.Paste
ppApp.ActiveWindow.view.PasteSpecial DataType:=ppPasteDefault, link:=msoTrue
'Eingefügte Tabelle skalieren
With ppApp.ActiveWindow.Selection.ShapeRange
'Oberer Rand 1 cm unter Standardtitel
.Top = 150
'Linker Rand 1.5 cm von linkem Folienrand
.Left = 35
'Eingefügte Tabelle auf Links und rechts 1,5 cm Rand skalieren
.Width = 650
'Bei Bedarf Höhe noch einstellen
'Hier ist jedoch zu beachten, dass das Object skaliert wird !!!
'Die Breite verändert sich dann
'.Height = 300
End With
End Sub
ACHTUNG:
Der Code kann NICHT aus dem VB-Editor getestet werden, sondern NUR aus einer Mappe heraus.
Gruss Rainer