Der einfachste Weg, mehrere Objekte in PowerPoint zu zentrieren

Question

Angenommen, ich habe in PowerPoint drei rechteckige Formen gleicher Größe horizontal nebeneinander angeordnet undIch möchte sie auf einer Folie zentrierenals eine Gruppe. Wenn ich alle drei auswähle und auf die Schaltfläche Ausrichten > Zentrieren klicke, werden sie einzeln ausgerichtet – jeder von ihnen kommt in die Mitte, sodass sie sich am Ende überlappen und nur einer von ihnen sichtbar ist. Ich möchte ihre Verteilung (Lücken zwischen ihnen) beibehalten und die Gruppe als Ganzes ausrichten.

Was ich derzeit tun muss, ist:

1. Wählen Sie diese drei Objekte aus
2. Gruppieren Sie sie
3. Rufen Sie „Ausrichten > Zentrieren“ auf.
4. Gruppierung aufheben

Ist es möglich, irgendwieVermeiden Sie die lästigen Schritte zwei und vier? Dies ist in meinem Fall ein sehr häufiger Vorgang und das Standardverhalten bewirkt in 99 % der Fälle einfach nicht das, was ich erreichen möchte. Vielleicht einige Einstellungen oder ein cleveres Makro?

Übrigens, falls das einen Unterschied macht, handelt es sich hier um PowerPoint 2013.

Answer 1

Sie können auch vertikale Linien an den Seiten der Folie verwenden, wenn Sie die drei Rechtecke zentrieren möchten.

1. Markieren Sie alle drei Rechtecke und die vertikalen Linien
2. Wählen Sie „Horizontal verteilen“
3. Wenn der Folienentwurf fertig ist, löschen Sie die vertikalen Linien.

Wenn Sie dies nur einmal tun, ist das zwar mehr Arbeit, aber bei mehreren Objekten sparen Sie Zeit. Sie können die vertikalen Linien kopieren und in jede Folie einfügen, um ebenfalls Zeit zu sparen.

Answer 2

Sie können dies mit einem Makro tun:

Sub Test()
    Dim shpGroup As ShapeRange
    Set shpGroup = ActiveWindow.Selection.ShapeRange
    shpGroup.Group
    shpGroup.Align msoAlignCenters, msoTrue
    shpGroup.Ungroup
End Sub

Wählen Sie die Formen aus, für die Sie dies tun möchten, drücken Sie F8 und führen Sie dieses Makro aus.

shpGroup.Groupgruppiert das Objekt, shpGroup.Align msoAlignCenters, msoTruerichtet die Gruppe in der Mitte der Folie aus und shpGroup.Ungrouphebt anschließend die Gruppierung der ausgewählten Objekte auf.

_{Hinweis: Es gibt absolut keine Fehlerbehandlung, daher werden Sie auf alle möglichen lustigen Fehler stoßen, wenn Sie nichts oder nur eine Form usw. auswählen. Fügen Sie bei Bedarf gerne eine Fehlerbehandlung hinzu}