1

PowerPoint スライドのサイズを標準 (4:3) 最大化に変更したいと考えています。4:3 に自動サイズ変更するコードがありますが、デフォルトで確実にフィットします。Slide Size を 4:3 Maximize にスケーリングし、Ensure Fit にしないようにコードを変更するにはどうすればよいですか? 私はインターネット全体を見てみましたが、解決策が見つかりませんでした。

これは私がこれまでに持っているコードです。前もって感謝します！

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
4

1 に答える 1

0

私はC＃で一度それをしました：

pptPresentation.PageSetup.SlideSize = PpSlideSizeType.ppSlideSizeOnScreen;

そして、それをスライド全体のサイズに合わせて拡大縮小CustomLayoutし、プレゼンテーションに等しい新しいものを作成し、シェイプ サイズを CustomLayout に等しく設定します。

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

私はずっと前にそれをしました。お役に立てば幸いです。

于 2019-10-02T16:49:24.107 に答える