HERBERS Excel-Forum - die Beispiele

Thema: Diagramm zu PowerPoint-Präsentation konvertieren und aufrufen

Home

Gruppe

Extern

Problem

Auf Grundlage des Diagramms soll eine PowerPoint-Präsentation erstellt und aufgerufen werden. In der Entwicklungsumgebung muss ein Verweis zur Microsoft PowerPointObjektbibliothek hergestellt sein.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub CreatePPT()
   Dim ppt As Object
   Dim oPPT As PowerPoint.Application
   Dim oPrs As PowerPoint.Presentation
   Dim oSld As PowerPoint.Slide
   Dim oPct As PowerPoint.Shape
   Dim oTxt As PowerPoint.Shape
   Dim sPath As String
   sPath = Application.DefaultFilePath & "/xl2ppt.ppt"
   Set oPPT = CreateObject("PowerPoint.Application")
   Set oPrs = oPPT.Presentations.Add(msoCTrue)
   Set oSld = oPrs.Slides.Add(1, ppLayoutTitleOnly)
   oSld.Shapes.Title.TextFrame.TextRange.Text = "Diagramm-Test"
   ActiveSheet.ChartObjects(1).Copy
   Set oTxt = oSld.Shapes(1)
   With oTxt
      .Left = 50
      .Top = 0
      .Width = 650
      .Height = 50
      With .TextFrame
         With .TextRange
            With .Font
               .Name = "Arial"
               .Size = 24
               .Bold = msoCTrue
            End With
         End With
         .AutoSize = ppAutoSizeShapeToFitText
      End With
   End With
   With oTxt.AnimationSettings
      .Animate = msoTrue
      .EntryEffect = ppEffectBoxIn
      .TextLevelEffect = ppAnimateByAllLevels
      .AnimateBackground = msoTrue
      .TextUnitEffect = ppAnimateByCharacter
      .AdvanceMode = ppAdvanceOnTime
   End With
   Set oPct = oSld.Shapes.Paste(1)
   oPrs.SaveAs sPath
   oPrs.Close
   Set oPct = Nothing
   Set oTxt = Nothing
   Set oSld = Nothing
   Set oPrs = Nothing
   Set oPPT = Nothing
   Application.Wait Now + TimeSerial(0, 0, 3)
   Set ppt = GetObject(sPath)
   ppt.SlideShowSettings.Run
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und PowerPoint

Diagramme in PowerPoint mit VBA neu befüllen Verlinkung Excel-Powerpoint
Hilfe bei Diagramm zu PowerPoint VBA Dateiname externer Datei ändern
mit VBA automatisch PowerPoint erstellen Tabellenblatt aus externer Exceldatei kopieren
Zugriff von Excel auf Powerpoint-Diagramm ConboBox mit externe Daten füllen
Wert aus Excel in PowerPoint-Diagrammen verwenden Wert in externer Datei suchen
Verknüpfung Excel-Powerpoint Powerpoint per Makro öffnen
Text aus Powerpoint extrahieren Aufruf externer Programme
Externe Bezüge auslesen mit VBA Externe Verküpfung anpassen
Pivot mit Externer DB am Limit? Excel in PowerPoint
Externe Verknüpfungen Blätter in Externer Arbeitsmappe einblenden
In UserForm PowerPoint-datei öffnen externes Verzeichnis ansprechen
Externe Datenquelle via VBA Pivot mit Externer DB UNION funzt nich
Verknüfungen in Powerpoint 2007 löschen Nur externe Bezüge rausnehmen
*xlt-Dateien als externe Datenquelle nutzen Externes Programm öffnen
Makro: Bezug auf externes xls-File? Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern Excel-Objekt in Powerpoint
Verlinkung externer Arbeitsmappen Tabelle in externer Datei löschen
externe Bezüge suchen/ersetzen neue Zeile und externe Bezüge....
Powerpoint exccel import Externe Verknüpfung finden
offtopic Suche Forum für PowerPoint Lösung: Excel-Charts dynamisch in Powerpoint
externe Bezüge Summenprodukt + Externe Bezüge
Powerpoint in Excel Datenbank in externer Datei
Powerpoint -> Excel... Hilfe bei Warnmeldungen?? Excel Diagramme in Powerpoint verknüpfen?
Fehler beim Kopieren von externer Tabelle anzahl Blätter externer Excel-Datei
Externe Daten aus Access Excel Diagram in Powerpoint verknüpfen