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

user9871028 спросил: 12 мая 2018 в 04:05 в: vba

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

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

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

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

Спасибо!


1 ответ

Steve Rindsberg ответил: 13 мая 2018 в 01:36

Это преобразует выбранные фигуры в 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.DeleteEnd Sub