Excel 2007窗体按钮下压效果可以修改吗？
Excel 2007窗体按钮下压效果可以修改吗？
提问于 2015-10-01 02:22:55
我希望能够配置一个Excel2007Forms切换按钮(而不是ActiveX)，为其“向上”状态和“抑郁”状态配置不同的图片。我也想摆脱丑陋的放映效果，发生时，按钮是按下。我知道如何将图片复制并粘贴到切换按钮的picture属性中，并且知道如何将图片文件从磁盘加载到Picture属性中。我不知道窗体切换按钮是否支持其两种状态中的每一种状态的单个图片。我的VBA很流利。我希望能够控制在“向上”和“抑郁”状态的图片显示，而不是让“抑郁”状态图片被屏蔽。
这个是可能的吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-10-01 05:33:49
与其使用带图像的切换按钮，不如直接使用图片，并将属性0 - fmSpecialEffectRaised SpecialEffect设置为SpecialEffect，并将属性SpecialEffect设置为up状态。
使用_Click()代码更改SpecialEffect状态和要使用的图片。
这个想法是存在的，如果你在代码方面有问题，请告诉我们，然后发布新的问题。
我玩得很开心，这是截图和代码。
userform类似于这个初始值，点击一次，再点击一次：
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/32878484
复制相关文章
相似问题
腾讯云开发者
