MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft PowerPoint
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 09.01.2017, 14:29   #1
magic59
Neuer Benutzer
Neuer Benutzer
Standard VBA - [PP2013] Fehler 1004 beim Kopieren von Excel-Inhalten aus Powerpoint heraus

Hallo zusammen,
ich habe eine Powerpoint-Präsentation, die zum Hauptteil Tabellen und Graphen aus Excel enthält. Bisher habe ich die entsprechenden Tabellen und Graphen manuell aus Excel kopiert und als Grafiken in Powerpoint eingefügt. Da mir das mit der Zeit zu zeitaufwändig war, dachte ich mir, dass ich mittels Button die Reporterstellung in Powerpoint anstoße. Konkret geht es dabei um den folgenden Aufbau:
Slide 1 (ausgeblendet): Button zum Erstellen des Reports
Slides 2 – 4: Einfügen und Anpassen (Größe, Position) jeweils einer Tabelle und eines Graphen aus Excel als Grafik
Slide 5: Einfügen und Anpassen (Größe, Position) einer Tabelle aus Excel als Grafik

Der dazu von mir erstellt Code funktioniert einwandfrei bis zum Kopieren des dritten Graphen aus Excel für Slide 4. Dann wird ein Laufzeitfehler 1004 „Anwendungs- oder Objektdefinierter Fehler“ geworfen. Der Debugger markiert dann die Zeile, in welcher der dritte Graph (welcher für Slide 4 vorgesehen ist) kopiert wird (ich habe sie im Codeschnipsel mal blau gefärbt)

Der Code sieht im Grunde für alle Slides immer gleich aus (natürlich jeweils angepasst hinsichtlich Namen und Indizes). Nachfolgend der Block, aus welchem in 9 von 10 Fällen der Fehler 1004 entsteht.


' ---=== SLIDE 4 (DefectübersichtAutomation) FÜLLEN ===---

' Tabelle "DefectübersichtAutomation" aus Excel kopieren und in Slide 4 als Grafik einfügen
excelApp.Sheets("Report").Range("AF2:AX16").Copy
ActivePresentation.Slides(4).Shapes.PasteSpecialDataType:=ppPasteEnhancedMetafil e

' Eingefügte Grafik mit Namen versehen
letztesEingefuegtesObjekt =ActivePresentation.Slides(4).Shapes.Count
ActivePresentation.Slides(4).Shapes(letztesEingefuegtesObjekt).Name= "Tabelle_DSA"

' ... und Größe und Position anpassen
ActivePresentation.Slides(4).Shapes("Tabelle_DSA").ScaleHeight 0.75, msoCTrue
ActivePresentation.Slides(4).Shapes("Tabelle_DSA").ScaleWidth 0.75, msoCTrue
ActivePresentation.Slides(4).Shapes("Tabelle_DSA").Left= (pixelToCM * 3.2)
ActivePresentation.Slides(4).Shapes("Tabelle_DSA").Top =(pixelToCM * 4)


' Graph "DefectübersichtAutomation" aus Excel kopieren und in Slide 4 als Grafik einfügen
excelApp.Sheets("Automation_Graphen").ChartObjects(3).Chart.ChartArea.Copy
ActivePresentation.Slides(4).Shapes.PasteSpecialDataType:=ppPasteEnhancedMetafil e

' Eingefügte Grafik mit Namen versehen
letztesEingefuegtesObjekt = ActivePresentation.Slides(4).Shapes.Count
ActivePresentation.Slides(4).Shapes(letztesEingefuegtesObjekt).Name ="Graph_DSA"

' ... und Größe und Position anpassen
ActivePresentation.Slides(4).Shapes("Graph_DSA").ScaleHeight 0.45, msoCTrue
ActivePresentation.Slides(4).Shapes("Graph_DSA").ScaleWidth 0.45, msoCTrue
ActivePresentation.Slides(4).Shapes("Graph_DSA").Left =(pixelToCM * 1.6)
ActivePresentation.Slides(4).Shapes("Graph_DSA").Top =(pixelToCM * 10.7)


Hat jemand eine Idee, warum der Fehler geworfen wird?
magic59 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.01.2017, 22:24   #2
Hans Hofmann
MOF Profi
MOF Profi
Standard

So durchs drauf gucken nicht.
Wenn der Fehler kommt geh in den Debugger und untersuche jeden Objektpfadabschnitt auf Gültigkeit: Markieren und Aktuellen Wert anzeigen.
Dann wird sich zeigen welche Objektreferenz fehlerhaft ist...

excelApp.Sheets("Automation_Graphen") = ?
.ChartObjects(3) = ?
....

__________________

Gruß HW

WebSite: Veröffentlichungen zu PP & VBA

Hans Hofmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:41 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.