こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

-広告-

解決済みの質問

Excelで特定の図形だけ透明化したい

Excelで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

投稿日時 - 2015-06-30 15:23:42

QNo.9003587

暇なときに回答ください

質問者が選んだベストアンサー

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

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

投稿日時 - 2015-06-30 16:57:00

お礼

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

投稿日時 - 2015-06-30 17:21:40

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(1)

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-