اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

إخوتي الكرام في قسم 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

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

الاخ صالح

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

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

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

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

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

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

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

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information