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小さくしています。

関連語句
VBA, Visual Basic for Applications
［スポンサードリンク］
▼2020年2月16日(日)に、PowerPointマクロ作成時にも必須の、オブジェクトブラウザーの使い方とともに、オブジェクト式（オブジェクトを取得・操作するコード）の文法やオブジェクト変数等について解説するセミナー『Excel VBA講座 オブジェクト式解説編』を開催します。
オブジェクト式解説編

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

TrackBack:0

TrackBack URL

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

『インストラクターのネタ帳』は2003年10月から、Microsoft Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。
初めての著書『いちばんやさしいExcel VBAの教本』が、2018年1月にインプレスから出ました。


［熟読されている記事］




「TextFrame・TextRange」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.