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
|