Hallo Leute,
ich verwende aktuell diesen Code und würde gerne die Überschriften auf den Folien individuell ändern, allerdings bekomme ich den Code dafür nicht angepasst

Sub Präsentation_PPTuPDF_AF1()
Dim PoPt As Object
Dim PpDatei As Object
Dim Praes As String
Praes = "PFAD"
Set PoPt = CreateObject("Powerpoint.Application")
PoPt.Visible = True
Set PpDatei = PoPt.Presentations.Open(Praes) 'Präsentation öffnen
PoPt.ActiveWindow.ViewType = ppViewSlide
Charts("AF Intern AF1ges Dia").CopyPicture
PoPt.ActivePresentation.Slides(3).Select 'Folie 3
PoPt.ActiveWindow.View.Paste 'Bild einfügen
' Aktuelles Bild auf Folie anordnen
PoPt.ActiveWindow.Selection.ShapeRange.Left = 45.93268
PoPt.ActiveWindow.Selection.ShapeRange.Top = 75.46969
PoPt.ActiveWindow.Selection.ShapeRange.Width = 679.6103

Wie könnte ich in Zukunft ebenfalls Diagramme nach PP schicken, die nicht als Diagrammblatt angelegt sind, sondern sich innerhalb einem Tabellenblatt befinden?
Für eure Hilfe wäre ich sehr dankbar
Grüße