Excel Powerpoint erstellen VBA

[kinimod2010]

Hallo Leute,
Ich habe mich bisschen mit VBA gespielt habe jetzt jedoch die ganze zeit einen fehler beim einfügen der Grafik in die Folie? Ich verstehe nicht warum kann mir da bitte jemand weiterhelfen?

Spoiler

Option Explicit

Sub Rechteck3_Klicken()

Dim myAppl As PowerPoint.Application

Dim pptPresentation As PowerPoint.Presentation
Dim ppSlide As PowerPoint.Slide
Dim Diagramm As ChartObject
Dim Anzahl As Integer
Dim Pfad As String


ChDir ActiveWorkbook.Path


Pfad = Application.GetOpenFilename("PPTX (*.pptx),*.pptx,Alle Dateien,*.*") ' nur .pptx Datein auswählen'

Sheets("Tabelle2").Activate 'Tabellenblatt Tabelle 2 aktivieren'
Sheets("Tabelle2").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.CopyPicture

Set myAppl = CreateObject("Powerpoint.Application")
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy

'Öffnet die Präsentation'
With myAppl
.Presentations.Open Filename:=Pfad
.Visible = True
.WindowState = ppWindowMinimized
Anzahl = .ActivePresentation.Slides.Count
Set ppSlide = .ActivePresentation.Slides.Add(Anzahl + 1, ppLayoutTitle) ' zählen der folien und in anzahl speichern'
.ActivePresentation.Slides(Anzahl + 1).Select ' auswahl der letzten folie'
.Activate                       ' letzte folie aktiviert'
.ActiveWindow.View.Paste        ' funktioniert leider nicht'
End With

'Richtiet das Diagramm auf der Folie aus'
With myAppl.ActiveWindow.Selection.ShapeRange
    .Left = 35#
    .Top = 100#
    .Width = 650
    .Height = 400#
End With

'Speichern und schließen der Präs'
myAppl.Visible = True
myAppl.ActivePresentation.Save
myAppl.Quit

End Sub

Vielen Dank Leute

 

[Duke00]

Was fürn Fehler meldet er denn wenn du es laufen lassen willst ?

 

[kinimod2010]

Hallo Duke00

Ich bekomme ein Popup mit (Microsoft Visual Basic for Applications) und der Fehler ist Laufzeitfehler'-2147188160 (80048240)': Automatisierungsfehler

Der fehler kommt beim debuggen genau in der zeile vom paste

Vielen Dank für deine Mühe

 

[Duke00]

füg mal folgendes ein:

On Error Goto Fehler

Fehler:
Msgbox Err.Number & Err.Descripton

Dann solltest du eine bessere Fehlermeldung bekommen

 

[kinimod2010]

Hallo Duke,

Haben den fehler gefunden:

ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy

die Zeilen habe ich gelöscht

.ActiveWindow.View.Paste

die auch

und habe eingefügt:

ppSlides.Shapes.Paste

Habe nach rechachiert und gefunden das wenn ich ein bild kopiere dieses dann auch nur als bild ausgeben kann hatte aber ein chart im Kopie modus

Vielen dank

Ps.: gibt es eine möglichkeit wie ich alle shapes lösche im Powerpoint sowie z.b.: Shapes.deleteall

 

[cumulonimbus8]

Wohl nur mir For-Each abklappern und einzeln löschen…
CN8