Excel 2007 表单切换按钮按下效果可以修改吗？答案

【问题标题】：Can Excel 2007 Forms Toggle Button Depressed Effect Be Modified?Excel 2007 表单切换按钮按下效果可以修改吗？
【发布时间】：2015-10-01 13:54:08
【问题描述】：

我希望能够为 Excel 2007 表单切换按钮（不是 ActiveX）配置其“向上”状态和“按下”状态的不同图片。我还想摆脱按下切换按钮时出现的丑陋筛选效果。我知道如何将图片复制并粘贴到切换按钮的图片属性中，并且我知道如何将图片文件从磁盘加载到图片属性中。我不知道表单切换按钮是否支持其两种状态中的每一种的单独图片。我精通VBA。我希望能够控制“向上”和“沮丧”状态下的图片显示，而不是筛选“沮丧”状态图片。

这可能吗？

【问题讨论】：

感谢收看这个。我已更正标题以反映表单控件。

标签： vba excel

【解决方案1】：

为什么不使用带有图像的切换按钮，为什么不使用图片并将属性 SpecialEffect 设置为 0 - fmSpecialEffectRaised 表示沮丧，以及 @987654328 @ 表示向上状态？

使用_Click() 代码更改SpecialEffect 状态和要使用的图片。

想法就在那里，如果您在代码中遇到问题，请告诉我们，然后发布新问题。

我玩得很开心，这里是截图和代码。

用户窗体是这样的初始，单击一次，再次单击：

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

【讨论】：

感谢帕特里克抽出宝贵时间发布此消息！我认为您正在做一些可以完美运行的事情。今天早上我会试一试，然后回来报告。
效果很好，帕特里克！我能够使用我在 Illustrator 中创建的图形创建一个完美运行且看起来很现代的切换按钮。过去两天我一直在寻找 Excel 2007 控件过时外观的解决方案，而您的解决方案使我能够为切换按钮做到这一点。