PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : ساخت یک انیمیشن ساده در اکسل


shamsololama
2010/02/16, 08:55
با درود فراوان
برای ساخت یک انیمیشن ساده در اکسل ابتدا یک WordArt رادر صفحه ایجاد می کنیم در این مثال به اسم WordArt 1 ایجاد شده
و در سل a2 و b2 و c2 به ترتیب متن انیمیشن و تعداد انیمیشن که با تابع len مشخص می کنیم و C2 نیز برای سرعت انیمیشن بر اساس ثانیه
حال با ماکرو زیر این انیمشین را ایجاد می کنیم

همانطور که می بینید یک ماکرو را ایجاد کرده ایم که متن داخل سل A2 را به ترتیب حرف به حرف

به WordArt اضاف می کند تا آخرین حرف متن مورد نظر که در سل A2 نوشته شده است .
زمان بین اضاف کردن هر حرف را با کد Do While Timer < tt + zzz مشخص می کنیم که
زمان را به سل C2 ارجاع داده ایم و در آخر با کدApplication.Run "tim دوباره همان ماکرو را اجرا می کند که بصورت حلقه این ماکرو اجرا میشود.



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]
paz
2010/12/04, 14:57
جناب استاد من با دانسته هاي ناچيزم تونستم تا جايي كه در فايل مي بينيد پيش برم ولي اجاريي نشد مي خواهم بدانم چرا
shamsololama
2010/12/04, 16:13
با درود فراوان
شما لطف دارین و گرنه اینطور نیست
در مورد کدی که نوشته ای همه چیز درست است اما کد را نوشته ای کهWordArt1
را انمیشن کند در حالی که شما WordAr
WordArt2
را در صفحه قرار داده اید و وردآرت یک وجود ندارد
شماره وردآرت را از یک به دو تغییر دهید و یا یک وردآرت با شماره یک در صفحه قرار بدهید درست میشود
مثل کد زیر
ActiveSheet.Shapes("WordArt 2").TextEffect.Text = Left(Sheet1.Range("A2"), i)
mvj
2011/02/28, 11:59
با سلام میتونم خواهش کنم چطوری میشه فایل انیمشن رو در اکسل باز کرد یا چطور میشود که یک فایل انیمشن رو در اکسل بطور اتوماتیک باز کنیم.
shamsololama
2011/02/28, 15:23
با درود فراوان
منظور شما را متوجه نشدم شما مشخص نکرده اید که منظور شما از فایل انیمیشن چه فایلی و با چه فرمتی هست
ولی اگر منظور شما اینکه چطور میشه فایل متحرکی را در اکسل گذاشت که بصورت اتوماتیک در زمان باز شده صفحه انیمیشن حرکت خودش را انجام دهد می بایست از فایل فلش با پسوند SWF استفاده کنید
mvj
2011/02/28, 19:32
با سلامی دوباره منظورم همین فایل فلش است که هر زمان که فایل باز میشود بطور اتوماتیک اجرا شود
میشود راهنمایی کنید یا سورسی معرفی نمایید.
متشکر.
حسینعلی
2014/09/21, 22:42
باسپاس فراوان ازاستادبزرگ جناب شمس،ایاممنکنه موضوع فلاش را بیشترباسورس ونمونه توضیح دهید
نمونه ای ازخودتون درمورد فایل اموزش اکسل دیدم فکرکنم بحث وموضوع دقیقا همون باشه، که اشکال مختلف درصفحه اکسل حرکات مختلفی را اجرامیکندد،ولی چون سورسش بازنبود نتونستم اطلاعاتی کسب کنم
اگه ممکنه توضیح بفرمایید