PowerPoint 2013 タイトルのアルファベットが全て大文字になる場合の対処法

PowerPointを新規作成した時にタイトルのアルファベットが全て大文字になる場合の対処法をメモ。
GUIから設定出来ますが、VBAから設定する方法も一緒にメモします。

アルファベットが大文字になるとは？

シェープのテキストに入力されたアルファベットが「全て大文字になる」場合があります。
Capsロックがかかっているかと思い、再入力しても変化がありません。

今回説明する内容は、テキスト文字を小文字だけ、又は任意に大文字・小文字に入力する方法です。

GUIの設定方法

1. 対象のシェープ（今回はTitle）を選択
2. [ホーム]→[フォント]グループの右下にある「↘」をクリック
   
3. [文字飾り]の[すべて大文字]のチェックを外す
   

VBAを使った設定方法

VBAから設定が可能です。
一つ、二つであれば前述のように画面から設定した方が手軽です。複数個、又は個数が分からないほどある場合はVBAで設定した方が便利かもしれません。

＜サンプル＞特定のシェープに対し操作したい場合

Sub fncChangeTitleCap2Small()
    Dim oAllCaps As Font2
    
    Set oAllCaps = ActivePresentation.Slides(X).Shapes(Y). _
                    TextFrame2.TextRange.Font
    oAllCaps.Allcaps = msoFalse
End Sub

＜サンプル＞全シェープに対し操作したい場合

全シェープの[すべて大文字]を確認し、チェックが入っている場合はチェックをオフにします

'全体
Sub fncChangeAllCap2Small()
    Dim sl As Slide, sh As Shape
    Dim f As Font2

    For Each sl In ActivePresentation.Slides
        For Each sh In sl.Shapes
            Set f = sh.TextFrame2.TextRange.Font
            if f.Allcaps = msoTrue Then f.Allcaps = msoFalse
        Next
    Next
End Sub

余談：英語で大文字は何と読む？

上記VBA スクリプトを書く際、オブジェクト ブラウザからプロパティなどを調べてました。
調べる時に困った事は、やりたい事を英語で何と言うのかが分からない事。
今回で言えば「すべて大文字」です。
「すべて」はAllですから、「大文字」のみ和英辞典で調べてみると、

• Upper case Letter
• Capital Letter

というそうです。AllCapsのCapはCapitalなのかもしれませんね。
ちなみに、反対語となる「小文字」は

• Lower case Letter
• Small Letter

のようです。