Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Ausschnitt in Powerpoint einfügen
 22.08.2017 10:15:10 ZD14
NotSolved
22.08.2017 14:24:16 Gast53792
NotSolved

Ansicht des Beitrags:
Von:
ZD14		 Datum:
22.08.2017 10:15:10		 Views:
1170		 Rating:
     
Antwort:
  Ja
Thema:
Excel Ausschnitt in Powerpoint einfügen
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 PowerpointStart() 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:\*****\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 Sheets("Tab1").Range("C15:X55").Select If j = 2 Then Sheets("Tab2").Range("F67:Y136").Select If j = 3 Then Sheets("Tab3").Range("C4:AA38").Select If j = 4 Then Sheets("Tab4").Range("C47:AE81").Select 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 Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Ausschnitt in Powerpoint einfügen
 22.08.2017 10:15:10 ZD14
NotSolved
22.08.2017 14:24:16 Gast53792
NotSolved