单击时标签改变颜色

我有一个 VBA/Excel，用户单击标签（Active X - 文本标签）来执行一些操作。标签属性为 BackStyle 透明，但当用户单击时，标签保持不透明，如白色或设置 BackColor 属性的任何内容。

当用户点击标签时如何保持透明？

不要为此使用 ActiveX 控件。任何Shape可以分配给宏，所以不用ClickActiveX 标签的事件处理程序如下所示：

Private Sub Label2_Click()
    'do stuff
End Sub

公开处理程序，给它们一个有意义的名称：

Public Sub BuscaPorPalavraChave()
    'do stuff
End Sub

将标签替换为TextBox形状 - 使形状填充和边框透明，右键单击形状，然后选择“指定宏” - 然后选择BuscaPorPalavraChavre. Done!

冲洗并重复对于每个标签。我知道，很痛苦——但值得！

顺便说一句，导航 UI 看起来非常好 =)