![](https://officeqa.net/wp-content/uploads/2021/09/powerpoint-vba-yohaku0-1024x576.jpg)
パワポのテキストの余白を「0」にしたい。しかも全スライド!!
手作業で毎回やっているけど、何か良い方法はないの!?
そんな悩みを解決します。
VBA(マクロ)を使用して、パワーポイントのテキストボックスの余白をですべて「0」にする方法です。
手作業より断然簡単です。
目次
手動でテキストの余白を0にする例
スライドは2つあり、それぞれテキストボックスに文字が入力されています。
![](https://officeqa.net/wp-content/uploads/2021/09/powerpoint-vba-yohaku-sakujo-1.png)
余白設定の画面です。
![](https://officeqa.net/wp-content/uploads/2021/09/powerpoint-vba-yohaku-sakujo-2.png)
この余白をすべて「0」にします。
![](https://officeqa.net/wp-content/uploads/2021/09/powerpoint-vba-yohaku-sakujo-3.png)
余白をすべて「0」にした状態です。
![](https://officeqa.net/wp-content/uploads/2021/09/powerpoint-vba-yohaku-sakujo-4.png)
一つのテキストボックスのみ変更する場合であれば、この方法でも問題ないでしょう。
VBAでテキストの余白をすべて0にするサンプルコード
標準モジュールに以下のコードを追加します。
Sub sumple() Dim sh As Shape Dim sld As Slide For Each sld In ActivePresentation.Slides For Each sh In sld.Shapes If sh.HasTextFrame Then With sh.TextFrame .MarginLeft = 0 .MarginRight = 0 .MarginTop = 0 .MarginBottom = 0 .AutoSize = ppAutoSizeShapeToFitText .WordWrap = msoFalse End With End If Next Next End Sub
追加後、実行するだけです。