Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range aus Excel-Sheet in PowerPoint einfügen

Range aus Excel-Sheet in PowerPoint einfügen
05.04.2005 13:21:18
Matthes
Hi,
ich habe ein kleines Problem mit dem Steuern von PowerPoint aus Excel heraus.
Habe ein Makro, dass sämtliche Excel-Dateien eines Verzeichnisses öffnet. Ich möchte nun von sämtlichen geöffneten Dateien eine bestimmte Range (z.B. A1:V100) eines bestimmten Blattes (z.B. "4") in eine existierende PP-Datei (FrickeldieFrack.ppt) kopieren. Für jede Excel-Datei soll ein neues Blatt in der Präsentation angelegt werden.
Wer weiß Rat?
Vielen Dank.
Matthes

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range aus Excel-Sheet in PowerPoint einfügen
07.04.2005 15:35:12
Dani
Hallo Matthes,
versuch mal folgenden Code:

Private Sub CommandButton1_Click()
Dim ppApp As PowerPoint.Application
Dim Foliennummer As Integer
Dim Filename As String
Foliennummer = 1
Set ppApp = New PowerPoint.Application
ppApp.Visible = True
ppApp.Presentations.Add
For Each wb In Workbooks
For Each ws In Worksheets
Worksheets(ws.Name).Range("A1:D10").Copy
ppApp.ActivePresentation.Slides.Add Index:=Foliennummer, Layout:=ppLayoutText
ppApp.ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank
ppApp.ActivePresentation.Slides(Foliennummer).Select
ppApp.ActiveWindow.View.Paste
Foliennummer = Foliennummer + 1
Next
Next
Filename = InputBox("Filename eingeben") & ".ppt"
ppApp.ActivePresentation.SaveAs (Filename)
ppApp.Quit
Set ppApp = Nothing
End Sub

Hoffe das hilft dir weiter
Gruss
Dani
Anzeige

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige