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

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

構文

上付き

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

戻り値

MsoTriState

注釈

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

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

上付き文字 プロパティを msoTrue に設定したテキスト範囲の下付き文字の書式を削除します。

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

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

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

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