MapForums

 
Public Sub GenerateTerritory_Data_Map(strBook As String, strSheet As String, strContext As String)

    Dim strLegendTitle As String

    DataPath = Left(AbsPath, InStrRev(AbsPath, "\") - 1)
    DataFile = DataPath & "\" & strBook & "!" & strSheet

    If Not UCase(strContext) Like "*TERRITORY*" And Not LCase(TableName) Like "*datamap*" Then
        Set objDataSet = objMap.DataSets.ImportTerritories(DataFile, aFields, geoCountryUnitedStates, , geoImportExcelSheet)
    Else
        Set objDataSet = objMap.DataSets.ImportData(DataFile, aFields, geoCountryUnitedStates, , geoImportExcelSheet)


        If InStr(strContext, "bu") > 0 Then
            Set objField = objDataSet.Fields("business unit")
            strLegendTitle = "Business Units"
        ElseIf InStr(strContext, "district") > 0 Then
            If InStr(strContext, "datamap") > 0 Then
                Set objField = objDataSet.Fields("Quintile Label")
                strLegendTitle = "Quintiled Counties"
            Else
                Set objField = objDataSet.Fields("dist desc")
                strLegendTitle = "Districts"
            End If

        ElseIf InStr(strContext, "territory") > 0 Then
            If InStr(strContext, "datamap") > 0 Then
                Set objField = objDataSet.Fields("Quintile Label")
                strLegendTitle = "Quintiled Counties"
            End If
        Else
                Set objField = objDataSet.Fields("terr desc")
                strLegendTitle = "Territories"
        End If

        Set objDataMap = objDataSet.DisplayDataMap(geoDataMapTypeShadedArea, objField, _
                       , geoCombineByDefault, geoRangeTypeUniqueValues, geoRangeOrderDefault, 15)
    End If


    MsgBox "Order of data ranges in data map: " & _
      objDataMap.DataRanges.DataRangeOrder


    If Not UCase(strContext) Like "*TERRITORY*" Or LCase(TableName) Like "*datamap*" Then

        objDataMap.LegendTitle = strLegendTitle
    End If

      objMap.MapStyle = geoMapStyleData
'    If strLegendTitle = "Quintiled Counties" Then
'        objDataSet.ZoomTo
'    End If
'
        ' If the level is under national, zoom in
    If Not UCase(strContext) Like "*NATIONAL*" Then
        ResizeMap
        'objDataSet.ZoomTo
    End If

        ' Set the territory labels
    If UCase(strContext) Like "*TERRITORY*" And Not LCase(TableName) Like "*datamap*" Then
        objDataMap.LegendTitle = strLegendTitle
        AddTerritoryLabel strContext
    End If

End Sub