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

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

No.1 ベストアンサー 回答者： DreamyCat 回答日時： 2010/01/10 19:50

透過性は０～１の値で指定します。

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」の部分を変えることで おもっていたとおりにできました。感激です。これからもどうかよろしくお願いいたします。ほんとうにありがとうございました。

お礼日時：2010/01/10 20:17