问与答108：如何实现根据单元格中的值来改变形状的透明度？

excelperfect

Q：我想要工作表中的形状通过一个单元格中的值来改变其透明度，该单元格与另一个单元格链接，当另一个单元格中的值变化时，该单元格中的值相应变化，然后工作表中形状的透明度也随着改变。

例如下图1所示，当更改单元格A1中的值时，单元格A2中的值自动变化，工作表中的圆形和矩形的透明度也随着变化。

图1

这如何做到？

A：很简单的一段代码。

在形状所在的工作表代码模块中，输入下面的代码：

Private Sub Worksheet_Calculate()

Dim sh AsShape

Dim myCell As Range

Set myCell = Me.Range('A2')

'临时关闭屏幕刷新.

Application.ScreenUpdating = False

'遍历工作表中的形状

For Each sh In Me.Shapes

sh.Fill.Transparency = myCell.Value

Next sh

'开启屏幕刷新.

Application.ScreenUpdating = True

End Sub

此时，当改变单元格A1中中的值时，可以看到工作表中形状的透明度随之改变。