Home » パワーポイントマクロ・PowerPoint VBAの使い方 » TextFrame・TextRange » フォントサイズを1ポイント小さくするPowerPointマクロ

フォントサイズを1ポイント小さくするPowerPointマクロ

対象：PowerPoint2003, PowerPoint2007, PowerPoint2010

PowerPointで、プレースホルダやシェイプなどの、文字の大きさ・フォントサイズを1ポイント大きくするマクロをご紹介しました。

［スポンサードリンク］

逆に、1ポイント小さくするマクロもご紹介しておきます。

Sub シェイプの文字を1ポイント小さくする()
　
　With ActiveWindow.Selection
　　
　　If .Type = ppSelectionNone Or .Type = ppSelectionSlides Then Exit Sub
　　If .Type = ppSelectionText Then .ShapeRange.Select

　　.ShapeRange.TextFrame.AutoSize = ppAutoSizeNone　　
　　With .TextRange.Font
　　　If .Size <= 1 Then Exit Sub
　　　.Size = .Size - 1
　　End With
　
　End With

End Sub

途中までの処理は、文字を大きくするマクロと同じです。

違うのは
　　With .TextRange.Font
の中です。

小さくするほうは限界がありますから、
　　　If .Size <= 1 Then Exit Sub
現在のフォントサイズが1pt以下になっていたらマクロを終了しています。

その後に実際に
　　　.Size = .Size - 1
フォントサイズを1pt小さくしています。

TrackBack:0

TrackBack URL

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » TextFrame・TextRange » フォントサイズを1ポイント小さくするPowerPointマクロ

『インストラクターのネタ帳』は2003年10月から、Microsoft Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。
Kindle Direct Publishingで、VBAユーザー向けのPython超入門書を出しました↓↓

3年前(2017年8月)の
人気記事

1位:切り捨てしたい・切り上げしたい−ROUNDDOWN関数・ROUNDUP関数
2位:別シートのデータを表示・別シートのセルを参照
3位:千円単位・百万円単位で表示する
4位:COUNTIF関数で空白以外のセルをカウントする
5位:IF関数で空白なら空白にする

「TextFrame・TextRange」の記事一覧

フォントサイズを1ポイント小さくするPowerPointマクロ

TrackBack:0

検索