vba - VBA 将幻灯片大小缩放到 PPT 标准 4:3 最大化

Question

我想将我的 PowerPoint 幻灯片大小调整为标准 (4:3) 最大化。我将代码自动调整为 4:3，但它默认为确保适合。如何更改代码以将幻灯片大小缩放为 4:3 最大化而不是确保适合？我已经尝试在整个互联网上寻找并没有找到解决方案。

这是我到目前为止的代码。先感谢您！

Public Sub StandardMaximize()

Dim PPPres As Presentation
Application.ActivePresentation.PageSetup.SlideSize = ppSlideSizeCustom
Set PPPres = Application.ActivePresentation

With PPPres.PageSetup
.SlideSize = ppSlideSizeCustom
.SlideWidth = 10 * 72
.SlideHeight = 7.5 * 72
.FirstSlideNumber = 1
.SlideOrientation = msoOrientationHorizontal
.NotesOrientation = msoOrientationVertical
End With
End Sub

Answer 1

我在 C# 中做过一次：

pptPresentation.PageSetup.SlideSize = PpSlideSizeType.ppSlideSizeOnScreen;

并将其缩放到完整的幻灯片大小，只需创建一个CustomLayout等于您的演示文稿的新文件，并将您的形状大小设置为等于 CustomLayout。

CustomLayout customLayout = pptPresenation.SlideMaster.CustomLayouts[PpSlideLayout.ppLayoutText]
shape.Height = customLayout.Height;
shape.Width = customLayout.Width;

我很久以前做过。我希望它有所帮助。