Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Charts in PowerPoint übernehmen

Charts in PowerPoint übernehmen
29.03.2006 15:40:16
miho
Hallo,
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:
&ltpre&gt
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&lt/pre&gt

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Charts in PowerPoint übernehmen
29.03.2006 21:31:47
Yal
Hallo Miho,
interessante Skript. Die Verwendung von MS-Objekte lassen viele Möglichkeiten.
Ich habe selber folgendes festegestellt, wenn auch nur bei reinem "Handarbeit" zwischen Excel und Powerpoint(PP): nicht nur der Grafik sollte übertragen werden, sondern auch die passende Daten.
Das Grafik-Objekt von PP ist ein andere als sein Excel-Pendant: während Excel die Daten und der Grafik getrennt von einander verwaltet, möchte PP die beide zusammenhaben.
Eine Möglichkeit, das umzugehen: ein Excel-Objekt in PP kreieren und Daten und Grafik aus Excel hineinfügen. Wie sich das automatisieren lässt, habe ich noch nie probiert. Aber PP hat auch ein Makroaufzeichnungstool.
Das Excel-Objekt ist in PP ein Bischen schwer zurecht zu schneiden, aber es ist eben ein vollwertiges Excel-Objekt (Rechte Maustaste, "Arbeitsmappe">>"Editieren"), während der PP-Grafik nur ein halber Excel Grafik ist.
Wenn das Dir behilflich sein kann...
Viele Grüße
Yal
Anzeige
AW: Charts in PowerPoint übernehmen
29.03.2006 21:55:38
Herbert
hallo miho,
ich hab dir ein Beispiel für ein Diagramm(eingebettet) gemacht:


Public Sub Diagramm_nach_PowerPoint()
Dim pp As PowerPoint.Application
Dim pres As PowerPoint.Presentation
Workbooks("Exceldiagramm nach PP.xls"). _
Sheets("Tabelle1").ChartObjects(1).Copy
Set pp = CreateObject("PowerPoint.Application")
Set pres = pp.Presentations.Add(True)
      
With pp
    .Visible = True
    .ActivePresentation.Slides.Add 1, ppLayoutTitle
    .Windows(1).View.Zoom = 80
End With
With pres.Slides(1)
    .Shapes("Rectangle 2").Delete
    .Shapes("Rectangle 3").Delete
    .Shapes.Paste
    .Shapes("Object 4").Left = 180
    .Shapes("Object 4").Top = 150
End With
End Sub

     gruß Herbert
Anzeige

240 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige