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

eric_889 · 发表于 2024-7-5 11:12

本帖最后由 eric_889 于 2024-7-5 13:57 编辑

哪位VBA大神能帮我把地图各省的面积变色吗？选择哪个省？哪个省的面积就变颜色。

只能用VBA做，所以求助老师们帮我，非常感谢！！！
如截图那样：

地图.zip (438.35 KB, 下载次数: 12)

jiangxiaoyun · 发表于 2024-7-5 11:38

用application.caller

eric_889 · 发表于 2024-7-5 11:42

jiangxiaoyun 发表于 2024-7-5 11:38
用application.caller

看了一下，还是不会，

我是龙五 · 发表于 2024-7-5 12:40

拿着我的视频截图来这里问了

eric_889 · 发表于 2024-7-5 13:37

我是龙五发表于 2024-7-5 12:40
拿着我的视频截图来这里问了

我是在网上看到了这样一张图，没有看到什么视频？如果是您的杰作，不妨指导一下啊，感谢！

micch · 发表于 2024-7-5 17:21

面积变色不是用图表做的，是用的形状，每个省单独一个形状

micch · 发表于 2024-7-5 17:23

搜一下版主的主题帖，有分享过地图的制作，用代码实现的。

代码简单，手工的部分反而很多，找地图，然后名字都对照好，然后才能写代码

eric_889 · 发表于 2024-7-6 13:20

micch 发表于 2024-7-5 17:23
搜一下版主的主题帖，有分享过地图的制作，用代码实现的。

代码简单，手工的部分反而很多，找地图，然后 ...

Hi micch,我上传了一个各省拼接的地图，在文档里，麻烦辛苦一下，感谢！

地图.rar (514.38 KB, 下载次数: 22)

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

eric_889 发表于 2024-7-6 13:20
Hi micch,我上传了一个各省拼接的地图，在文档里，麻烦辛苦一下，感谢！

Sub Main()
Reset
x = Application.Caller
Sheet1.Shapes(x).Fill.ForeColor.RGB = vbRed
End Sub
Sub Reset()
With Sheet1
For Each x In .Shapes
If x.Type = 5 Then x.Fill.ForeColor.RGB = &HEEEEEE
Next
End With
End Sub

复制代码

木槿花西月锦绣 · 发表于 2024-7-6 18:02

想要把带文字的矩形都设置成无填充
为啥代码没有作用？

Sub 宏7()
On Error Resume Next
For i = 1 To 100
ActiveSheet.Shapes.Range(Array("Rectangle " & i)).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Next
End Sub

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

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

评分