雖然利用GPS畫海拔里程圖已經不是啥新鮮事,但如果是在沒有前人提供GPS資料、自己又根本還沒出發的情況下,究竟有沒有辦法自己「製造」出來呢?
根據我自己的實際經驗,即使目前網路上已有不少神奇的電子地圖工具,可惜對於一些偏遠地區仍有侷限。例如,明明繞過雲南四川交界的瀘沽湖一周,電子地圖上卻怎麼也找不出那條環湖道路。更令人洩氣的,衛星地圖也不足以清晰到可以標示出那些小土路。
既然如此,只好回到最原始的土法來做囉!雖然有點小累,但這個事前作業絕對值得,它將使我們單車旅行的路線與時間規劃更能符合實際需求,或至少讓人有足夠的心理準備,哈...
首先,我們必須準備以下幾個工具:
Google Earth中文版
Excel(本例使用2003版)
如果有張附公路里程的地圖更佳(試著向Google大神尋求吧)
STEP.1為自己規劃的路現找出地圖上的參考點
通常以村鎮或景點,也就是地圖上有標示的地名,將之列出。
STEP.2以google earth找出每一個參考點的海拔高度
*在左上角輸入地名,資訊越詳細越好,以免地圖無法判斷你想要找的是哪一個國家、哪一省、哪一鄉鎮。
*注意最下方的「地形」選項為「選取」狀態。
*將滑鼠移到地圖標示的地點,便可在視窗最下方看到海拔高度資訊。(注意,非視角海拔高度)
STEP.3建立Excel資料表
將地名、里程、海拔資料輸入如下表:
*建議A欄的地名後附加海拔數據(中間避免輸入任何特殊符號),好讓最後製作出來的海拔里程圖更便於閱讀。
*里程數據需為累計值。例如A-B距離為50Km,B-C距離為40Km,則對應到C的里程數應填入A-C的總距離,也就是90Km。
STEP.4建立圖表
選擇「插入/圖表」
STEP.5選擇圖表類型
選擇「XY散佈圖」以及其最終呈現的類型。按下一步。
STEP.6指定資料範圍
確定數據資料取自「欄」,按下「資料範圍」右邊按鈕,跳回資料表。
STEP.7選定資料範圍
用滑鼠左鍵選取所有里程與海拔的數值資料(不含標題欄),之後再按一下圖表精靈的浮動視窗按鍵,回到圖表精靈,並按「下一步」。
STEP.8輸入XY軸數值
X軸請輸入「里程(Km)」,Y軸請輸入「海拔(M)」。
STEP.9取消圖例
選擇「圖例」索引標籤,取消「顯示圖例」選項,以獲得最大畫面空間。
之後請按「下一步」。
STEP.10決定產生圖表方式
請選擇「新的工作表」,按「完成」。
STEP.11生成海拔里程圖
*這時的海拔里程圖還很陽春,看不出每個點所代表的地方。
STEP.12
按 ALT+F11 啟動 Visual Basic 編輯器。
在 [插入] 功能表上,按一下 [模組]。
STEP.13
在模組工作表中輸入下列範例程式碼(請複製橘色文字部分,再貼至編輯器即可):
Sub AttachLabelsToPoints()
'Dimension variables.
Dim Counter As Integer, ChartName As String, xVals As String
' Disable screen updating while the subroutine is run.
Application.ScreenUpdating = False
'Store the formula for the first series in "xVals".
xVals = ActiveChart.SeriesCollection(1).Formula
'Extract the range for the data from xVals.
xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
Do While Left(xVals, 1) = ","
xVals = Mid(xVals, 2)
Loop
'Attach a label to each data point in the chart.
For Counter = 1 To Range(xVals).Cells.Count
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
True
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
Next Counter
End Sub
註:以上程式來自microsoft網站。
按 ALT+Q 返回 Excel。
切換至圖表。
STEP.14
指向 [工具] 功能表上的 [巨集],然後按一下 [巨集]。
STEP.15
按一下 [AttachLabelsToPoints],然後按一下 [執行] 以執行該巨集。
STEP.16
含海拔高度的地名標籤已被附加在原來的海拔里程圖上,不過有些距離較近的標記很顯然擠成一堆,判讀不易。
STEP.17
選取任何重疊的標記,並按住滑鼠左鍵不放調整其位置。
其他想要修改的區域,如底色、字型等,皆可雙擊滑鼠左鍵調整設定選項。
STEP.18大功告成!! YA~
P.S.如果還希望在點與點間標示里程,則利用繪圖工具直接在需要的地方加上文字框即可。