如何在Excel中反复使形状闪烁或闪烁？

网友投稿 231 2024-01-05

如何在Excel中反复使形状闪烁或闪烁？

如果要使形状在工作表中反复闪烁，本文中的方法可以为您提供帮助。

用VBA代码反复闪烁形状

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

在工作表中，要使形状闪烁，请执行以下操作。

1。按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块。然后将VBA代码复制并粘贴到“代码”窗口中。

VBA代码：使形状在工作表中反复闪烁

Dim NextTime As Date Dim xColor As Long Sub Flash() NextTime = Now + TimeValue("00:00:01") With ActiveSheet.Shapes("new").Fill.ForeColor If xColor = 0 Then xColor = .SchemeColor End If .SchemeColor = Int(Rnd() * 55 + 1) End With Application.OnTime NextTime, "Flash" End Sub Sub StopIt() Application.OnTime NextTime, "Flash", schedule:=False ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor xColor = 0 End Sub

Copy

1）。在代码中新是形状的名称，您将使其闪烁。请更改为您自己的。

2）。 00：00：01 表示形状将每秒闪烁一次。

3。按其他 + Q 键一起退出 Microsoft Visual Basic应用程序 窗口。

4.通过单击将一个按钮插入工作表 开发商 > 插页 > 按钮（表单控件） 如下图所示。

5.在弹出 分配宏 对话框中选择 Flash ，在宏名框，然后单击 OK 按钮。

6.然后根据需要更改按钮上的显示文本。在这种情况下，我将显示文本更改为“开始闪烁”，如下图所示。

7.重复上述步骤4和5，插入新按钮并分配 停下来 此按钮的宏。

8.更改此新按钮的显示文本。

然后，您会看到两个分配了不同宏的按钮被插入到工作表中。看截图：

从现在开始，单击“开始闪烁”按钮时，形状开始以不同颜色闪烁。如果要停止闪光，请单击停止闪烁按钮。

相关文章：如何在Excel中闪烁或闪烁指定单元格的文本？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！