VBA之计算选中多边形的面积

准备工作与添加shape图形相同，创建一个Button控件。
添加代码如下：
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

Dim pUID As New UID
pUID = "{E156D7E5-22AF-11D3-9F99-00C04F6BC78E}" 'IGeoFeatureLayer IID

Dim pEnumLayer As IEnumLayer
Set pEnumLayer = pMxDoc.FocusMap.Layers(pUID, True)
pEnumLayer.Reset

Dim pFeatureLayer As IFeatureLayer
Dim pFeatureSelection As IFeatureSelection
Dim pFeatureCursor As IFeatureCursor
Dim pFeature As IFeature
Dim pArea As IArea
Dim dTotalArea As Double

Set pFeatureLayer = pEnumLayer.Next
Do Until (pFeatureLayer Is Nothing)
If (pFeatureLayer.FeatureClass.ShapeType = esriGeometryPolygon) Then
Set pFeatureSelection = pFeatureLayer

If (pFeatureSelection.SelectionSet.Count <> 0) Then
pFeatureSelection.SelectionSet.Search Nothing, Tru