关于通过VBA让地图各省板块变色的问题

eric_889 · 发表于 2024-7-7 15:35

micch 发表于 2024-7-6 13:45

Micch,为什么我复制粘贴运行宏后不行呢？问题在哪里？感谢！

micch · 发表于 2024-7-7 16:49

eric_889 发表于 2024-7-7 15:35
Micch,为什么我复制粘贴运行宏后不行呢？问题在哪里？感谢！

每一个形状都指定宏Main

指定宏然后点击形状就会执行代码了

louiszoom · 发表于 2024-7-8 09:40

这个以前FLASH AS3很好做但AS3被弃用了

eric_889 · 发表于 2024-7-8 17:30

micch 发表于 2024-7-7 16:49
每一个形状都指定宏Main

指定宏然后点击形状就会执行代码了

Micch,我还是没有弄出来，主要是对VBA不会

micch · 发表于 2024-7-8 20:59

右键点新疆省，菜单中指定宏，选择main。
每个省都这么操作，也可以各个省都选中后右键一次性指定

eric_889 · 发表于 2024-7-9 08:21

micch 发表于 2024-7-8 20:59
右键点新疆省，菜单中指定宏，选择main。
每个省都这么操作，也可以各个省都选中后右键一次性指定

感谢！Micch

木槿花西月锦绣 · 发表于 2024-7-9 12:09

本帖最后由木槿花西月锦绣于 2024-7-9 12:10 编辑

micch 发表于 2024-7-8 20:59
右键点新疆省，菜单中指定宏，选择main。
每个省都这么操作，也可以各个省都选中后右键一次性指定

代码完美的避开了对于shape名称的引用，
不用找一对一的对应关系了

地图形状组合在一起，reset代码就不好使了
试了好几种方法都不好使，求教micch老师

eric_889 · 发表于 2024-7-9 14:54

micch 发表于 2024-7-8 20:59
右键点新疆省，菜单中指定宏，选择main。
每个省都这么操作，也可以各个省都选中后右键一次性指定

micch · 发表于 2024-7-9 14:57

木槿花西月锦绣发表于 2024-7-9 12:09
代码完美的避开了对于shape名称的引用，
不用找一对一的对应关系了

组合在一起，是作为整体存在的，就不能用 for each 循环了。可以用for i = 1 to count 这样循环，前提是要已知没个形状的名称，用名称去引用形状，进行处理

少年郎0 · 发表于 2024-7-9 16:21

之前看到论坛里有个代码，自己也试了下，除了点击地图变色，还能筛选整个数据。地图每个图形的名字最好包含省份名称，处理起来会简单点。

		自动登录	找回密码
密码			免费注册

[求助] 关于通过VBA让地图各省板块变色的问题