マクロで図の透過性を増す記述は？

質問

Ｅｘｃｅｌ画面に図を作成して、徐々に透過性を増すようにしたいのですが、マクロでどう記述すればいいのでしょうか。また 写真を貼り付けて同じことができますか？

回答No.1

DreamyCat · ベストアンサー

透過性は０～１の値で指定します。
Beepで雑音を出しながら
いくぶん時間をかけていますが
APIのSleepなんかを使うのが適切でしょう。
Dim i As Single
For i = 0 To 1 Step 0.01
Sheets("Sheet1").Shapes("円/楕円 1").Fill.Transparency = i
Beep
DoEvents
Next

お礼

ありがとうございました。「Ｓｔｅｐ0.01」の部分を変えることで おもっていたとおりにできました。感激です。これからもどうかよろしくお願いいたします。ほんとうにありがとうございました。