英語で読む

次の方法で共有


Font オブジェクト (Publisher)

オブジェクトのフォントの属性 (フォント名、フォント サイズ、色など) を含みます。

注釈

TextStyle.Font プロパティを使用して、Font オブジェクトを取得します。

次の使用例は、選択範囲に太字を設定します。

Sub BoldText() 
 Selection.TextRange.Font.Bold = True 
End Sub

次の使用例は、作業中の文書の最初の段落に Arial と斜体を設定し、フォント サイズを 24 ポイントにします。

Sub FormatText() 
 Dim txtRange As TextRange 
 Set txtRange = ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 With txtRange.Font 
 .Bold = True 
 .Name = "Arial" 
 .Size = 24 
 End With 
End Sub

次の使用例は、作業中の文書の [標準] スタイルのフォントを Tahoma にし、太字を設定します。

Sub FormatStyle() 
 With ActiveDocument.TextStyles("Normal").Font 
 .Name = "Tahoma" 
 .Italic = True 
 .Size = 15 
 End With 
End Sub

TextRange.Duplicate プロパティを使用して Font オブジェクトを複製することもできます。 次の使用例は、選択部分の文字書式と斜体書式に基づいて新しい文字スタイルを作成します。 選択範囲の書式は変更されません。

Sub DuplicateFont() 
 Dim fntNew As Font 
 Set fntNew = Selection.TextRange.Font.Duplicate 
 fntNew.Italic = True 
 ActiveDocument.TextStyles.Add(StyleName:="Italics").Font = fntNew 
End Sub

メソッド

プロパティ

関連項目

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

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