Animation In Sheet
A good animation example made with the following Excel codes :"Sub Animasyon13()
ActiveSheet.Shapes("Ferman").Select
Selection.Characters.Delete
m = 0
For i = 1 To 140
Selection.ShapeRange.Width = m
Selection.ShapeRange.Adjustments.Item(1) = k
m = m + 1
k = k + 1
DoEvents
Next i
Selection.Characters.Text = Range("a1").Value
With Selection.Characters(Start:=1, Length:=22).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 11
.Bold = True
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = True
.Shadow = True
.Underline = xlUnderlineStyleNone
.ColorIndex = 12
End With
Range("A1").Select
End Sub "
