2
mit VBA Code Excel Inhalt in neue PowerPoint Datei als Bild kopieren
Hallo Forum User,
ich möchte ganz gerne aus Excel ein bestimmtes Tabellenblatt als Bild nach Powerpoint kopieren.
Ich habe auch im Forum schon folgenden VBA Code gefunden, nur muss hier schon eine PP Datei dafür existieren.
Daher meine Frage:
- mit welchem Befehl öffnet man eine neue noch nicht vorhandene PP Datei und exportiert die Daten dort hinein?
Grüße, Gregor
ich möchte ganz gerne aus Excel ein bestimmtes Tabellenblatt als Bild nach Powerpoint kopieren.
Ich habe auch im Forum schon folgenden VBA Code gefunden, nur muss hier schon eine PP Datei dafür existieren.
Daher meine Frage:
- mit welchem Befehl öffnet man eine neue noch nicht vorhandene PP Datei und exportiert die Daten dort hinein?
Sub ppexportopen()
Dim App As Object
Dim Slide As Object
Set App = CreateObject("PowerPoint.Application")
Sheets("Template Open").Range("A1:H30").CopyPicture
App.Visible = True
App.Presentations.Open "c:\Beispiel.ppt"
Set Slide = App.ActivePresentation.Slides(1)
Slide.Shapes.Paste
End SubGrüße, Gregor
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 82400
Url: https://administrator.de/contentid/82400
Ausgedruckt am: 22.11.2024 um 20:11 Uhr
2 Kommentare
Neuester Kommentar
Moin,
mit
erstellst du eine neue Präsentation.
Mit
fügst du eine erste Folie hinein.
Mit
speicherts du die Präsentation.
Tipp:
Zieh dir die Objektbibliothek msppt.olb (befindet sich im Office-Programmverzeichnis) als Verweis (unter Extras->Verweis..) in dein Projekt, dann kannst du mit
arbeiten und hast die Autovervollständigung.
MfG,
Henrik
mit
App.Presentations.AddMit
App.ActivePresenatation.slides.add 1, ppLayoutText Mit
App.ActivePresentation.saveAs "c:/ordner/dateiname.ppt" Tipp:
Zieh dir die Objektbibliothek msppt.olb (befindet sich im Office-Programmverzeichnis) als Verweis (unter Extras->Verweis..) in dein Projekt, dann kannst du mit
Dim app as new Powerpoint.ApplicationMfG,
Henrik
Hallo Henrik,
danke für die schnelle Lösung, funktioniert einwandfrei mit folgendem Code:
Ein Frage habe ich aber noch. Wenn ich den Code mit "Dim app As New PowerPoint.Application" benutze, funktioniert er dann auch noch auf einem Computer ohne die Objektbibliothek im Verweis?
Geht aber so ja auch schon 1A. Also vielen Dank nochmal!
Grüße, Gregor
danke für die schnelle Lösung, funktioniert einwandfrei mit folgendem Code:
Sub ppexportopen()
'Dim app As New PowerPoint.Application
'für Autovervollständigung
Dim app As Object
Dim Slide As Object
Set app = CreateObject("PowerPoint.Application")
app.Visible = True
app.Presentations.Add
app.ActivePresentation.Slides.Add 1, ppLayoutBlank
'erstelle neue PP Presentation und füge ein leeres Blatt ein
Sheets("Template Open").Range("A1:H30").CopyPicture
'makiere einen bestimmten Bereich als Bild
Set Slide = app.ActivePresentation.Slides(1)
Slide.Shapes.Paste
'füge den makierten Bereich in der neuen PP Presentation ein
End SubEin Frage habe ich aber noch. Wenn ich den Code mit "Dim app As New PowerPoint.Application" benutze, funktioniert er dann auch noch auf einem Computer ohne die Objektbibliothek im Verweis?
Geht aber so ja auch schon 1A. Also vielen Dank nochmal!
Grüße, Gregor
