ActiveXコントロールのScrollBarを挿入し、スクロールバーの値に応じて図形を透過させる
ShapeのFill.Transparencyプロパティを使用し、0.0~1.0の値を設定し透過を調整
ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ
実際に使用したサンプルコード
Option Explicit
Private Sub ScrollBar1_Change()
ActiveSheet.Shapes("ロボ太").Fill.Transparency = ScrollBar1.Value / 10
End Sub
simple
