Excel VBA ile Yazı Animasyonu

Excel VBA ile Yazı Animasyonu

Sub Animasyon()
'makro: Mesut Akcan
'23/9/2021
'mesutakcan.blogspot.com

With ActiveSheet.Shapes.Range(Array(1)).TextFrame2.ThreeD
'With ActiveSheet.Shapes.Range("yazi1").TextFrame2.ThreeD

    .Visible = msoFalse
    .BevelTopType = msoBevelAngle
    .SetPresetCamera (msoCameraPerspectiveLeft)
    .FieldOfView = 100
    .BevelTopInset = 0
    .BevelTopDepth = 0
    .RotationX = 0
    .Depth = 4.5
    .BevelBottomInset = 8
    .BevelBottomDepth = 5
    .BevelBottomType = msoBevelAngle
    For n = 0 To 8
        .BevelTopInset = n
        If n > 5 Then a = 5 Else a = n
        .BevelTopDepth = a
        bekle 2000
    Next

    For n = 0 To 360 Step 10
        .LightAngle = n
        bekle 2000
    Next
    For a = 360 To 0 Step -10
        .RotationX = a
        .RotationZ = -a
        bekle 1000
    Next
End With
End Sub

Sub bekle(t)
    For n = 1 To t: DoEvents: Next
End Sub