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

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

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

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

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

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

Спасибо!

vba powerpoint

Marcucciboy2 ответил: 12 мая 2018 в 04:15

это то, что вы только хотите сделать один раз? Если да, то нет смысла использовать VBA для этого

user9871028 ответил: 12 мая 2018 в 04:16

Нет, это для большой слайдовой колоды с одинаковой компоновкой для каждого слайда

Marcucciboy2 ответил: 12 мая 2018 в 04:19

Я имею в виду - вы будете только объединять эти фотографии один раз и никогда не повторять эту задачу?

user9871028 ответил: 12 мая 2018 в 04:23

да, изображения поступают из разных источников и отформатированы на слайде Power Point. Затем сгруппированы вместе, чтобы создать одно изображение

Marcucciboy2 ответил: 12 мая 2018 в 04:28

Простым способом экспорта изображения в формате jpg без использования VBA было бы просто скопировать и вставить его в Paint. Затем нажмите кнопку урожая и сохраните как .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