Ｅｘｃｅｌ画面に張り付けた写真を徐々に透明にしたい

質問

Ｅｘｃｅｌ画面に張り付けた写真をマクロを使って徐々に透明にしたいのですが・・・。
「ActiveSheet.Shapes("写真名").Select」以下のマクロの記述を具体的におしえてください。

回答No.1

neKo_quatre · ベストアンサー

121ware.com > サービス＆サポート > Q&A > Q&A番号 013871
http://121ware.com/qasearch/1007/app/servlet/relatedqa?QID=013871

この方法で貼り付けた図形なら、

Sub 図形透明化()
　Dim sh As Shape
　Dim tr As Double
　For Each sh In ActiveSheet.Shapes
　　tr = sh.Fill.Transparency
　　tr = tr + 0.1
　　If 1# <= tr Then tr = 1#
　　sh.Fill.Transparency = tr
　Next
End Sub

とか。

自分の手元のExcel2010だと、なぜかフツーにコピー＆ペーストで貼り付けた画像ではそもそも透過率が反映されません。
そういう仕様だっけ？

お礼

Ｆｏｒ Ｎ =1 to 10　Ｎｅｘｔ　を追加したら　フェードが効いてよりスムーズに透明化しました。
大成功！　ありがとうございました。