批量画图填色，再批量换色

xing_chen · 发表于 2023-7-1 21:15

老师！能否用VBA批量画图形且填色，再批量将原填色换色：如图：

敬请老师赐教！谢谢！

约定的童话 · 发表于 2023-7-1 21:41

录制个宏，再改下加循环

xing_chen · 发表于 2023-7-1 21:51

约定的童话发表于 2023-7-1 21:41
录制个宏，再改下加循环

谢谢！老师，录制宏，图形的位置、填色、去色。1个可以，但多个，我就无法操作了

micch · 发表于 2023-7-1 23:48

画一个，复制需要的数量。 for i = 1 to n : sheet1.paste :next

taller · 发表于 2023-7-2 06:20

xing_chen · 发表于 2023-7-2 11:22

micch 发表于 2023-7-1 23:48
画一个，复制需要的数量。 for i = 1 to n : sheet1.paste :next

谢谢老师！为什么提示要求对象

xing_chen · 发表于 2023-7-2 11:23

taller 发表于 2023-7-2 06:20

谢谢老师！为什么提示要求对象

taller · 发表于 2023-7-2 12:47

xing_chen 发表于 2023-7-2 11:23
谢谢老师！为什么提示要求对象

你的文件？你的代码？

micch · 发表于 2023-7-2 12:48

本帖最后由 micch 于 2023-7-2 14:56 编辑

xing_chen 发表于 2023-7-2 11:22
谢谢老师！为什么提示要求对象

你这是需要写一个完整的啊，我只是写了思路不全。

sub test
set myshape = sheet1.shapes(1)
myshape.copy
with sheet1
for i = 1 to 9
.paste
next
end with
end sub

画好一个复制9个。
如果是已经都画好要改颜色，用5楼版主的代码

micch · 发表于 2023-7-2 13:24

一次性描述一下吧，你这东问一下西问一下，也不发写代码，是无法判断你的报错原因是什么。

不知道你具体使用情境是做什么。假设你有多个按钮，并且每个按钮都对应执行宏。你又需要知道当前点击执行的是那个按钮。

常规做法，先手工做一个按钮，然后复制需要的数量，然后排列一下。

然后给按钮指定宏。

执行宏的时候希望按钮颜色能变一下，这样就知道执行的是哪个，那么执行宏肯定要调用一个改变颜色的宏。至于执行完你要不要恢复原来颜色，一般来说，如果执行完就恢复颜色，那么颜色变化的过程是看不到的。所以常规的做法是，在执行某个按钮的时候对上一个执行过变色的按钮进行复原颜色的操作。

整体流程大概是这样。批量改颜色，不过就是改颜色套个循环。从写代码方便维护的角度，你应该写个改变形状样色的过程来调用。从我的习惯，会设定一个public变量来记录点击了哪个按钮

代码怎么写可以自己琢磨琢磨

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

[求助] 批量画图填色，再批量换色

评分

评分