大方县 PPT 地图使用技巧：40 个乡镇的批量管理画法

这张地图有多"重"

贵州毕节大方县，下辖 40 个乡镇街道，民族乡占了 18 个——竹园彝族苗族乡、响水白族彝族仡佬族乡。做成可编辑的 PPT 矢量地图，就是 40 块独立形状。

形状一多，麻烦不在填色，在管理：找个乡镇要翻半天、标签顺序乱掉、两块形状叠着分不清。40 个单元，得有一套顺手的办法。

第一步：给 40 块形状建台账

用 Alt+F10 打开选择窗格

打开模板别急着改色，先把形状名改成能看懂的。默认名"任意多边形 37"这类，40 块里找黄泥塘镇等于大海捞针。

开始选项卡 → 编辑组 → 选择 → 选择窗格
（Alt+F10，PPT/WPS 通用）

双击形状名即可改名。加前缀分组：街道用 "JF-顺德街道"，镇用 "Z-黄泥塘镇"，民族乡统一加 "MZ-"。排序后同组挨在一起，批量操作 Shift 一拉就能整段选中。

40 个名字别逐个敲，让宏跑

Alt+F11 打开 VBA 编辑器，插入模块贴入：

Sub 批量重命名()
    Dim shp As Shape, i As Long
    Dim names As Variant
    names = Array("顺德街道", "双山镇", "黄泥塘镇") ' 按形状顺序补全 40 个名称
    For Each shp In Selection.ShapeRange
        shp.Name = names(i): i = i + 1
    Next
End Sub

框选全部地图形状（Ctrl+A 后 Shift 点掉标题装饰），跑宏，几秒钟全部有名字。WPS 个人版不支持宏，在 PowerPoint 里改好存回，WPS 打开名字还在。

长名字怎么排：分档加外挂

民族乡的名称动辄十来个字，"响水白族彝族仡佬族乡"塞一行，要么字号缩到 8pt 看不清，要么戳进隔壁县。两个办法搭配：

• 核对留全称，展示用短名，图例里注明对应关系。Excel 对乡这一列批量生成：=LEFT(A2,2)&"乡"

• 城区 6 个街道挤在一起，标签用短引线外挂到形状外侧，画法在琼山区标签技巧里展开过。

批量操作，三个动作

1. 框选减选：拖大框圈住整张地图，Shift 点掉标题图例装饰，剩下就是纯地图组；
2. 成组记得解散：整体挪位先 Ctrl+G，做完 Ctrl+Shift+G 解散，否则单块填色点不进去；
3. 对齐面板别乱点：不规则行政区点"横向分布"整张图会拉散，对齐只用在图例卡片上。

填色前先把乡镇按数值排序，从最深色档开始填，比逐块翻找快。完整改色流程在这篇旧文里写过，不重复。

收尾自查：数形状

汇报前最怕漏画。Alt+F10 看形状总数，减掉标题图例装饰应正好 40；再按 Tab 逐块跳选，缺哪块、哪块叠住，一圈看明白。

大方县 40 块形状的模板已经拆好，到产品页即可下载：毕节市大方县 PPT 地图模板。其他地区在 mapppt.cn 按省市检索，更多实战经验见博客首页。