Ich konnte das Problem jetzt selber lösen.
Falls jemand anders ein ähnliches Problem haben sollte, hier mein Vorgehen:
im VBA Editor unter Extras > Verweise die Microsoft Powerpoint 16.0 Object Library laden
anschließend lässt sich mit folgendem Code der Bereich einfach kopieren
sub test()
Dim PPTapp As PowerPoint.Application
Dim PPTfile As PowerPoint.Presentation
Dim PPTslide As PowerPoint.Slide
Set PPTapp = GetObject(, "Powerpoint.Application")
Set PPTfile = PPTapp.ActivePresentation
Set PPTslide = PPTfile.Slides(PPTapp.ActiveWindow.Selection.SlideRange.SlideIndex)
ActiveSheet.Range("B1:G6").Select
Selection.Copy
PPTslide.Shapes.Paste
end sub
|