Сохранить все изображения слайда в одно изображение JPG с помощью VBA

Question

Я хотел бы сделать следующее в VBA PowerPoint:

У меня есть PowerPoint с шестью картинками на нем.В идеале я хотел бы сгруппировать шесть изображений, чтобы создать одно новое изображение в формате .jpg, а затем экспортировать изображение .jpg в файл.После экспорта фотографии я хотел бы удалить 6 отдельных изображений, чтобы можно было импортировать одно изображение .jpg.

Я использовал это, чтобы начать: Сохранить все формы слайда в одном JPG-изображении .Я понимаю комментарий, но не знаю, как его выполнить.

Если есть лучший способ сделать это, пожалуйста, поделитесь.

Спасибо!

Answer 1

Это преобразует текущие выбранные фигуры в PNG, вставляет их обратно на слайд и удаляет исходные фигуры.

Возможно, вы захотите изменить это, чтобы гарантировать, что что-то выбрано, и аккуратно выйти, если нет,или, если это только для вашего собственного использования, пусть PPT / VBA ругает вас, если вы забыли что-то выбрать.

Sub ConvertSelectionToImage()

    Dim oShapes As ShapeRange
    Dim oGroup As Shape
    Dim oSingleShape As Shape

    ' Get a reference to the selected shapes
    Set oShapes = ActiveWindow.Selection.ShapeRange
    ' Group them so we can later pick up their coordinates
    Set oGroup = oShapes.Group
    ' copy to clipboard
    oGroup.Copy

    ' paste from clipboard as PNG to retain transparency
    Set oSingleShape = ActiveWindow.Selection.SlideRange.Shapes.PasteSpecial(ppPastePNG)(1)

    ' Position the pasted PNG to match original shapes
    With oSingleShape
        .Left = oGroup.Left
        .Top = oGroup.Top
    End With

    ' And delete the original shapes
    oGroup.Delete

End Sub