Ein Freund von mir hat mir einen Code geschrieben, damit ich verschiedene Excel-Chart zu PPP exportiere!
Aber ich will,dass alle Graphiken die ich habe zu einen bestimmten Slide in einer PPP exportiert werden.
Deswegen bitte ich nach Lösungsvorschläge:
Hier den Code:
Public Sub Export(ByVal SheetString As String, ByVal Schnittstelle As String, ByVal _
Export_ThisChart As String)
Dim ppApp As Object
Dim ppPres As String
ppPres = Schnittstelle
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
'.Visible = True
'.WindowState = 1
.Activate
End With
Set ppFile = ppApp.Presentations.Open(ppPres)
ActiveWorkbook.Worksheets(SheetString).ChartObjects(Export_ThisChart + 1).Activate
ActiveChart.ChartArea.Copy
ppApp.ActivePresentation.Slides(1).Shapes.Paste
End Sub
Public Sub ExportII(ByVal NumberDiagramm As Long, ByVal SheetString As String, ByVal _
Schnittstelle As String, ByVal Export_ThisChart As String)
Dim idx As Long
idx = 1
Dim ppApp As Object
Dim ppPres As String
Dim sl As Object
ppPres = Schnittstelle
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
'.Visible = True
'.WindowState = 1
.Activate
End With
Set ppFile = ppApp.Presentations.Open(ppPres)
ActiveWorkbook.Worksheets(SheetString).ChartObjects(Export_ThisChart + 1).Activate
ActiveChart.ChartArea.Copy
If NumberDiagramm > 1 Then
'Set s1 = ppApp.ActivePresentation.Slides.Add(Index:=NumberDiagramm, Layout:=ppLayoutBlank) _
End If
ppApp.ActivePresentation.Slides(NumberDiagramm).Shapes.Paste
End Sub