FontFile プロパティ(ActiveX)

主フォント ファイルのパスとファイル名を指定します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.FontFile

object

タイプ: TextStyle

このプロパティが適用されるオブジェクト。

プロパティの値

読み込み専用: いいえ

タイプ: 文字列

主フォント ファイルのパス

注意

アジア系言語のフォント ファイルを指定するには、BigFontFile プロパティを使用します。

フォントは各文字セットを構成する文字の形を定義します。

注: このプロパティが設定されると、文字列への変更を確認するためには Regen メソッドを呼び出さなければなりません。

例

VBA:

Sub Example_FontFile()
    ' This example returns the current setting of
    ' the FontFile property. It then changes the value, and
    ' finally resets the value back to the original setting.
    
    Dim textStyle1 As AcadTextStyle
    Dim currFontFile As String
    Dim newFontFile As String
    
    Set textStyle1 = ThisDrawing.ActiveTextStyle
    
    ' Retrieve the current FontFile value
    currFontFile = textStyle1.fontFile
    MsgBox "The current value for FontFile is " & currFontFile, vbInformation, "FontFile Example"
    
    ' Change the value for FontFile
    newFontFile = "C:/AutoCAD/Fonts/italic.shx"
    textStyle1.fontFile = newFontFile
    MsgBox "The new value for FontFile is " & textStyle1.fontFile, vbInformation, "FontFile Example"
        
    ' Reset font file
    textStyle1.fontFile = currFontFile
    MsgBox "The value for FontFile has been reset to " & textStyle1.fontFile, vbInformation, "FontFile Example"
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_FontFile()
    ;; This example returns the current setting of
    ;; the FontFile property. It then changes the value, and
    ;; finally resets the value back to the original setting.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq textStyle1 (vla-get-ActiveTextStyle doc))
    
    ;; Retrieve the current FontFile value
    (setq currFontFile (vla-get-FontFile textStyle1))
    (alert (strcat "The current value for FontFile is " currFontFile))
    
    ;; Change the value for FontFile
    (setq newFontFile (findfile "./Fonts/italic.shx"))
    (vla-put-FontFile textStyle1 newFontFile)
    (alert (strcat "The new value for FontFile is " (vla-get-FontFile textStyle1)))
        
    ;; Reset font file
    (if (= (findfile currFontFile) nil)
	(setq currFontFile (findfile (strcat (getenv "WinDir") "\\Fonts\\" currFontFile)))
    )
  
    (vla-put-FontFile textStyle1 (findfile currFontFile))
    (alert (strcat "The value for FontFile has been reset to " (vla-get-FontFile textStyle1)))
)