Hallo,

ich habe eine Excel Datei mit eienr Pivottabelle bzw. ein Diagramm die ich per VBA auf eine Powerpoint Folie als Grafik kopieren will, sodass man diese Tabelle/Grafik/ DIagramm in Powerpoint vom Leser nicht modifiziert werden kann. Der untere Code ermöglicht es mir das kopieren aber leider nicht Abbildung bzw. nicht als Grafik.

Viele Grüße,

Antonio

   Workbooks.Open Filename:="G:\12. Scoring\POSmobile\Reportings\Summary_Ablehungsgrund_Mandant - Kopie.xlsx"      'Öffnet die Datei Summary_Ablehungsgrund_Mandant.xlsx
               Worksheets("Grafik").Activate
               ActiveSheet.ChartObjects("Diagramm 1").Activate
        ActiveSheet.PivotTables("PivotTable1").PivotFields("Mandant (Reg)"). _
        CurrentPage = "(All)"
         With ActiveSheet.PivotTables("PivotTable1").PivotFields("Mandant (Reg)")
        .PivotItems("MK").Visible = False
        .PivotItems("N").Visible = False
        .PivotItems("P").Visible = False
        
       
        ActiveSheet.ChartObjects("Diagramm 1").Activate
        ActiveChart.ChartArea.Copy
       
         ActiveWorkbook.SaveAs Filename:="G:\12. S\Abl_Mandant - Kopie.xlsx" _
        , FileFormat:=51, CreateBackup:=False
          ActiveWorkbook.Close
       
       
       Set Slide = App.ActivePresentation.Slides(6) 'Folie5 Geöffnet da  wo die Abbildung hinein soll
       App.ActivePresentation.Slides(6).Select
       App.ActivePresentation.Slides(6).Shapes.Paste
       Set myshape = Slide.Shapes(Slide.Shapes.Count)
   
      End With
      
     
   Set myshape = Slide.Shapes(Slide.Shapes.Count)
   
      myshape.Left = 80
      myshape.Top = 120
      myshape.Width = 535