با درود فراوان
برای ساخت یک انیمیشن ساده در اکسل ابتدا یک WordArt رادر صفحه ایجاد می کنیم در این مثال به اسم WordArt 1 ایجاد شده
و در سل a2 و b2 و c2 به ترتیب متن انیمیشن و تعداد انیمیشن که با تابع len مشخص می کنیم و C2 نیز برای سرعت انیمیشن بر اساس ثانیه
حال با ماکرو زیر این انیمشین را ایجاد می کنیم
همانطور که می بینید یک ماکرو را ایجاد کرده ایم که متن داخل سل A2 را به ترتیب حرف به حرف
به WordArt اضاف می کند تا آخرین حرف متن مورد نظر که در سل A2 نوشته شده است .
زمان بین اضاف کردن هر حرف را با کد Do While Timer < tt + zzz مشخص می کنیم که
زمان را به سل C2 ارجاع داده ایم و در آخر با کدApplication.Run "tim دوباره همان ماکرو را اجرا می کند که بصورت حلقه این ماکرو اجرا میشود.
فایل نمونه
[attachment=2]
برای ساخت یک انیمیشن ساده در اکسل ابتدا یک WordArt رادر صفحه ایجاد می کنیم در این مثال به اسم WordArt 1 ایجاد شده
و در سل a2 و b2 و c2 به ترتیب متن انیمیشن و تعداد انیمیشن که با تابع len مشخص می کنیم و C2 نیز برای سرعت انیمیشن بر اساس ثانیه
حال با ماکرو زیر این انیمشین را ایجاد می کنیم
همانطور که می بینید یک ماکرو را ایجاد کرده ایم که متن داخل سل A2 را به ترتیب حرف به حرف
به WordArt اضاف می کند تا آخرین حرف متن مورد نظر که در سل A2 نوشته شده است .
زمان بین اضاف کردن هر حرف را با کد Do While Timer < tt + zzz مشخص می کنیم که
زمان را به سل C2 ارجاع داده ایم و در آخر با کدApplication.Run "tim دوباره همان ماکرو را اجرا می کند که بصورت حلقه این ماکرو اجرا میشود.
کد PHP:
Sub tim()
On Error Resume Next
Dim zzz, tt, i As Integer
zzz = Sheet1.Range("c2")
tt = Timer
For i = 1 To Sheet1.Range("b2")
ActiveSheet.Shapes("WordArt 1").TextEffect.Text = Left(Sheet1.Range("A2"), i)
zzz = Sheet1.Range("c2")
tt = Timer
Do While Timer < tt + zzz
DoEvents
Loop
Next i
Application.Run "tim"
End Sub
[attachment=2]
کامنت