使用表单滚动条控制Excel VBA中的图像透明度

Question

我正在努力制作表单滚动条来控制图像透明度。具体来说，我有两个图像，我链接到两个按钮。隐藏/显示按钮，我希望滚动条控制图像透明度，如下图所示。非常感谢您的帮助。我无法绕过头来编码。

Answer 1

这是一种低技术方法。

1）创建一个矩形并用你的图片填充它。这并不需要任何VBA。

2）插入滚动条，然后使用属性将滚动条链接到具有默认0-100范围滚动条值的单元格。例如，在下面的图片中，我将其链接到J20：

然后，在标准代码模块中放置：

Sub SetTransparency()
    Sheets(1).Shapes("Rectangle 1").Fill.Transparency = Sheets(1).Range("J20") / 100
End Sub

（当然包括Sheets（1），＆＃34; Rectangle 1＆＃34;＆＃34; J20＆＃34;可根据您的情况进行调整）

然后 - 您只需右键单击控件并选择Assign Macro即可将此宏指定给您的控件。它可以像：

一样使用

可能不幸的是（根据您的愿望）滚动时透明度不会持续变化。 AKAIK，你需要使用Active-X控件。