excel - VBA 代码帮助 - 按钮更改措辞和颜色

Question

我想在 excel 中创建一个“按钮”并希望分配 VBA 或宏代码。

我希望最初的按钮颜色为“未选中”，单击时应显示“已选中”并将颜色更改为绿色（从红色或酒红色）

再次点击后，它应该回到未选中状态，颜色应该是酒红色

有人可以帮忙吗。

感谢期待

亲切的问候，

叠氮化物

标签： excel

Answer 1

Sub Button1_Click() 
    Dim Sh As Shape
    Dim innerText As String
    Set Sh = ActiveSheet.Shapes(Application.Caller)
    innerText = Sh.TextFrame2.TextRange.TrimText.text
    
    If (StrComp(innerText, "Unchecked", vbTextCompare) = 0) Then
        Sh.Fill.ForeColor.RGB = RGB(255, 200, 255)
        Sh.Fill.Transparency = 0
        
        Sh.TextFrame2.TextRange.text = "Checked"
    ElseIf (StrComp(innerText, "Checked", vbTextCompare) = 0) Then
        Sh.Fill.ForeColor.RGB = RGB(200, 255, 255)
        Sh.Fill.Transparency = 0
        Sh.TextFrame2.TextRange.text = "Unchecked"
    End If
End Sub