D
Doc
Good Evening Y'all,
My problem is trivial. I am submitting it with the hope of learning some
coding techniques.
I have a WordArt object on a worksheet. When the object is made visible,
its transparency is 0%. I keep it in view for 10 seconds and then would
like the background to appear to fade away with the text unchanged. The
problem is that the fading is not smooth. Each transparency change,
regardless of how much (in my case 10%), remains visible for approximately 1
second before changing again until the transparency is at 100% when I hide
the object.
Is there any way of changing my code to make the transparency changes smooth
? I suspect the 1 second delay is the time Excel requires to refresh the
WordArt object on the display. While on the subject, what is the code, if
any, to fade the text only and leave the background unchanged ? I could
only find code to change the font name, size, bold or italics.
The macro recorder did not even recognize selecting the WordArt object.
Google and Bing helped with the background transparency but not the text
transparency.
Here is my code snippet:
Dim ViewReminder As Shape
Dim Start As Double, Dimmer As Double
Set ViewReminder = ActiveSheet.Shapes("ScreenMessageBox")
With ViewReminder
.Fill.Transparency = 0
.Visible = True
End With
Start = Timer
Do While Timer < Start + 10
DoEvents
Loop
' Begin fade
For Dimmer = 0 To 1 Step 0.1
ViewReminder.Fill.Transparency = Dimmer ' <--- Each change is visible
'
for about 1 second
DoEvents
Next Dimmer
With ViewReminder
.Visible = False
.Fill.Transparency = 0
End With
Thank you to all interested.
Doc
My problem is trivial. I am submitting it with the hope of learning some
coding techniques.
I have a WordArt object on a worksheet. When the object is made visible,
its transparency is 0%. I keep it in view for 10 seconds and then would
like the background to appear to fade away with the text unchanged. The
problem is that the fading is not smooth. Each transparency change,
regardless of how much (in my case 10%), remains visible for approximately 1
second before changing again until the transparency is at 100% when I hide
the object.
Is there any way of changing my code to make the transparency changes smooth
? I suspect the 1 second delay is the time Excel requires to refresh the
WordArt object on the display. While on the subject, what is the code, if
any, to fade the text only and leave the background unchanged ? I could
only find code to change the font name, size, bold or italics.
The macro recorder did not even recognize selecting the WordArt object.
Google and Bing helped with the background transparency but not the text
transparency.
Here is my code snippet:
Dim ViewReminder As Shape
Dim Start As Double, Dimmer As Double
Set ViewReminder = ActiveSheet.Shapes("ScreenMessageBox")
With ViewReminder
.Fill.Transparency = 0
.Visible = True
End With
Start = Timer
Do While Timer < Start + 10
DoEvents
Loop
' Begin fade
For Dimmer = 0 To 1 Step 0.1
ViewReminder.Fill.Transparency = Dimmer ' <--- Each change is visible
'
for about 1 second
DoEvents
Next Dimmer
With ViewReminder
.Visible = False
.Fill.Transparency = 0
End With
Thank you to all interested.
Doc