☰

Самый простой способ центрировать несколько объектов в PowerPoint

tag-icon • tag-icon microsoft-powerpoint
Самый простой способ центрировать несколько объектов в PowerPoint

Допустим, в PowerPoint у меня есть три прямоугольные фигуры одинакового размера, расположенные горизонтально рядом друг с другом иЯ хочу разместить их по центру слайда.как группа. Если я выберу все три и нажму кнопку Выровнять > Центрировать, она выровняет их один за другим - каждый из них придет в центр, так что в итоге они будут перекрывать друг друга, и только один из них будет виден. Я хочу сохранить их распределение (пробелы между ними) и выровнять группу как единое целое.

На данный момент мне необходимо сделать следующее:

  1. Выберите эти три объекта.
  2. Сгруппируйте их
  3. Вызовите Выровнять > Центрировать
  4. Разгруппировать их

Возможно ли как-тоизбегайте раздражающих шагов два и четыре? Это очень частая операция в моем случае, и поведение по умолчанию просто не делает то, что я хочу делать в 99% случаев. Может быть, какие-то настройки или умный макрос?

Кстати, это PowerPoint 2013, если это имеет значение.

решение1

Вы также можете использовать вертикальные линии по бокам слайда. Когда вы хотите отцентрировать три прямоугольника.

  1. Выделите все три прямоугольника и вертикальные линии.
  2. Выберите Распределить горизонтально
  3. Когда дизайн слайда будет завершен, удалите вертикальные линии.

Это больше работы, если вы делаете это только один раз, но с несколькими объектами это сэкономит вам время. Вы можете скопировать и вставить вертикальные линии в каждый слайд, чтобы сэкономить время.

решение2

Это можно сделать с помощью макроса:

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

Выберите фигуры, для которых вы хотите это сделать, нажмите F8 и запустите этот макрос.

shpGroup.Groupгруппирует объект, shpGroup.Align msoAlignCenters, msoTrueвыравнивает группу по центру слайда, а shpGroup.Ungroupзатем разгруппировывает выбранные объекты.

Примечание: обработка ошибок полностью отсутствует, поэтому вы столкнетесь со всевозможными забавными ошибками, если ничего не выберете или выберете только одну фигуру и т. д. При необходимости вы можете добавить обработку ошибок.

Связанный контент