概要 - フォントを割り当てる(VBA/ActiveX)

フォントにより、それぞれの文字セットを構成する文字の形状が定義されます。

1 つのフォントは、複数のスタイルで使用できます。文字スタイルにフォントを割り当てるには、TextStyle オブジェクトの FontFile プロパティを使用します。AutoCAD のコンパイル済み SHX フォントを含むフォント ファイル名を入力することにより、そのフォントを文字スタイルに割り当てます。

文字フォントを設定する

次の例は、アクティブな文字スタイルの現在のフォントの値を取得し、フォントの書体を "PlayBill" に変更します。次に、SetFont メソッドを使用して新しいフォントを設定します。書体の変更の効果を確認するには、現在の図面に MText または Text 文字をいくつか記入してから、この例を実行してください。フォント PlayBill がシステム上に存在しない場合、この例を実行するには、代わりのフォントを指定する必要があることに注意してください。

Sub Ch4_UpdateTextFont()

  MsgBox ("Look at the text now...")

  Dim typeFace As String
  Dim SavetypeFace As String
  Dim Bold As Boolean
  Dim Italic As Boolean
  Dim charSet As Long
  Dim PitchandFamily As Long

  ' Get the current settings to fill in the
  ' default values for the SetFont method
  ThisDrawing.ActiveTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily

  ' Change the typeface for the font
  SavetypeFace = typeFace
  typeFace = "PlayBill"
  ThisDrawing.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily
  ThisDrawing.Regen acActiveViewport
  MsgBox ("Now see how it looks after changing the font...")

  'Restore the original typeface
  ThisDrawing.ActiveTextStyle.SetFont SavetypeFace, Bold, Italic, charSet, PitchandFamily
  ThisDrawing.Regen acActiveViewport
End Sub