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
- AllCaps
- アプリケーション
- AttachedToText
- AutomaticPairKerningThreshold
- Bold
- BoldBi
- ContextualAlternates
- DiacriticColor
- ExpandUsingKashida
- Fill
- Glow
- Italic
- ItalicBi
- Kerning
- 合字
- Line
- 名前
- NumberStyle
- Parent
- Position
- Reflection
- Scaling
- Size
- SizeBi
- SmallCaps
- StrikeThrough
- StylisticAlternates
- StylisticSets
- SubScript
- SuperScript
- スワッシュ字形
- TextShadow
- ThreeD
- Tracking
- TrackingPreset
- Underline
- UseDiacriticColor
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。