原理：利用EXCEL中建立任意多邊形功能。

具體實現思路：把每省當成一個任意多邊形，通過VBA繪制制每個任意多邊形Shapes。這些省的邊界的每個點數據存放在EXCEL中當數據調用。然后通過VBA 循環每個省，繪制出中國地圖。

作者：源理-Office中國

操作步驟：

    1、通過CAD、或是畫圖軟件導出或是網上下載。把每個省的形狀的坐標下載下來。

    如圖：

    2、寫VBA代碼：

    Sub 建立地圖()

        Dim i, j As Integer

        Dim sha As Shape

        i = 1

        Dim a As FreeformBuilder

        For Each cel1 In Range("B2:B" & Range("B65536").End(xlUp).Row + 1)

            If cel1 = "" Then

                ReDim p(cel1.Row - i - 1)

                    Set a = Sheet1.Shapes.BuildFreeform(msoSegmentCurve, Range("B" & i).Offset(1, 0), Range("B" & i).Offset(1, 1))

                    For Each cel2 In Range("B" & i + 2 & ":B" & cel1.Row - 1)

                       a.AddNodes msoSegmentCurve, msoEditingSmooth, cel2, cel2.Offset(0, 1)

                    Next

                i = cel1.Row

                Set sha = a.ConvertToShape

                sha.Name = cel1.Offset(-1, -1)

                Set a = Nothing

            End If

        Next

    End Sub

    到這里完成了。效果如圖