Font.SetScriptName メソッド (Publisher)

テキスト範囲で使用するフォント スクリプト名を設定します。

構文

式。SetScriptName (Script, FontName)

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

パラメーター

名前 必須 / オプション データ型 説明
Script 必須 PbFontScriptType スクリプト名を指定します。 Microsoft Publisher タイプ ライブラリで宣言されている PbFontScriptType 定数のいずれかを指定できます。
FontName 必須 String フォント名を指定します。

例

この例では、指定したテキスト範囲で使用されているデフォルトのフォントスクリプトが Tahoma であることを確認し、そうでない場合は、デフォルトのフォントスクリプトとして設定します。

Sub GetScript() 
 With ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Font 
 If .GetScriptName(Script:=pbFontScriptDefault) <> "Tahoma" Then 
 .SetScriptName Script:=pbFontScriptDefault, _ 
 FontName:="Tahoma" 
 End If 
 End With 
End Sub

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

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

  • Last updated on