主页 / computer / 问题 / 1520908
Accepted
NotepadPlusPlus PRO
Asked: 2020-01-29 11:19:24 +0800 CST

将 PowerPoint 幻灯片转换为单个信息图表

  • 772

信息图表是信息、数据或知识的图形视觉表示，旨在快速清晰地呈现信息。

我有大约 8-10 张幻灯片的 PowerPoint 演示文稿，这些幻灯片的格式很好，可视化效果很好。我想将它们全部转换成一个大的信息图图像吗？

在此处输入图像描述

有谁知道这是怎么做到的吗？我知道如何将单个幻灯片转换为图像，然后我可以将它们全部合并成一个垂直图像。但这有点乏味。

有没有办法自动完成？

谢谢。

microsoft-powerpoint presentations

2 个回答

  1. 我想不出一种从所有幻灯片创建大垂直图像的方法，但作为将所有幻灯片的屏幕截图放入一张幻灯片的解决方法，您可以使用缩放功能。

    您可以转到插入 --> 缩放 --> 摘要缩放。选择所有幻灯片，然后单击插入。这为您提供了一个包含一张幻灯片的部分，其中包含所有幻灯片的屏幕截图。您可以调整它们的大小以适应这张幻灯片并将其导出为 png。

    这不会给您一个大图像，图像将与幻灯片大小相同，但您可以按比例更改 PowerPoint 的尺寸，并使用最大化按比例增加而不影响幻灯片中的任何元素。您可以在执行上述摘要缩放步骤之前执行此操作。这可以给你一个更大的形象。

    • 0
  2. Best Answer

    今天因为某种原因才看到这个。

    我将在下面粘贴一些 VBA，它将为您完成这项工作。它会创建第二个演示文稿，其高度为原始演示文稿的高度 * 原始幻灯片的数量，然后将每张原始幻灯片的副本粘贴到新演示文稿中的一张幻灯片上，一张整齐地堆叠在另一张幻灯片上。

    一个警告：PPT 不会在任一维度上创建超过 56" 的幻灯片，因此请确保您的幻灯片不会导致溢出。我没有费心在 VBA 中对此进行测试。

    Option Explicit

Sub MakeInfoGraphic()

Dim oInfoPres As Presentation
Dim oInfoSlide As Slide
Dim oPres As Presentation
Dim oSl As Slide
Dim lTop As Long

Set oPres = ActivePresentation
Set oInfoPres = Presentations.Add
oInfoPres.PageSetup.SlideHeight = oPres.PageSetup.SlideHeight * oPres.Slides.Count
oInfoPres.Slides.AddSlide 1, oInfoPres.SlideMaster.CustomLayouts(7) ' Blank slide

lTop = 0

For Each oSl In oPres.Slides
    oSl.Copy
    With oInfoPres.Slides(1).Shapes.PasteSpecial(ppPastePNG)
        .Left = 0
        .Width = oInfoPres.PageSetup.SlideWidth
        .Top = lTop
        lTop = lTop + .Height
    End With
Next

End Sub
    • 0

相关问题