Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Excel Ausschnitt in Powerpoint einfügen
22.08.2017 10:38:28
ZD14
Hallo liebes Forum,
Ich habe eine Frage zum untenstehenden Code! Ich würde gerne verschiedene Bereiche einer Excel Arbeitsmappe in eine PowerPoint-Präsentation kopieren. Das ganze klappt, wenn ich den Bereich auswähle, kopiere und dann die Präsentation öffne. Allerdings kann ich dann keine Schleife mehr bauen. Also öffne ich zuerst PowerPoint, danach passiert aber gar nichts mehr! Nicht mal die Messagebox wird angezeigt. Ich vermute, ich muss Excel wieder aktivieren, ansprechen bzw. PowerPoint deaktivieren oder so ähnlich.
Bin für jeden Hinweis sehr dankbar! :)
LG ZD14
Sub PowerpointQ2Export()
Dim oPPT As Object
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating = True
'Präsentation erstellen
Set oPPT = CreateObject("Powerpoint.Application")
With oPPT
.Visible = True
.Presentations.Open Filename:="C:\Users\m000aaug\Desktop\Makros\Master.pptx"
End With
For j = 1 To j = 4
MsgBox j
'Bereich bestimmen, neue Bereiche hinzufügen --> j erhöhen & Präsentationsmaster  _
anpassen
If j = 1 Then ActiveWorkbook.Sheets("PM-DB").Range("C15:X55").Select
If j = 2 Then ActiveWorkbook.Sheets("PBU").Range("F67:Y136").Select
If j = 3 Then ActiveWorkbook.Sheets("FPR").Range("C4:AA38").Select
If j = 4 Then ActiveWorkbook.Sheets("PM-DB").Range("C47:AE81").Select
ActiveWorkbook.Selection.Copy
oPPT.ActivePresentation.Slides(j).Select
i = oPPT.ActivePresentation.Slides(j).Shapes.Count 'Anzahl der Bereiche auf der Folie -- _
_
> verhindert das Löschen vom Titel
If i > 1 Then
oPPT.ActivePresentation.Slides(j).Shapes(i).Delete
oPPT.ActivePresentation.Slides(j).Shapes.PasteSpecial(DataType:=xlBitmap).Select
With oPPT.ActivePresentation.Slides(j).Shapes(i)
.Height = 290
.Width = 900
.Left = 29
.Top = 145
End With
Else
oPPT.ActivePresentation.Slides(j).Shapes.PasteSpecial(DataType:=xlBitmap).Select
With oPPT.ActivePresentation.Slides(j).Shapes(2)
.Height = 290
.Width = 900
.Left = 29
.Top = 145
End With
End If
Next j
ActivePresentation.SaveAs "Financials_Q2_" & Range("A1") & Format(Date, YYYYMMDD) & ".pptx"  _
_
'Customer, ProdType und ProjectDetails einfügen!
.SaveAs "Old Format Copy"
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
For j =1 to 4
22.08.2017 10:54:41
MartyMcFly
kwt
AW: For j =1 to 4
22.08.2017 11:32:19
ZD14
bitte was?
AW: For j =1 to 4
22.08.2017 14:20:48
ChrisL
Hi
Falsch:
For j = 1 To j = 4
Rischtich:
For j = 1 To 4
cu
Chris
AW: For j =1 to 4
22.08.2017 14:23:12
ZD14
Ach du meine Güte!
Vielen Dank! :)
Crossposting ohne Hinweis
22.08.2017 11:24:24
Werner
Hallo,
und warum postest du das gleiche Problem auch noch im VBA-Forum, ohne darauf hinzuweisen? Weder hier ein Hinweis auf VBA-Forum, noch im VBA-Forum ein Hinweis auf Herber.
Da ist dann unnötige Doppelarbeit vorprogrammiert und irgendjemand arbeitet für den Papierkorb.
http://www.vba-forum.de/forum/View.aspx?ziel=39106-Excel_Ausschnitt_in_Powerpoint_einf%C3%BCgen
Gruß Werner
Anzeige
AW: Crossposting ohne Hinweis
22.08.2017 11:31:50
ZD14
Dachte nicht an den Hinweis! Mich hat nur die Optik im VBA Forum sehr gestört weil es einfach gar nicht übersichtlich ist!
Hast du zu meiner Frage auch einen Vorschlag? ;)

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige