|
Hallo zusammen,
ich habe ein Problem ich will ein Makro schreiben das mir aus mehreren exceltabellen einen bestimmten Bereich kopiert und in ein PowerPoint slide einfügt. Das funktioniert auch soweit nur befindet sich in der Excel arbeitsmappe noch ein dazugehöriges Bild. Irgendwie fügt es mir dauerhaft das gleiche Bild ein und hier kommen ich nicht weiter:
Set objSlide = objPres.Slides.Add(objPres.Slides.Count + 1, ppLayoutTitleOnly)
objSlide.Select
objPres.Slides(l + 1).Shapes.Paste.Select
Headline = Range("B2").Value
'Ampel-Status'
ObjExcel.Worksheets(1).Shapes.Range(Array(3, 4, 5, 6)).Group
ObjExcel.Worksheets(1).Shapes(3).Copy
objPres.Slides(l + 1).Shapes.Paste
'Bild'
ObjExcel.Worksheets(1).Shapes.Range(Array("Picture 2")).Select
Selection.Copy
objPres.Slides(l + 1).Shapes.Paste.Select
|