إنشاء شكل بدون تعبئة بإستعمال الأكواد البرمجية

[صالح حمادي]

السلام عليكم و رحمة الله تعالى و بركاته

إخوتي الكرام في قسم PowerPoint حياكم الله.

لقد قمت بإستعمال الأكواد البرمجية لإنشاء أشكال مثل المستطيل أو نجمة أو مثلث ...الخ

لكن بقي لدي مشكل و هو عند جعل الشكل بدون تعبئة أو شفاف يظهر خطأ.

و هذا هو الكود المستعمل:

Dim Sh As PowerPoint.Shape
Set Sh = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeIsoscelesTriangle, 15, 15, 200, 200)
Sh.Fill.ForeColor.SchemeColor = ppNotSchemeColor

الخطأ يظهر في السطر الأخير فقط عند اختيار أي تنسيق أو أي لون ماشي الحال لكن عند إزالة التعبئة يظهر الخطأ

شكرا جزيلا مسبقا.

[صالح حمادي]

السلام عليكم

الحمد لله لقد وجدت الحل و هو كما يلي:

       Dim sh As Shape
       Set sh = ActivePresentation.Slides(1).Shapes.AddShape(msoShape5pointStar, 50, 50, 600, 400)
       sh.Fill.Visible = msoFalse

السطر الأخير هو المسؤول على إزالة تعبئة لون الشكل

[مجدى يونس]

الاخ صالح

اهلا بك بالبوربوينت انا لسه شايف رسالتك

عند انزال فيديو على الرابط التالى وان شاء الله فى تكملة باشكال هندسية

 

اين الملف لنستفاد من اعمالك

[صالح حمادي]

أهلين بك أستاذنا الغالي مجدي

يجب تغيير اسم قسم الباور بوانت بإسمك لكثرة إبداعك فيه.

- إليك المرفق و به زر أمر عند الضغط عليه يقوم بإنشاء شكل نجمة بدون تعبئة (شفافة)

و نستطيع إضافة أي شكل نريد بأي لون نريد و كذلك النصوص و الصور كلها بإستعمال هذه الدالة أو هذا الكود

إنشاء شكل.pptm

[مجدى يونس]

الاخ صالح

شكرا لكلاماتك احنا على قد حالنا

فكرة جديدة

انتظر الدرس القادم الخاص بالاشكال

 

 

 

[صالح حمادي]

6 ساعات مضت, مجدى يونس said:

انتظر الدرس القادم الخاص بالاشكال

إن شاء الله على أحر من الجمر

[مجدى يونس]

الاخ صالح

اليك اول صورة للفكرة

لانى كنت باشتغل على 2010

وامكانيته ضعيفة فنزلت 2013

 

 

 

 

[صالح حمادي]

3 ساعات مضت, مجدى يونس said:

الاخ صالح

اليك اول صورة للفكرة

عندما توضع الأكواد يدي مبدع سوف ترى العجب العجاب

ما شاء الله عليك أستاذ مجدي

3 ساعات مضت, مجدى يونس said:

لانى كنت باشتغل على 2010

وامكانيته ضعيفة فنزلت 2013

أنا أيضا أشتغل على 2010 و هو يعمل هذه الأشياء بشكل ممتاز

[مجدى يونس]

الاخ صالح

نشوف اعمالك لانى مشغول جدا