Diagrammexport Excel zu PowerPoint
07.05.2014 16:13:09
Alain
ich möchte gerne mehrere Excel-Diagramme aus separaten Tabellenblätter über ein Makro in eine vorhandene PowerPoint Vorlage exportieren. Die Diagramme sollen in diese nacheinander ab Folie 3 eingefügt werden. Im Moment werden durch meinen Code alle Diagramme in Folie 3 eingefügt. Was muss ich ändern bzw. hinzufügen, damit ab Folie 3 immer eine neue Folie hinzugefügt wird und die Diagramme dort reinkopiert werden?
Ich bin absoluter VBA Neuling, bin also über jede Hilfe und Tipps dankbar.
Vielen Dank im Voraus!
Sub AllChartsToPowerPoint()
Dim ppApp As PowerPoint.Application
Dim xlChart As Excel.Chart
Dim xlWB As New Excel.Workbook
Dim intWB As Integer
Dim intCtWBs As Integer
Dim intChart As Integer
'In separaten Blättern dargestellte Grafiken
Dim intCtCharts As Integer
'Geöffnete Arbeitsmappen zählen
intCtWBs = Workbooks.Count
'PowerPoint-Objekt initialisieren
Set ppApp = New PowerPoint.Application
With ppApp
.Visible = True
.Activate
.Presentations.Open ("\\emea.baumernet.org\de01d\Templates\All\ _
B_PPT_Confidential_ONLY_internal_use.potx")
For intWB = 1 To intCtWBs
'Grafiken in separaten Blättern zählen
intCtCharts = Workbooks(intWB).Charts.Count
For intChart = 1 To intCtCharts
Set xlChart = Workbooks(intWB).Charts(intChart)
xlChart.ChartArea.Copy
With .ActivePresentation
.Slides(3).Shapes.PasteSpecial ppPasteBitmap
With .Slides(3).Shapes.Range
.Height = 300
.Width = 600
.Left = 60
.Top = 85
End With
End With
Next
Next
End With
'PowerPoint-Objekt aus dem Speicher entfernen
Set ppApp = Nothing
End Sub