基于地圖選擇的Excel動(dòng)態(tài)圖表(修正)

1、作圖思路：地圖由一個(gè)個(gè)自選圖形繪制而成，讀者點(diǎn)擊某個(gè)地區(qū)的圖形，會(huì)觸發(fā)一個(gè)宏過(guò)程，這個(gè)宏會(huì)記錄下用戶選擇的地區(qū)名，并修改圖形的填充效果。動(dòng)態(tài)圖表模型則會(huì)根據(jù)宏所記錄的地區(qū)名變換圖表的數(shù)據(jù)，產(chǎn)生動(dòng)態(tài)交互的效果。(地圖圖形的準(zhǔn)備： 首先，在網(wǎng)上找到一個(gè)矢量格式的地圖文件。所謂矢量格式，是使用直線和曲線來(lái)描述圖形，這些圖形的元素是一些點(diǎn)、線、矩形、多邊形、圓和弧線等等，其文件后綴名一般為.WMF、.AI、.EPS、.CDR等。Excel可以讀取.WMF格式的文件，其他格式的一般需要專門(mén)的軟件打開(kāi)。導(dǎo)入Excel后，該地圖可以打散為一個(gè)個(gè)的自選圖形(右鍵-取消組合)，每個(gè)自選圖形對(duì)應(yīng)一個(gè)區(qū)域。選中自選

2、圖形，在左上角名稱框?yàn)樽赃x圖形命名，然后回車) 或者用自由曲線繪制自選圖形圖1 基于地圖選擇的動(dòng)態(tài)圖表模型。單擊菜單“工具宏Visual Basic編輯器”（或Alt+F11鍵）， 用戶選擇后調(diào)用的公共宏過(guò)程。在左側(cè)窗口中選擇ThisWorkbook，在右側(cè)窗口中輸入如下代碼： -Sub user_click()'1、取A1單元格值，將上次選擇的地圖版塊填充黃色，即還原填充色ActiveSheet.Shapes(Range("A1").Value).Fill.ForeColor.SchemeColor = 58'2、將當(dāng)前選擇的地圖版塊名稱填值到A1Rang

3、e("A1").Value =ActiveSheet.Shapes(Application.Caller).Name'3、將當(dāng)前選擇的地圖版塊填充紅色ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.SchemeColor = 14End Sub-以湖北省為例，選中湖北的圖形，鼠標(biāo)右鍵指定宏 在宏名輸入框中輸入如下代碼：'thisworkbook.user_click按同樣方法，為其他省的圖形一一添加宏代碼。熟悉VBA的讀者可使用如下宏代碼批量添加：-Sub auto_add_macro()'

4、新建一個(gè)模型時(shí)手動(dòng)運(yùn)行，一次性添加宏'5表示對(duì)象類型是地圖版塊If ActiveSheet.Shapes(i).Type = 5 ThenActiveSheet.Shapes(i).OnAction ="'thisworkbook.user_click'"End IfNextEnd Sub-現(xiàn)在可以測(cè)試選擇器了。測(cè)試之前，先手動(dòng)為單元格A1初始化一個(gè)值，如“hubei”。然后，用鼠標(biāo)逐一點(diǎn)擊各省的圖形，你會(huì)發(fā)現(xiàn)選擇的結(jié)果會(huì)以拼音名反映在單元格A1中，圖形的顏色也會(huì)跟隨變化。至此，一個(gè)地圖形式的選擇器已經(jīng)完成。假設(shè)各省的數(shù)據(jù)存放在工作表data1中，其中A列為省名的拼音名，B列為省名，CN列為各省112月的指標(biāo)數(shù)據(jù)，如圖5 所示。圖5 動(dòng)態(tài)圖表的數(shù)據(jù)組織。單元格A2引用工作表dashboard中A1的值，即當(dāng)前選中的省名。單元格B2:N2均為公式引用，使用Vlookup函數(shù)從數(shù)據(jù)表格中查找返回當(dāng)前選中省的對(duì)應(yīng)數(shù)據(jù)。以單元格C2為例，其公式為： =VLOOKUP($A$2,$A$5:$N$36,COLUMN(C5),0)。在工作表data1中以B2:N2為數(shù)據(jù)源制作圖表，格式化至你喜歡的樣式，然后將其復(fù)