Thema Datum  Von Nutzer Rating
Antwort
28.06.2017 14:05:59 Tim
NotSolved
28.06.2017 16:49:13 Ben
NotSolved
30.06.2017 08:37:00 Tim
NotSolved
30.06.2017 08:37:00 Tim
NotSolved
Rot Diagramme von Excel in PP kopieren + positionieren
 30.06.2017 08:40:34 Tim Breiner
NotSolved
30.06.2017 11:14:17 Ben
NotSolved
30.06.2017 11:32:57 Tim
NotSolved
30.06.2017 16:21:15 Ben
NotSolved
27.07.2017 07:46:07 Tim
NotSolved

Ansicht des Beitrags:
Von:
Tim Breiner		 Datum:
30.06.2017 08:40:34		 Views:
703		 Rating:
     
Antwort:
  Ja
Thema:
Diagramme von Excel in PP kopieren + positionieren

ups so war das nicht geplant... internet explorer...

ich bekomme die Fehlermeldung: Laufzeitfehler '13': Typen unverträglich.

jetzt nochmals der Code:

Sub excel_to_pp()

    Dim strPPTX As String
    Dim strPfad As String
    Dim pptVorlage As String
    Dim pptApp As Object
    Dim pptPres As Presentation
        'Pfad setzen
        strPfad = "C:\Users\A49966070\Desktop\Reporting VBA\"
        strPPTX = "cockpit_vorlage.pptx"
        
        'PP Öffnen
        Set pptApp = New PowerPoint.Application
        pptApp.Visible = True
        pptVorlage = strPfad & strPPTX
        pptApp.Presentations.Open Filename:=pptVorlage, untitled:=msoTrue
        
        Set pptPres = pptApp.ActivePresentation
        
        'Charts kopieren als Bild!
        'Workload_Eingang
        Dim rngSh As ShapeRange
        Workbooks("Testdatei.xlsm").Sheets("Workload_Eingang").ChartObjects("Mittelwert").CopyPicture xlScreen, xlPICT
        Set rngSh = pptPres.Slides(2).Shapes.PasteSpecial(DataType:=ppPasteEnhancedMetafile)

 

Ich glaube, dass ich irgendwie was übersehe... ich komme aber nicht drauf was..

 

VG Tim

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
28.06.2017 14:05:59 Tim
NotSolved
28.06.2017 16:49:13 Ben
NotSolved
30.06.2017 08:37:00 Tim
NotSolved
30.06.2017 08:37:00 Tim
NotSolved
Rot Diagramme von Excel in PP kopieren + positionieren
 30.06.2017 08:40:34 Tim Breiner
NotSolved
30.06.2017 11:14:17 Ben
NotSolved
30.06.2017 11:32:57 Tim
NotSolved
30.06.2017 16:21:15 Ben
NotSolved
27.07.2017 07:46:07 Tim
NotSolved