العائد2000 قام بنشر أغسطس 23, 2003 مشاركة قام بنشر أغسطس 23, 2003 الاخوة الكرام : السلام عليكم هل من الممكن وضع ازرار على الشريحة بحيث تتحكم هذه الازرار في تأثيرات الحركة على ال ( shapes ) التي اضعها في الشريحة كيف يمكن التحكم في تحريك شكل معين على الشريحة الى مكان محدد ( بالكود ) يعني زر مثلا بالنقر عليه يتحرك الشكل على الشريحة الى موضع معين وشاكرا لكم مسبقا رابط هذا التعليق شارك More sharing options...
رحيل قام بنشر أغسطس 24, 2003 مشاركة قام بنشر أغسطس 24, 2003 اعتقد والله اعلم ان هذه الامور احسن واحد بها هو الاخ ( محمد طاهر ) الامر يحتاج لكود برمجي والاخ محمد اهل لذلك بإنتظار اجابته رابط هذا التعليق شارك More sharing options...
العائد2000 قام بنشر أغسطس 24, 2003 الكاتب مشاركة قام بنشر أغسطس 24, 2003 شكرا اختي على سرعة التجاوب واتمنى ان لا ينسانا الاخ محمد بابداعاته رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر أغسطس 24, 2003 مشاركة قام بنشر أغسطس 24, 2003 شو هادا السؤال عقدني :lol: رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 24, 2003 مشاركة قام بنشر أغسطس 24, 2003 السلام عليكم ما دام ده رد الاخ عبد الله يبقي أكيد صعب باجرب فى المساء باذن الله ، و أتمني ان أصل لما تريد رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر أغسطس 24, 2003 مشاركة قام بنشر أغسطس 24, 2003 (معدل) بسم الله الرحمن الرحيم أهلاً أخي محمد وشكراً على المجاملة الرقيقة .. بصراحة أنا أول ما حاولت أحل هذي المشكلة حطيت في بالي إنو لازم كود، وهذا اللي عقدني، مع إنو لغة الفيجول بيسيك سهلة إلا إني ما عرفت كيف أحدد اسم للـ shapes في نافذة الكود و..... المهم فيه طريقة أخرى لعمل ذلك بدون الحاجة إلى كود، وهي أسهل، وما دامت تؤدي الغرض فلا حاجة لنا إلى الكود. إليك الطريقة أخي العائد بعد إذن الأخ محمد طاهر والأخت رحيل: 1. قم برسم زر إجراء مخصص من: عرض الشرائح >> أزرار إجراءات، وعندما تظهر لك إعدادات الإجراء إنقر على إلغاء الأمر. 2. بعد ذلك قم بتحديد الـ shape الذي تريده، ثم أضف له التأثير الذي تريده. 3. بعدها قم بالذهاب إلى خيارات التأثير كما في الصورة التالية: 4. سيظهر لك نموذج يحتوي على ثلاث تبويبات (تأثير - التوقيت - حركة النص) 5. اذب إلى التبويب( التوقيت ) وانقر على الزر مشغلات. 6. هنا ستظهر لك خانتي اختيار، اختر الخانة السفلية (بدء التأثير عن نقر) 7. اختر الآن زر إجراء مخصص ... واستمتع بمشاهدة النتيجة .. ولا تنسى تدعيلي. تحياتي لك أخي العائد ... وتحياتي الخاصة للقائمين على هذا المنتدى المميز :yess: :yess: ... تم تعديل أغسطس 24, 2003 بواسطه عبد الله فتحي رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 24, 2003 مشاركة قام بنشر أغسطس 24, 2003 السلام عليكم شكرا للأخ عبد الله علي المداخلة و من ناحية أخري بالنسبة لاستخدام الكود مع الباوربوينت فالاختلاف الكبير هو اننا يجب وضع الكود المراد تشغيله فى وضع العرض فى add-in و عموما برمجة الباوربوينت بال vba اصعب من الاكسيل و الاكسيس و الوورد فلابد من تفعيل بعض الكائنات بالكود قبل البدء و يوجد مثال علي ذلك بقسم خلاصة المشاركات ، و ما يلي مثال آخر و الغريب أن ال msdn نفسها لم أجد فيها اكواد للباوربوينت اكس بي - فاما انني لم اصل اليها او أن المستخدمين لا يحتاجونها كثيرا و بالتالي لم يضعوها علي النت عموما و اذا أردنا تحقيق طلب الأخ العائد 2000 بالتحديد باستخدام الكود و بالضغط علي زر كما طلب فقد أعددت محاولة و هي مرفقة هنا كملف Add-in و من يريد تجربته فليفتح ملف خالي و يضع فيه رسم بيضاوي ثم يفتح قائمة Tools add-ins و يضيف الملف المرفق ( طبعا بعد فك الضغط ) ثم ليشغل العرض و فى الاغلب لن يعمل الا علي الاكس بي و للتحرك العلوي يضاف IncrementTop مع أو بدل IncrementLeft بحسب الحاجة و الكود به هو =========== Private Sub CommandButton1_Click() Application.ActivePresentation.SlideShowWindow.activate Call moveright End Sub Private Sub CommandButton2_Click() Application.ActivePresentation.SlideShowWindow.activate moveleftt End Sub ================== Dim X As New EventClassModule Sub Auto_Open() Call InitializeApp MsgBox "welcome to slide show by Keyboard numbers" & Chr(13) & Chr(13) & "By : Mohamed Taher Arafa " End Sub Public Sub InitializeApp() Set X.App = Application End Sub Public Sub moveright() MsgBox "The oval is going to be moved to the right" With Application.ActivePresentation.Slides(1).Shapes(1) .IncrementLeft (50) End With End Sub Public Sub moveleftt() MsgBox "The oval is going to be moved to the Left" With Application.ActivePresentation.Slides(1).Shapes(1) .IncrementLeft (-50) End With End Sub Public Sub openit() UserForm1.Show UserForm1.Left = 0 UserForm1.Top = 50 End Sub Public Sub starting() Call InitializeApp End Sub =============== Public WithEvents App As Application Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow) Call openit End Sub و قد تم تقسيمه فى ثلاث مجموعات الاولي كود الفورم و الثانية فى موديول و الثالثة في class module moveitSOURCE.zip رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 25, 2003 مشاركة قام بنشر أغسطس 25, 2003 أيضا لمن لم يستخدم ال add-in فى الباور بوينت قم بكتابة الاكود فى ملف عادي و ضع فيه نموذج به الزرين ثم احفظ الملف بالاسم الذي تريد ثم اختار النوع ppa مع ضرورة الاحتفاظ بالملف الاصلي حيث أن ملف ال ppa لن تستطيع التعديل فيه مع تحياتي رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر أغسطس 25, 2003 مشاركة قام بنشر أغسطس 25, 2003 :yess: :yess: رابط هذا التعليق شارك More sharing options...
الراحل قام بنشر أغسطس 28, 2003 مشاركة قام بنشر أغسطس 28, 2003 السلام عليكم ورحمة الله وبركاته انا عضو جديد اتمنى قبولى بينكم اخ وبالنسبة للموضوع احب ان اشارك معكم على قد معلوماتي الا وهو ممكن عمل ارتباطات كما بالانترنت وهذه موجودة بالبوربوينت والسلام عليكم رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر أغسطس 28, 2003 مشاركة قام بنشر أغسطس 28, 2003 أهلاً بك أخي الراحل بيننا رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 29, 2003 مشاركة قام بنشر أغسطس 29, 2003 السلام عليكم أهلا وسهلا بك أخونا الكريم الا وهو ممكن عمل ارتباطات كما بالانترنت وهذه موجودة بالبوربوينت فهل تقصد أن هذه وسيلة لتفيذ المطلوب فى السؤال هنا ؟؟ أي تحريك كائن من مكان لآخر علي نفس الشريحة . فاذا كان فكيف يتم ذلك ؟؟ رابط هذا التعليق شارك More sharing options...
رحيل قام بنشر سبتمبر 4, 2003 مشاركة قام بنشر سبتمبر 4, 2003 اخي العائد لم تخبرنا اذا كانت الطرق التي عرضها لك الاخوان ادت الغرض المطلوب ام لا وضعت السؤال ولم نرى منك تجاوب !!؟ رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر سبتمبر 4, 2003 مشاركة قام بنشر سبتمبر 4, 2003 مو مشكلة أخت رحيل :) يمكن حصلت ظروف منعت ... ولكن أكيد رح يجي مرة ثانية ... بعدين اسمه العائد ... يعني أكيد رح يعود :pp: ... رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 4, 2003 مشاركة قام بنشر سبتمبر 4, 2003 يبدو أن الأخ العائد لم يعد بعض طرح السؤال :( عموما نتمني أن تفيد المشاركة عدد من الخوة الذين سيتصفحونها لاحقا :) و نرجو من الاخوة اتباع قواعد المشاركة فى المنتدي ، و منها أن يخبرنا السائل هل المشكلة حلت أم لا ، لنستمر فى المحاولة أو لنعرف ان الموضوع قد أدي الغرض منه و نضعه مع خلاصة المشاركات مع تحياتي رابط هذا التعليق شارك More sharing options...
اا الفاروق اا قام بنشر سبتمبر 6, 2003 مشاركة قام بنشر سبتمبر 6, 2003 و نرجو من الاخوة اتباع قواعد المشاركة فى المنتدي ، و منها أن يخبرنا السائل هل المشكلة حلت أم لا ، لنستمر فى المحاولة أو لنعرف ان الموضوع قد أدي الغرض منه و نضعه مع خلاصة المشاركات السلام عليكم بالفعل هذا هاام هااام هاام جدا ... وبالتوفيق تحياتى رابط هذا التعليق شارك More sharing options...
العائد2000 قام بنشر سبتمبر 8, 2003 الكاتب مشاركة قام بنشر سبتمبر 8, 2003 الاخوة الكرام : السلام عليكم جميعا أعتذر من الأخوة جميعا لانقطاعي عن متابعة الموضوع وهو ليس إهمالا لا سمح الله ولكن لظروف خاصة ترافقت مع بدء العام الدراسي .... شاكرا الأخوة جميعا الذين أدلوا بدلوهم في الموضوع وأعذرهم في عتابهم وخاصة مشرفنا العزيز وان شاء الله سأكون دوما في هذا المنتدى العزيز لأني الخاسر بالتأكيد من ابتعادي ... فمن النادر جدا أن يعثر الواحد على أخوة بهذا القدر من العلم والأخلاق وحب المساعدة رابط هذا التعليق شارك More sharing options...
العائد2000 قام بنشر سبتمبر 8, 2003 الكاتب مشاركة قام بنشر سبتمبر 8, 2003 الأخوة الكرام افدت مما طرحه الأخوان ولي بعض المحاولات افدتها من ملفات المساعدة في البرنامج وسأعرضها في نهاية الاسبوع ان شاء الله بما وصلت اليه من ملاحظات وشكرا مرة اخرى رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 8, 2003 مشاركة قام بنشر سبتمبر 8, 2003 أهلا بك و في انتظار مشاركاتك دائما :d رابط هذا التعليق شارك More sharing options...
العائد2000 قام بنشر سبتمبر 13, 2003 الكاتب مشاركة قام بنشر سبتمبر 13, 2003 السلام عليكم : اعزكم الله جميعا وآسف على تأخري في الرد وتحملوا طول الرد لدي اوفيس 2000 فلم اتمكن من تجربة ما اقترحه بعض الاخوة شاكرا لهم سرعة التجاوب متمنيا ان نقدم الفائدة لمن يملكون أي نسخة من الاوفيس الاخ عبد الله : يتم تحديد الشكل في الشريحة عن طريق فهرسه (shapes(1تحدد الشكل الأول يعلم الأخوة اننا نستطيع وضع ازرار على الشريحة ( command buttons) تقوم بما يلي تحريك الشكلincreament وتدويره وتكبيره وتصغيره وتغيير لونه واخفائه واظهاره باستخدام الكود مباشرة خلف كل زر او بكتابة جميع الاكواد في module واستدعاء الاجراء بالطريقة العادية كما اقترح الاخ محمد مشكورا وهو الشق الثاني من سؤالي كما يمكن وضع ازرار للتحكم في التنقل بين الشرائح (ليست أزرار الإجراءات الموجودة في شريط القوائم) بالكود طبعا إخواني : ما قصدته بالتحريك في الشق الأول من سؤالي هو التحكم في التأثيرات الحركية التي أضيفها للشكل عند دخوله للشريحةلقد تمكنت من وضع ازرار تقوم بالتحكم بإضافة التأثير الحركي الذي أريده للشكل ( الإضافة وليس التنفيذ) بحيث ان كل زر يضيف التأثير الحركي الذي أريده للشكل الذي احدده يعلم الاخوة ان تنفيذ :hart: التأثير الحركي على الشكل يكون بطريقتين 1- النقر على الشريحة نفسها 2- بعد مرور فترة معينة ما أرجو الوصول إليه هو تنفيذ التأثير الحركي على الشكل عندما انقر على زر وأكرر أسفي للتأخر في الرد رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر سبتمبر 14, 2003 مشاركة قام بنشر سبتمبر 14, 2003 أخي العائد ما فهمته من آخر رد أنك تريد التنفيذ أي عندما نضغط على زر ما يقوم بتنفيذ الحركة المضافة سابقاً لشكل موجود على الشريحة ... إذا كان هذا ما تقصده .. فقد وضعت الطريقة سابقاً من غير كود فهل جربتها ؟؟؟ رابط هذا التعليق شارك More sharing options...
العائد2000 قام بنشر سبتمبر 14, 2003 الكاتب مشاركة قام بنشر سبتمبر 14, 2003 الاخ عبد الله ، الاخوة الكرام السلام عليكم ادعو لك وللأخوان دائما بالتوفيق في الدنيا والآخرة ذكرت ان لدي اوفيس 2000 وليس اكس بي فهل يمكن عمل ما تفضلت به ؟! وشكرا لسرعة تجاوبكم رابط هذا التعليق شارك More sharing options...
×أبو ناصر× قام بنشر سبتمبر 16, 2003 مشاركة قام بنشر سبتمبر 16, 2003 ألف شكر للاستاذ محمد ولجميع الاخوة على هذا الطرح الجاد ونسأل الله أن يكتب ذلك في موزين أعمالكم أميييين أميييييييييييييين رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر سبتمبر 19, 2003 مشاركة قام بنشر سبتمبر 19, 2003 للأسف أخي العائد ليس لدي أوفيس 2000 لكي أجرب .. ولكن حاول أنت عمل نفس الخطوات .. وأعتقد أنها ستصلح ,, رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.