Можно ли создать макрос в PowerPoint 2007, который управляет размером и расположением объектов диаграммы

добавьте это в презентацию, сохраните как PPTM, затем выберите каждую из диаграмм по очереди; вставить | действие / запустить макрос: ResizeMe

вы хотите, чтобы убедиться, что диаграммы пропорциональны размеру слайда, чтобы начать с (или изменить линии, которые устанавливают диаграмму на весь экран, чтобы использовать различные пропорции).

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

Sub ResizeMe(oSh As Shape)

    With oSh

        ' Is the shape full screen or normal?
        If .Left = 0 Then    ' it's full screen
            .Left = CSng(.Tags("Left"))
            .Top = CSng(.Tags("Top"))
            .Height = CSng(.Tags("Height"))
            .Width = CSng(.Tags("Width"))
        Else    ' it's small; biggify it:
            ' first, record it's small coordinates:
            .Tags.Add "Left", CStr(.Left)
            .Tags.Add "Top", CStr(.Top)
            .Tags.Add "Height", CStr(.Height)
            .Tags.Add "Width", CStr(.Width)
            ' now make it full screen
            .Left = 0
            .Top = 0
            .Height = ActivePresentation.PageSetup.SlideHeight
            .Width = ActivePresentation.PageSetup.SlideWidth
        End If

    End With

End Sub