Vba 是否可以修改Excel 2007表单切换按钮的按下效果？

我想能够配置一个Excel2007Forms切换按钮（不是ActiveX），它的“向上”状态和“按下”状态有不同的图片。我还想消除按下切换按钮时出现的丑陋的屏幕效果。我知道如何将图片复制并粘贴到切换按钮的picture属性中，我知道如何将图片文件从磁盘加载到picture属性中。我不知道forms toggle按钮是否支持两种状态中的每种状态的单独图片。我精通VBA。我希望能够在“向上”和“向下”状态下控制图片的显示，而不是在“向下”状态下屏蔽图片

---

这是可能的吗？

与其使用带有图像的切换按钮，为什么不只使用图片并将属性SpecialFect设置为

0-FmSpecialEffectRised

设置为按下状态，而

fmSpecialEffectSunken

设置为打开状态

使用

\u Click（）

代码更改特殊效果状态和要使用的图片

想法就在这里，如果您在代码方面有问题，请告诉我们，然后发布新问题。

---

我玩得很开心，下面是截图和代码

用户表单的首字母是这样的，单击一次，再单击一次：

---

谢谢你抓到这个。我已更正标题以反映窗体控件。感谢Patrick花时间发布此消息！我想你已经找到了一个完美的方法。今天早上我会试一试，然后回来汇报。这很有效，帕特里克！我能够使用Illustrator中创建的图形创建一个切换按钮，该按钮工作完美，看起来很现代。在过去的两天里，我一直在寻找一种解决方案，以解决Excel 2007控件外观过时的问题，您的解决方案使我能够通过切换按钮实现这一点。

Option Explicit

Private Sub Image1_Click()
    Const sImgPressed = "C:\Test\ubuntu.gif"
    Const sImgDePressed = "C:\Test\motorola.gif"

    With Image1
        Select Case .SpecialEffect
            Case fmSpecialEffectRaised
                .SpecialEffect = fmSpecialEffectSunken
                .Picture = LoadPicture(sImgPressed)
                Me.TextBox1.Value = "Image is pressed"
            Case fmSpecialEffectSunken
                .SpecialEffect = fmSpecialEffectRaised
                .Picture = LoadPicture(sImgDePressed)
                Me.TextBox1.Value = "Image is Depressed"
        End Select
    End With
End Sub