-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
How to fade out or make and image opaque
- Thread starter samco
- Start date
erik.van.geit
MrExcel MVP
- Joined
- Feb 1, 2003
- Messages
- 17,832
Hello, samco!
see the result of this macro
can you spell out the conditions and what shape you would like to use ?
(advise to stick to the inbuilt shapes if possible)
kind regards,
Erik
EDIT: removed one line Dim heart As Object
see the result of this macro
can you spell out the conditions and what shape you would like to use ?
(advise to stick to the inbuilt shapes if possible)
Code:
Option Explicit
Sub heart_disappears()
'Erik Van Geit
'050916 0152
Dim I As Integer
Dim delay As Double
Dim starttime As Double
ActiveSheet.Shapes.AddShape(msoShapeHeart, 136, 43, 156.75, 149.25).Name = "heart"
With ActiveSheet.Shapes("heart")
.Fill.ForeColor.SchemeColor = 2
For I = 1 To 100
.Fill.Transparency = I / 100
delay = 0.1
starttime = Timer
Do
DoEvents
Loop While Timer - starttime < delay
Next I
.Delete
End With
End Subkind regards,
Erik
EDIT: removed one line Dim heart As Object
Upvote
0
erik.van.geit
MrExcel MVP
- Joined
- Feb 1, 2003
- Messages
- 17,832
Thanks for your nice comments 
here some stuff in same "style"
the UFO is rather good to use as a gag
here some stuff in same "style"
the UFO is rather good to use as a gag
Upvote
0
Similar threads
- Question
