Charts in PowerPoint übernehmen
29.03.2006 15:40:16
miho
ich habe folgendes Problem:
Ich möchte aus einer großen XLS Tabelle Charts (mehrere) für eine Präsentation in PPT übernehmen.
Ich habe folgendes kleines Programm geschrieben, leider kommt das Chart nicht richtig in PowerPoint an. Legende bzw teile des Diagramms fehlen
Hat einer einen guten Rat für mich
Der Ratlose
MiHo
Anbei mein Progi:
<pre>
Sub PowerPointStartenUndDatenKopieren()
Dim oPP As PowerPoint.Application
Dim oPres As Presentation
Dim lauf As Integer
Dim tmp As Integer
Dim filename As String
Dim myName As String
Dim headline As String
myName = ActiveWorkbook.Name
Set oPP = New PowerPoint.Application
Set oPres = oPP.Presentations.Add(True)
'oPP.Visible = True
For lauf = 1 To Charts.Count
Windows(myName).Activate ' eigene Datei wieder aktivieren
Sheets(Charts(lauf).Name).Select
'*** Das war in Excel markiert ist, wird in Powerpoint kopiert
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
oPP.Visible = True
With oPres.Slides
.Add .Count + 1, ppLayoutBlank
End With
oPres.Application.ActiveWindow.View.GotoSlide lauf
oPres.Application.ActiveWindow.View.Paste
Next
End Sub</pre>