Thema Datum  Von Nutzer Rating
Antwort
Rot Grafik von Excel in PowerPoint und verkleinern
 24.06.2015 21:23:13 snowflake
NotSolved
24.06.2015 21:24:51 snowflake
NotSolved
26.06.2015 16:38:40 Gast44113
*****
Solved
27.06.2015 00:48:35 Gast90723
NotSolved
30.06.2015 13:46:50 snowflake
NotSolved

Ansicht des Beitrags:
Von:
snowflake		 Datum:
24.06.2015 21:23:13		 Views:
1461		 Rating:
     
Antwort:
  Ja
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
Rot Grafik von Excel in PowerPoint und verkleinern
 24.06.2015 21:23:13 snowflake
NotSolved
24.06.2015 21:24:51 snowflake
NotSolved
26.06.2015 16:38:40 Gast44113
*****
Solved
27.06.2015 00:48:35 Gast90723
NotSolved
30.06.2015 13:46:50 snowflake
NotSolved