可以修改Excel 2007表单切换按钮抑制效果吗？

Question

我希望能够为其＆＃34; Up＆＃34;配置不同图片的Excel 2007表单切换按钮（非ActiveX）。国家和它的＆＃34;郁闷＆＃34;州。我也想摆脱按下切换按钮时发生的丑陋的屏幕效果。我知道如何将图片复制并粘贴到切换按钮的Picture属性中，我知道如何将图片文件从磁盘加载到Picture属性中。我不知道表单切换按钮是否支持其两种状态中的每一种的单独图片。我能说流利的VBA。我希望能够在＆＃34; Up＆＃34;中控制图片的显示。和＃34;郁闷＆＃34;陈述并没有＆＃34;郁闷＆＃34;国家图片放映。

这可能吗？

Answer 1

为什么不使用带有图片的切换按钮，为什么不使用图片并将属性 SpecialEffect 设置为 0 - fmSpecialEffectRaised 以进行抑制，并且 fmSpecialEffectSunken 用于启动状态？

使用_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