VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Grafik von Excel in PowerPoint und verkleinern	24.06.2015 21:23:13	snowflake
Grafik von Excel in PowerPoint und verkleinern	24.06.2015 21:24:51	snowflake
Grafik von Excel in PowerPoint und verkleinern	26.06.2015 16:38:40	Gast44113
da is mir ein Wort verloren gegangen...	27.06.2015 00:48:35	Gast90723
Grafik von Excel in PowerPoint und verkleinern	30.06.2015 13:46:50	snowflake

Ansicht des Beitrags:

Von:
snowflake

Datum:
24.06.2015 21:23:13

Views:
1332

Rating:

Antwort:

Thema:
Grafik von Excel in PowerPoint und verkleinern

Hallo,

ich sitzt jetzt schon seit mehreren Stunden an einer Kleinigkeit, und kriegs einfach nicht hin. Auch das Internet konnte mir nicht helfen, warum auch immer.

Ich für mittels Copy - Paste einen Chart aus Excel in Powerpoint ein. Soweit so gut. Jetzt geht der Chart aber über die komplette Folie und verdeckt die Überschrift.

Wie schaffe ich es, die Abbildung anzusprechen und ihr Größe und Position zuzuweisen?

(Ich schaff es nichtmal die Abbildung zu selectieren!)

Option Explicit

Sub CreatePPTFile()
    Dim PPTApp As Object 'Die PowerPoint Anwendung
    Dim PPTFile As Object 'Die PowerPoint Datei
    Dim PPTSlide As Object 'Eine PowerPoint Folie
    Dim Standort As String
    Dim Jahr As String

    'PowerPoint öffnen/starten
    Set PPTApp = CreateObject("Powerpoint.Application")
    'PPTApp.Visible = True

    'Neue Präsentation
    Set PPTFile = PPTApp.Presentations.Add

    'neue Folie einfügen
    Set PPTSlide = PPTFile.Slides.Add(1, 1)

    'Titel
    PPTSlide.Shapes(1).TextFrame.TextRange.Text = "Report"
    
    '2. Folie
    Set PPTSlide = PPTFile.Slides.Add(2, 11)
 
    PPTSlide.Shapes(1).TextFrame.TextRange.Text = "Produktübersicht 2009" 
     
    Sheets("Pivot_Table").PivotTables("PivotTable1").PivotFields("Jahr").CurrentPage = "2009"
    ActiveChart.CopyPicture
    
    PPTSlide.Shapes.Paste
    
    PPTSlide.Slides(2).Shapes(2).Select   ' Fehlermeldung
    


     Set PPTSlide = Nothing
     Set PPTFile = Nothing
     Set PPTApp = Nothing
End Sub

Fehlermeldung: Objekt unterstützt diese Eigenschaft oder Methode nicht.

Kann mir jemand helfen?

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
Grafik von Excel in PowerPoint und verkleinern	24.06.2015 21:23:13	snowflake
Grafik von Excel in PowerPoint und verkleinern	24.06.2015 21:24:51	snowflake
Grafik von Excel in PowerPoint und verkleinern	26.06.2015 16:38:40	Gast44113
da is mir ein Wort verloren gegangen...	27.06.2015 00:48:35	Gast90723
Grafik von Excel in PowerPoint und verkleinern	30.06.2015 13:46:50	snowflake