次の方法で共有

TextEffectFormat.KernedPairs プロパティ (Publisher)

  • [アーティクル]

ワードアート オブジェクト内の文字ペアがカーニングされているかどうかを示す MsoTriState 定数を設定または返します。 値の取得と設定が可能です。

構文

式。KernedPairs

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

戻り値

MsoTriState

注釈

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

定数 説明
msoFalse 指定したワードアート オブジェクトの文字はカーニングされていません。
msoTriStateToggle MsoTrue と msoFalse を切り替えます。
msoTrue 指定したワードアート オブジェクトの文字はカーニングされています。

例

次の使用例は、作業中の文書のすべてのワードアート オブジェクトでの文字のカーニングを有効にします。

Sub KernedWordArt() 
 Dim pagPage As Page 
 Dim shpShape As Shape 
 For Each pagPage In ActiveDocument.Pages 
 For Each shpShape In pagPage.Shapes 
 If shpShape.Type = msoTextEffect Then 
 shpShape.TextEffect.KernedPairs = msoTrue 
 End If 
 Next 
 Next 
End Sub

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

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