Ｅｘｃｅｌで特定の図形だけ透明化したい

質問

ＥｘｃｅｌでSheet上に図形を表示し、下記マクロを実行すると徐々に透明化しますが、
複数の図形を表示し実行するとすべてが透明化されます。特定の図形だけを透明化する方法ありますか

For N = 1 To 200
Dim sh As Shape
Dim tr As Double
For Each sh In ActiveSheet.Shapes
tr = sh.Fill.Transparency
tr = tr + 0.0061
If 1 <= tr Then tr = 1
sh.Fill.Transparency = tr
Next
Range("a1").Select
Next
End Sub

回答No.1

misatoanna · ベストアンサー

透過する図形をどのように特定するのかわまりませんので、ご提示されたマクロ記述をベースに、選択されている図形(複数可)のみを透過するようにしてみました。

Sub Test()
　Dim sh As Shape, tr As Double, N As Long
　With Selection
　　For N = 1 To 200
　　　tr = .ShapeRange.Fill.Transparency
　　　tr = tr + 0.0061
　　　If 1 <= tr Then tr = 1
　　　.ShapeRange.Fill.Transparency = tr
　　　DoEvents
　　Next
　End With
　Range("a1").Select
End Sub

お礼

ありがとうございました。とてもうまくできました。感謝　感謝