指定したワードアートの図形を表す MsoPresetTextEffectShape 定数を返すか、または設定します。 値の取得と設定が可能です。
構文
式。PresetShape
式TextEffectFormat オブジェクトを表す変数。
戻り値
MsoPresetTextEffectShape
注釈
PresetShape プロパティ値には、Microsoft Office タイプ ライブラリで宣言されている MsoPresetTextEffectShape 定数のいずれかを指定できます。
例
次の使用例は、作業中の文書で最初のページの最初の図形の形状を下向きの矢印にします。 この例が機能するには、最初の図形がワードアート図形である必要があります。
Sub ChangeTextEffect()
With ActiveDocument.Pages(1).Shapes(1)
If .Type = msoTextEffect Then
.TextEffect.PresetShape = msoTextEffectShapeChevronDown
End If
End With
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。