Font.SubScript プロパティ (発行元)

指定されたテキスト範囲の文字が下付き文字として書式設定されているかどうかを示す MsoTriState 定数を返すか、または設定します。 値の取得と設定が可能です。

構文

下付き

Font オブジェクトを表す変数。

戻り値

MsoTriState

注釈

インデックス プロパティの値には、Microsoft Office のタイプ ライブラリで宣言されているし、次の表に示す msotristate クラス の定数のいずれかを指定できます。

定数 説明
msoFalse 範囲内に下付きが設定されている文字はありません。
msoTriStateMixed 指定された形状範囲の msoTruemsoFalse の組み合わせを示す戻り値。
msoTriStateToggle msoTruemsoFalse を切り替える設定値。
msoTrue 範囲内のすべての文字に下付きが設定されています。

Msotrue を設定 する インデックス プロパティを設定したテキスト範囲に上付きの書式を削除します。

この例では、2 番目のストーリーのテキストをテストし、添え字が混在している場合は、すべてのテキストを下付きとして書式設定します。

Sub SubScript() 
 
 Dim fntSS As Font 
 
 Set fntSS = Application.ActiveDocument.Stories(2).TextRange.Font 
 With fntSS 
 If .SubScript = msoTriStateMixed Then 
 .SubScript = msoTrue 
 Else 
 MsgBox "Mixed subscript not in this story." 
 End If 
 End With 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。