Diagramm aus Excel in Word einfügen (ActiveX)

Ich hab schon mal eine PowerPoint Präsentation automatisch mit 100+ Diagrammen dynamisch aus Excel gefüllt... Aber ich würd im Traum nicht dran denken, das über LV zu steuern.

In Excel musst man sich ein PowerPoint (oder eben Word) Objekt erzeugen, das dann referenziert werden kann.
Und dann die Diagramme hinüber schubsen. Ob das auf eine neues Slide geht oder an eine Textmarke spielt keine Rolle.. nur der Code muss entsprechend an die Bedürfnisse angepasst sein...

Hier mal ein Auszug von meinem.. vielleicht zeigt dir das die ungefähre Richtung.

Code:

Public Sub MakePPtReport()
Application.ScreenUpdating = False

Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation

Set pptApp = CreateObject("PowerPoint.Application")
Set pptPres = pptApp.Presentations.Add(msoTrue) ' create a new presentation

On Error Resume Next
pptPres.ApplyTemplate FileName:=ThisWorkbook.Path & "\Template_PPT.ppt"
On Error GoTo 0
pptApp.Visible = True ' display the application

Set c1 = ThisWorkbook.Charts("D1")

Call PasteChart2PP(pptPres, c1)

pptPres.Application.ActivePresentation.SlideShowSettings.Run

Application.ScreenUpdating = True

Set pptApp = Nothing
Set pptPres = Nothing
Set c1 = Nothing
End Sub

Public Sub PasteChart2PP(pptPres As PowerPoint.Presentation, xlChart As Chart)
Dim pptSlide As PowerPoint.Slide
Dim pptShape As PowerPoint.Shape

xlChart.ChartArea.Copy

With pptPres.Slides
    Set pptSlide = .Add(.Count + 1, ppLayoutBlank) ' add a slide
End With
With pptSlide
    '.Shapes(1).TextFrame.TextRange.Text = sTitle 'edit to put a generic title on each slide or
    ' take this line out if you dont want a generic slide title to appear on each slide
    .Shapes.PasteSpecial ppPasteEnhancedMetafile
    With .Shapes(.Shapes.Count) ' sizes the graph on the slide
        .Left = 0
        .Top = 40
   '    .Width = 550
   '    .Height = 390
    End With
End With

Application.CutCopyMode = False ' end cut/copy from Excel
Set pptSlide = Nothing

End Sub

Viel Erfolg!
Seba