Hallo zusammen,

ich möchte gern bei Power Point eine bestimmte Folie auswählen, auf der ein Diagramm vorhanden ist. Dann soll das Makro die Größe des Diagramms und den Abstand zu den Seitenrändern festlegen. Ich habe bereits einen Code, der so aussieht:

Sub anpassen()
Dim shp As Shape
  If ActiveWindow.Selection.Type = ppSelectionShapes Then
 
       For Each shp In ActiveWindow.Selection.ShapeRange
 
       Set ActiveShape = shp
       Exit for
       Next shp
       
       End If
       
       With shp
       
.LockAspectRatio = msoFalse
.Height = 331
.Width = 350
.Left = 253
.Top = 142
End With
End Sub

Für dieses Makro muss ich in den Folien immer das Diagramm anklicken. Ist es möglich, den Code umzuschreiben, sodass ich nur die Folie in der Präsentation auswähle und dann das Diagramm durch das Makro selektiert wird? Auch soll das Makro wieder die Größe und den Abstand zu den Seitenrändern festlegen. Vielen Dank für Eure Hilfe im Voraus!

Viele Grüße

Jana