フィーチャ レイヤに設定されているフィールドのエイリアス名を取得する方法

マップに追加したフィーチャ レイヤでは、フィールドに対してフィーチャクラスに設定されたエイリアス名とは別のエイリアス名を設定することができます。フィーチャ レイヤに設定したフィールドのエイリアス名を取得する方法です。コードは調査用に書いたので VBA になってます。

Dim pOrderedLayerFields As IOrderedLayerFields
Set pOrderedLayerFields = pFeatureLayer

Dim pFieldInfoSet As IFieldInfoSet
Set pFieldInfoSet = pOrderedLayerFields.FieldInfos

Dim pFieldInfo As IFieldInfo
Set pFieldInfo = pFieldInfoSet.FieldInfo(0) '引数はフィールドのインデックス番号

Debug.Print pFieldInfo.Alias

昨日はGISコミュニティフォーラムのプレフォーラムで ArcObjects のテクニカル セッションを担当したのですが、発表の最後に情報はどんどん共有していきましょう！と言っておきながら自分自身がご無沙汰してました。