Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.06.2017 14:05:59 |
Tim |
|
|
|
28.06.2017 16:49:13 |
Ben |
|
|
Diagramme von Excel in PP kopieren + positionieren |
30.06.2017 08:37:00 |
Tim |
|
|
|
30.06.2017 08:37:00 |
Tim |
|
|
|
30.06.2017 08:40:34 |
Tim Breiner |
|
|
|
30.06.2017 11:14:17 |
Ben |
|
|
|
30.06.2017 11:32:57 |
Tim |
|
|
|
30.06.2017 16:21:15 |
Ben |
|
|
|
27.07.2017 07:46:07 |
Tim |
|
|
Von:
Tim |
Datum:
30.06.2017 08:37:00 |
Views:
651 |
Rating:
|
Antwort:
|
Thema:
Diagramme von Excel in PP kopieren + positionieren |
Hi Ben,
erst mal vielen Dank für die schnelle Antwort. Leider durchschaue ich das noch nicht so ganz.
Wenn ich die Variable so zuweise, erhalte ich einen Runtime-Error '13': Typen sind unverträglich.
Oder muss ich noch etwas verändern an meinem 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) |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
28.06.2017 16:49:13 |
Ben |
|
|
Diagramme von Excel in PP kopieren + positionieren |
30.06.2017 08:37:00 |
Tim |
|
|
|
30.06.2017 08:37:00 |
Tim |
|
|
|
30.06.2017 08:40:34 |
Tim Breiner |
|
|
|
30.06.2017 11:14:17 |
Ben |
|
|
|
30.06.2017 11:32:57 |
Tim |
|
|
|
30.06.2017 16:21:15 |
Ben |
|
|
|
27.07.2017 07:46:07 |
Tim |
|
|