1. 程式人生 > >excel2010製作中國資料地圖

excel2010製作中國資料地圖

前兩天,一同事問我如何用excel做資料地圖,當時我是完全不知怎麼下手,然後上網跟著教程學習,做出了自己的一個地圖模板。

第一步:從網上下載高清的地圖(可以是中國地圖,也可以是省市地圖)。但是這張地圖必須滿足下面兩個要求:

(1)地圖的邊界要清晰

(2)svg格式的圖(Scalable Vector Graphics)。可以從網站:Wikimedia Commons 上搜索到。但是下載的時候要選擇,這樣下載的圖片是最清晰的。

第二步:下載並安裝免費開源的軟體:Inkscape,用這個軟體開啟svg的圖片。然後另存為增強圖元型檔案(emf)格式的。

第三步:將圖片插入到excel的一個工作表中。並選中該圖片後,右擊選單中選擇“取消組合”命令,圖片就都分離開了。

 第四步:選中每個省的版塊後,定義名稱。簡單的方法:滑鼠點選選一個省,在左上角公式旁邊的文字框裡輸入省的名字,如下圖:

第五步: 在excel裡新建一個工作表,按照下圖來設計資料版面、定義名稱,還有編輯的兩個公式如下圖2:

漸變顏色可以自己選擇,目前這個例子是從0到5六種類別(顏色),根據你的研究需要隨便改多少種都可以,唯一注意的就是命名的區域要跟著變。

第六步:在工作表中加個按鈕,然後把下面這段程式碼複製進去:

Private Sub 開始填充_Click()
 For i = 2 To 32
    Range("ActReg1").Value = Range("sheet2!A" & i).Value
    ActiveSheet.Shapes(Range("ActReg1").Value).Select
    Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("ActRegCode1").Value).Interior.Color
  '  Selection.ShapeRange.Fill.Patterned Range(Range("ActRegCode").Value).Interior.Pattern
    
    Next i
    Range("s11").Select
End Sub

 

補充說明:其中sheet2是工作表的名字,A指的是省份名字所在的列(見上面那張截圖)。根據自己的需要可以改成你喜歡的名字或位置。

第七步:將分離的圖片的圖片畫布跟各個圖片物件分開,然後複製該地圖。並且貼上到合適位置後,將貼上型別選擇為“連結圖片”,圖例也可以類似的做法。那麼點選按鈕就可以了!

地圖還可以是各個省或市的,大家可以直接做一個屬於自己資料的地圖了。