Макросы PowerPoint — это мощный способ автоматизации задач и повышения производительности при создании презентаций. В этой статье блога мы рассмотрим различные методы с примерами кода для изменения размера и выравнивания объектов по середине в PowerPoint. Независимо от того, новичок вы или опытный пользователь PowerPoint, эти методы помогут вам с легкостью создавать визуально привлекательные слайды.

Метод 1: использование макроса VBA

Sub ResizeAndAlignMiddle()
    Dim slide As Slide
    Dim shape As Shape

    For Each slide In ActivePresentation.Slides
        For Each shape In slide.Shapes
            shape.LockAspectRatio = msoFalse
            shape.Width = slide.Width * 0.8 ' Adjust the percentage as desired
            shape.Height = slide.Height * 0.8 ' Adjust the percentage as desired
            shape.Left = (slide.Width - shape.Width) / 2
            shape.Top = (slide.Height - shape.Height) / 2
        Next shape
    Next slide
End Sub

Метод 2: использование объекта выделения PowerPoint

Sub ResizeAndAlignMiddle()
    Dim shape As Shape

    For Each shape In ActiveWindow.Selection.ShapeRange
        shape.LockAspectRatio = msoFalse
        shape.Width = shape.Parent.Width * 0.8 ' Adjust the percentage as desired
        shape.Height = shape.Parent.Height * 0.8 ' Adjust the percentage as desired
        shape.Left = (shape.Parent.Width - shape.Width) / 2
        shape.Top = (shape.Parent.Height - shape.Height) / 2
    Next shape
End Sub

Метод 3. Использование объекта ShapeRange PowerPoint

Sub ResizeAndAlignMiddle()
    Dim shaperange As ShapeRange
    Set shaperange = ActiveWindow.Selection.ShapeRange

    shaperange.LockAspectRatio = msoFalse
    shaperange.Width = shaperange.Parent.Width * 0.8 ' Adjust the percentage as desired
    shaperange.Height = shaperange.Parent.Height * 0.8 ' Adjust the percentage as desired
    shaperange.Left = (shaperange.Parent.Width - shaperange.Width) / 2
    shaperange.Top = (shaperange.Parent.Height - shaperange.Height) / 2
End Sub

Метод 4. Использование группировки PowerPoint

Sub ResizeAndAlignMiddle()
    Dim slide As Slide
    Dim shape As Shape
    Dim groupedShape As ShapeRange

    For Each slide In ActivePresentation.Slides
        For Each shape In slide.Shapes
            If shape.Type = msoGroup Then
                Set groupedShape = shape.GroupItems
                groupedShape.LockAspectRatio = msoFalse
                groupedShape.Width = slide.Width * 0.8 ' Adjust the percentage as desired
                groupedShape.Height = slide.Height * 0.8 ' Adjust the percentage as desired
                groupedShape.Left = (slide.Width - groupedShape.Width) / 2
                groupedShape.Top = (slide.Height - groupedShape.Height) / 2
            End If
        Next shape
    Next slide
End Sub

Используя макросы VBA и различные объекты PowerPoint, такие как Slide, Shape, ShapeRange и Grouping, мы изучили различные методы изменения размера и выравнивания объектов по середине в PowerPoint. Эти методы сэкономят ваше время и усилия, автоматизируя задачи ручного изменения размера и выравнивания. Поэкспериментируйте с предоставленными примерами кода и адаптируйте их к своим конкретным потребностям, чтобы без труда создавать потрясающие презентации.