![将 PowerPoint 幻灯片转换为单个信息图表](https://linux22.com/image/1614862/%E5%B0%86%20PowerPoint%20%E5%B9%BB%E7%81%AF%E7%89%87%E8%BD%AC%E6%8D%A2%E4%B8%BA%E5%8D%95%E4%B8%AA%E4%BF%A1%E6%81%AF%E5%9B%BE%E8%A1%A8.png)
信息图表是信息、数据或知识的图形视觉表示,旨在快速清晰地呈现信息。
我的 PowerPoint 演示文稿大约有 8-10 张幻灯片,这些幻灯片格式很好,可视化效果也很好。我想将它们全部转换为单个大的信息图表图像吗?
有人知道怎么做吗?我知道如何将单个幻灯片转换为图像,然后我可以将它们合并为一个垂直图像。但这有点乏味。
有没有办法可以自动完成?
谢谢。
答案1
今天不知为何才看到这个。
我将在下面粘贴一些 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
答案2
我想不出从所有幻灯片中创建一个大的垂直图像的方法,但作为一种解决方法,将所有幻灯片的屏幕截图合并到一张幻灯片中,您可以使用缩放功能。
您可以转到插入 --> 缩放 --> 摘要缩放。选择所有幻灯片并单击插入。这将为您提供一个包含所有幻灯片截图的单张幻灯片部分。您可以调整它们的大小以适合并将此单张幻灯片导出为 png。
这不会给您一个大图像,图像将与幻灯片大小相同,但您可以按比例更改 PowerPoint 的尺寸,并使用最大化按比例增加而不影响幻灯片中的任何元素。您可以在执行上述摘要缩放步骤之前执行此操作。这可以为您提供更大的图像。