メニュー

サポート

My Esri サイン イン

サポート トップ  >  表示  >  テキストエレメントのプロパティを変更する方法

FAQ
テキストエレメントのプロパティを変更する方法

ナレッジ番号：5478 | 登録日：2023/07/27 | 更新日：2024/12/02

【概要】

テキストエレメントのプロパティを変更する方法を示します。


【手順】

  1. ArcMapを起動します。

  2. Visual Basic Editorを開きます。

  3. プロジェクト･エクスプローラ･ウィンドウで、Projectの下にあるArcMap Objects > ThisDocumentをダブルクリックし、
    コード･ウィンドウを開きます。

  4. コード･モジュールに次のコードをペーストします。

    
Sub ChangeFont_of_TextElements()

  


Dim pMxDoc As IMxDocument
  Dim pLayout As IPageLayout2
  Dim pGraphicsContainer As IGraphicsContainer
  Dim pElement As IElement
  Dim pTextElement As ITextElement

  Set pMxDoc = ThisDocument
  Set pLayout = pMxDoc.PageLayout
  Set pGraphicsContainer = pLayout

  'シンボルを作成します
  Dim pFontDisp As IFontDisp
  Dim pRGB As IRgbColor
  Dim pSym As ITextSymbol
  Dim pFTextSym As IFormattedTextSymbol

  Set pFontDisp = New StdFont
  pFontDisp.Bold = True
  pFontDisp.Italic = True
  pFontDisp.Name = "MS UI Gothic"
  pFontDisp.Size = 24
  Set pRGB = New RgbColor
  pRGB.Red = 255
  pRGB.Blue = 200
  pRGB.Green = 200
  Set pSym = New TextSymbol
  Set pFTextSym = pSym
  pSym.Font = pFontDisp
  pSym.Color = pRGB

  pGraphicsContainer.Reset
  Set pElement = pGraphicsContainer.Next

  While Not pElement Is Nothing
    If TypeOf pElement Is ITextElement Then
      Set pTextElement = pElement
      pTextElement.Symbol = pSym
    End If
    Set pElement = pGraphicsContainer.Next
  Wend

  pMxDoc.ActiveView.Refresh

End Sub
  5. Visual Basic Editorを閉じます。

  6. ページレイアウトにテキストエレメントを追加します。

  7. マクロを実行します。

    A：ArcMapで、ツール > マクロ > マクロと選択し、マクロ･ダイアログを表示します。

    B：マクロを選択し、実行をクリックします。

メタデータ

種類

機能

製品

このナレッジはお役に立ちましたか？