サポート

FAQ
レイアウトにタイム･スタンプを追加する方法

ナレッジ番号：5494 | 登録日：2023/07/27 | 更新日：2024/11/21

【概要】

レイアウトに更新した日付や時間（タイム･スタンプ）を追加する方法を示します。

【手順】

このサンプルを使用するためには、レイアウトにテキスト･エレメントをあらかじめ追加しておきます。
このテキスト･エレメントがタイム･スタンプを表すようになります。
テキスト･エレメントを右クリックして以下のコードで指定している座標値にあわせておきます。

ArcMapを開きます。
Visual Basic Editorを開きます。
プロジェクト･エクスプローラ･ウィンドウで、Projectの下にあるArcMap Objects > ThisDocumentをダブルクリックし、コード･ウィンドウを開きます。
コード･ウィンドウのオブジェクト･ボックスから「MxDocument」を選択し、プロシージャ･ボックスから「OpenDocument」を選択します。

OpenDocumentプロシージャに以下のコードを追加します。



Dim pMxDoc As IMxDocument
Dim pGraphicsContainer As IGraphicsContainer
Dim pPageLayout As IPageLayout
Dim pEnumElement As IEnumElement
Dim pTextElement As ITextElement
Dim pElement As IElement






Set pMxDoc = ThisDocument
Set pPageLayout = pMxDoc.PageLayout
Set pGraphicsContainer = pPageLayout

Dim pPoint As IPoint
Set pPoint = New Point

'テキスト･エレメントの位置を指定します。
pPoint.x = 2
pPoint.y = 2
'
Set pEnumElement = pGraphicsContainer.LocateElements(pPoint, 0.5)
pEnumElement.Reset
Set pElement = pEnumElement.Next
If TypeOf pElement Is ITextElement Then
  pGraphicsContainer.DeleteElement pElement
  Call Project.AddDate.AddText
  Exit Function
End If

プロジェクト･エクスプローラ･ウィンドウで、新規標準モジュールを追加します。
新規標準モジュールのコード･ウィンドウを開きます。

コード･ウィンドウに以下のコードを追加します。



Dim m_pMxDoc As IMxDocument
Dim m_pPageLayout As PageLayout
Dim m_pGContainer As IGraphicsContainer 

 




Public Sub AddElement(AnElement As IElement, PagePosition As IGeometry)
  Set m_pMxDoc = ThisDocument
  Set m_pPageLayout = m_pMxDoc.PageLayout
  AnElement.Geometry = PagePosition
  Set m_pGContainer = m_pPageLayout
  m_pGContainer.AddElement AnElement, 0
  m_pMxDoc.ActiveView.Refresh
End Sub

Public Sub AddText()
  Dim pTextElement As ITextElement
  Set pTextElement = New TextElement

  'ドキュメントのタイトルを取得します
  Dim pDocumentTitle As String
  Dim pDocument As IDocument
  Set pDocument = Application.Document
  pDocumentTitle = pDocument.Title
                         
  '表現を決定します。
  pTextElement.Text = "現在の時刻：" & Now & vbCrLf & "ドキュメント名：" & pDocumentTitle

  'テキストの位置を決定するポイントを作成します。
  Dim pPoint As IPoint
  Set pPoint = New Point




  'テキスト･エレメントの位置を指定します。



  pPoint.x = 2
  pPoint.y = 2

  AddElement pTextElement, pPoint
End Sub