VBA - Grafik von Excel nach Powerpoint

[Flotter Feger]

Hallo,

so ...

PHP-Code:

Sub DiagrammInPP()
Dim ppApp As Object
Dim FolienNr As Integer
Dim Diagramm As Object

'Diagramm kopieren'
ActiveSheet.ChartObjects("Diagramm 1").Copy

'PP-Object erstellen'
Set ppApp = CreateObject("powerpoint.Application")

With ppApp
           
    'Aktuelle Foliennummer auslesen und in Variable speichern'
    FolienNr = .ActivePresentation.Windows(1).View.Slide.SlideNumber
   
    'Zeiger auf eingefügte Bilddatei in aktuelle Folie setzen'
    Set Diagramm = .ActivePresentation.Slides(FolienNr).Shapes.PasteSpecial(0) '(ppPasteDefault)'
           
    'Diagramm auswählen und formatieren'
    With Diagramm
        'Ansichtsverhältnis entsperren'
        .LockAspectRatio = msoTrue
        'Oberer Rand'
        .Top = 50
        'Linker Rand'
        .Left = 50
        'Eingefügte Tabelle skalieren'
        .Width = 500
        '.Height = 382.5'
        End With
    End With
   
'Zwischenablage leeren'
Application.CutCopyMode = False
'PP-Object löschen'
Set ppApp = Nothing
End Sub