HAllo Leute,
ich bin an einer kniffligen Sache dran, ich habe mehrere Datensätze die ich von Excel (Daten und Diagramm) nach Powerpoint als Bild schicken möchte.
Die zusammenhängenden Daten sind in den Spalten A bis Z und jeweils 25 Zeilen lang.
Diese Darstellung möchte ich als Bild in Powerpoint darstellen. Diese Lösung habe ich annährend in den Foren gefunden, reicht jedoch nicht für mich aus!
Sub ShowInPP()
Dim objPP As Object
Dim objP As Object 'PowerPoint.Presentation
Dim objCL As Object 'PowerPoint.CustomLayout
Dim objS As Object 'PowerPoint.Slide
Set objPP = CreateObject("PowerPoint.Application")
Set objP = objPP.Presentations.Add
Set objCL = objP.SlideMaster.CustomLayouts.Add(1)
Set objS = objP.Slides.AddSlide(1, objCL)
ActiveSheet.Range("A1:H30").CopyPicture
With objS.Shapes.Paste 'PowerPoint.ShapeRange
.Left = (objCL.Width - .Width) / 2
.Top = (objCL.Height - .Height) / 2
End With
objPP.Visible = True
End Sub
Insgesamt können bis zu 50 Datensätze folgen, oder aber auch nur 2 und ich weiß nicht, wie ich meine "wenn dann" Bedingung einbauen muss, um nur bis zum letzten Diagramm/Datensatz meine Daten nach Powerpoint exportiere. Jeder Datensatz ist von der Länge her identisch!
Ich hoffe ihr könnt mir helfen
Danke im Voraus |