Publisher) (TextEffectFormat.KernedPairs 屬性

會設定或傳回 MsoTriState 常數，指出文字藝術師物件中的字元組是否已經過 Kerned。 讀取/寫入。

語法

運算式。KernedPairs

表達 代表 TextEffectFormat 物件的 變數。

傳回值

MsoTriState

註解

KernedPairs 屬性值可以是其中一個 MsoTriState 常數之一 Microsoft Office 類型程式庫中，如下表所示。

常數	描述
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 支援與意見反應。