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
▼『いちばんやさしい PowerPoint VBA の教本』は、一番易しいパワポマクロ入門書、というわけではありませんので、ご注意ください。
いちばんやさしいPowerPoint VBAの教本
［スポンサードリンク］

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

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBA経験者向けに、Word VBAの基本をキンドル本にしました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 日経BP社から出版されたExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓


「TextFrame・TextRange」の記事一覧

検索


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

.