YouTube | Facebook | X(Twitter) | RSS

エレメントの拡大

2016/9/1 (木)

SyntaxHighlighterについて
VBA
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Sub ScaleElement()
    Dim pMxDocument As IMxDocument
    Set pMxDocument = ThisDocument
      
    Dim pGraphicsContainerSelect As IGraphicsContainerSelect
    Set pGraphicsContainerSelect = pMxDocument.PageLayout
      
    Dim pElement As IElement
    Set pElement = pGraphicsContainerSelect.SelectedElement(0)
      
    Dim pGeometry As IGeometry
    Set pGeometry = pElement.Geometry
      
    Dim pTransform2D As esriGeometry.ITransform2D
    Set pTransform2D = pGeometry
      
    Dim pArea As IArea
    Set pArea = pGeometry
      
    Dim pPoint As IPoint
    Set pPoint = pArea.Centroid
      
    With pTransform2D
        .Scale pPoint, 2, 1
    End With
      
    pElement.Geometry = pGeometry
      
    pMxDocument.ActiveView.Refresh
      
End Sub
この記事タイトルとURLをコピー
  • この記事を書いた人

羽田 康祐

伊達と酔狂のGISエンジニア。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、PADIダイブマスター、四アマ。WordPress は 2.1 からのユーザーで歴だけは長い。 代表著書『"地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、元青山学院大学非常勤講師を兼務。日本地図学会第31期常任委員。発言は個人の見解です。

-プログラミング, ArcGIS
-,

S