使用表格滚动条来控制Excel VBA中的图像透明度
我正在努力使窗体滚动条来控制图像的透明度。 具体来说，我有两个图像，我连接到两个button。 隐藏/显示button，我想要滚动条来控制图像的透明度，如下图所示。 你的帮助将不胜感激。 我无法把头包起来编码。
这是一个低科技的方法。
1）创build一个矩形，并填写你的照片。 这不需要任何VBA。
2）插入滚动条，并使用属性将滚动条链接到滚动条值默认值为0-100的单元格。 例如，在下面的图片中我将它链接到J20 ：
然后，在一个标准的代码模块中加上：
Sub SetTransparency() Sheets(1).Shapes("Rectangle 1").Fill.Transparency = Sheets(1).Range("J20") / 100 End Sub
（当然，像Sheets（1），“Rectangle 1”和“J20”）可以根据您的情况进行调整）
然后，您只需右键单击控件，然后select“ Assign Macro以将此macros指定给您的控件。 它可以用来像：
可能不幸（取决于你的愿望）透明度不会随着你的滚动而不断变化。 AKAIK，你需要使用Active-X控件。