مساعدة فى تعديل الكود لكى يقوم بحذف الإطار

[حسن محمدسليم عبدالحميد]

هذا الكود خاص بالأستاذ الفذ خبور خير لطباعة الشهادات

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

ارجو التعديل فى الكود لكى يقوم بمسح الإطار من الورقة كما يفعل مع الصور ولكم جزيل الشكر

ملف شهادات جديد مع اضافة الصور.rar

[عبدالله المجرب]

اخي الفاضل بامكانك مسحه يدوياً بتحديده ثم الضغط على زر Delete ولن يظهر مرة اخرى ولا داعي لتعديل الكود اذا كنت تريد عدم ظهوره بالمرة.

ابواحمد

[حسن محمدسليم عبدالحميد]

السلام عليكم أخى أبو أحمد

أشكرك على سرعة الرد والإستجابة

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

ولذلك يكون مسح اٌلإطار اذا كان عدد الشهادات مثلاُ 150 شهادة نكون فى حاجة لمسح الإطار 150 مرة فهذا مرهق

بالإضافة الى بطئ الملف

لذلك نرجوا التعديل فى الكود لكى يتم مسح الإطار ايضاً

وشكرا على الرد

[حسن محمدسليم عبدالحميد]

السلام عليكم اخى ابو أحمد

اشكرك على سرعة الإستجابة لكن اريد توضيح شئ هام هو اننا نستخدم الملف فى طبعة اكثر من 200 شهادة ولابد من ضبط هوامش

الصفحات لكى قبل الطباعة ولذلك نستخدم زر المسح اكثر من مرة فعند إجراء معاينة يظهر الإطار فى كل الصفحات

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

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

الصور ولا تبقى لها أثر

[عبد الفتاح كيرة]

لا أدرى

هل هذا ما تريده؟

شهادات جديد مع اضافة صور للطلبة1kemas.rar

[حسن محمدسليم عبدالحميد]

السلام عليكم اخى كيماس

اريد عند استخدام كود المسح ان يتم حذف الإطار ولا يوجد فى اسفل الورقة

شهادات جديد مع اضافة صور للطلبة1kemas.rar

[عبد الفتاح كيرة]

لعله هذا؟

شهادات جديد مع اضافة صور للطلبة1kemas2.rar

[حسن محمدسليم عبدالحميد]

السلام عليكم اخى كيماس

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

بالسهم الأحمر اما الإطار المشار الية بالسهم الأخضر يبقى كم هو

شهادات جديد مع اضافة صور للطلبة2kemas.rar

[عبد الفتاح كيرة]

كهذا؟

شهادات جديد مع اضافة صور للطلبة2222kemas.rar

[حسن محمدسليم عبدالحميد]

السلام عليكم اخى كيماس

ما زالت المشكلة كما هى ارجو منك ان ان يتسع صدرك لى وان تقوم بهذه الخطوات لكى تعرف ما اريده

1) اضغط على زر البحث

2) قم باستدعاء على سبيل المثال خمس اسماء من الطلبة لعرض شهادتهم

3) ثم قم باستخدام زر المسح لمسح الشهادات وحفظ العمل الموجود فى اسفل زر البحث

4) وانظر بين الصفين 23 و 24 ستجد أن الإطار موجود على هيئة خط رفيع عندالوقوف علية بالماوس تجده محدد

5) ولكى نقوم بازالته يجب الضغط على مفتاح delete خمس مرات وهو العدد المساوى لعدد الشهادات التى قمنا بعرضها فى

الخطوة الأولى ولم يقوم الكود بمسح هذا الإطار

6) الذى اريده ان يقوم الكود بحذف الأطار الموجود على هيئة خط رفيع بين الصفين 23 و 24 ولا نستخدم مفتاح delete

[عبد الفتاح كيرة]

أخى حسن

أفضل أن يتدخل الأخ الأستاذ خبور لتنفيذ ما تريده

فالكود خاص به و هو به أعلم

وشكرا

[عبدالله باقشير]

السلام عليكم

استخدم هذا الكود للحذف

Sub kh_Delete_AllShape()

    Dim shp As Shape

    Dim U As Integer

    For Each shp In Sheet3.Shapes

        If shp.Type = 8 Or shp.Type = 4 Or shp.Name = "Group 6394" Then GoTo 1

            shp.Delete

1:

    Next shp

End Sub

هذا سيقوم بحذف الصور والاطارات ما عدى الاطار الخاص بالشهادة الاولى

ويبقي الازرار والتعليقات

جرب واخبرني النتيجة

[قصي]

عودا حميدا يابطل

[cat101]

رائع

بارك الله فيك

==

كيف اعمل اطار جميل يتناسب مع طول وعرض الشهاده

[حسن محمدسليم عبدالحميد]

السلام عليكم استاذى الغالى خبور

لا استطيع ان اصف لك سعادتى وفرحتى عندما وجدت هذا الرد وخاصة انه من استاذ غالى على قلوب كل أعضاء المنتدى

أما بالنسبة للكود فهو يعمل بدقة عالية جداُ بارك الله فيك وفى عملك وجعله فى ميزان حسناتك

لى سؤال واحد فقط وهو هذا السطر فى الكود قمت بتعريف متغير اسمه u

Dim U As Integer

ولم يذكر بعد ذلك فى الكود

فما وفائدة هذا السطر وشكرا

[قصي]

كيف اعمل اطار جميل يتناسب مع طول وعرض الشهاده

[عبدالله باقشير]

السلام عليكم

لى سؤال واحد فقط وهو هذا السطر فى الكود قمت بتعريف متغير اسمه u

Dim U As Integer

ولم يذكر بعد ذلك فى الكود

فما وفائدة هذا السطر وشكرا

لا فائدة منه قم بحذفه

نستخدم احيانا متغيرات للتاكد من عملية معينة

ثم نمسح سطور العملية

او نستخدم الشرطة لعدم استخدام هذا السطر

وتبقى بعض هذه الاسطر سهوا وخاصة التعاريف

تقبل تحياتي وشكري

[حسن محمدسليم عبدالحميد]

السلام عليكم

جزاك الله خيرا على هذا الجهد وجعله الله فى ميزان حسناتك استاذ خبور

لى سؤال اخر فى الكود وهو ما فائدة الرقم 8 والرقم 4 فى الكود

وجزاك الله خيرا ودمتم بكل خير

[عبدالله باقشير]

السلام عليكم

لى سؤال اخر فى الكود وهو ما فائدة الرقم 8 والرقم 4 فى الكود

وقد اخبرتك التالي

هذا سيقوم بحذف الصور والاطارات ما عدى الاطار الخاص بالشهادة الاولى

ويبقي الازرار والتعليقات

الاطار الخاص بالشهادة الاولى استدلينه علية بالاسم وهو "Group 6394"

الازار والتعليقات استدلينه عليها بنوعية الكائن

نوع الكائن الزر هو msoFormControl او الرقم 8

نوع الكائن التعليقات هو msoComment او الرقم 4

===============================================

وساعطيك كود مختصر انت بعد استخدام زر المسح والخفظ

سيبقى معاك فقط الاطارات التي قمت باضافتها

وسيكون ارتفاع هذه الاطارات بعد حذف الصفوف العدد صفر

اذن استخدم هذا الكود :

Sub kh_Delete_Group()

    Dim shp As Shape

    Dim U As Integer

    For Each shp In Sheet3.Shapes

        If shp.Height = 0 Then shp.Delete: U = U + 1

    Next shp

    MsgBox U

End Sub

جرب واخبرنا بالنتيجة

[عبدالله باقشير]

السلام عليكم

كيف اعمل اطار جميل يتناسب مع طول وعرض الشهاده

ممكن تبحث عن اطارات عبر البحث بالنيت

او تكونها انت حسب الاشكال الموجودة في اشكال تلقائية ثم تعمل لها تجميع

هذه اشياء فنيه وكلا حسب ذوقه

[محمدي عبد السميع]

السلام عليكم

لى سؤال اخر فى الكود وهو ما فائدة الرقم 8 والرقم 4 فى الكود

وقد اخبرتك التالي

هذا سيقوم بحذف الصور والاطارات ما عدى الاطار الخاص بالشهادة الاولى

ويبقي الازرار والتعليقات

الاطار الخاص بالشهادة الاولى استدلينه علية بالاسم وهو "Group 6394"

الازار والتعليقات استدلينه عليها بنوعية الكائن

نوع الكائن الزر هو msoFormControl او الرقم 8

نوع الكائن التعليقات هو msoComment او الرقم 4

===============================================

وساعطيك كود مختصر انت بعد استخدام زر المسح والخفظ

سيبقى معاك فقط الاطارات التي قمت باضافتها

وسيكون ارتفاع هذه الاطارات بعد حذف الصفوف العدد صفر

اذن استخدم هذا الكود :

Sub kh_Delete_Group()

    Dim shp As Shape

    Dim U As Integer

    For Each shp In Sheet3.Shapes

        If shp.Height = 0 Then shp.Delete: U = U + 1

    Next shp

    MsgBox U

End Sub

جرب واخبرنا بالنتيجة

أمدك الله ببسطة في العلم والحلم

[حسن محمدسليم عبدالحميد]

السلام عليكم استاذ خبور

عند استخدام الكود الجديد فى الملف المرفق لم تحدث النتيجة المطلوبة وهى مسح الإطار

ارجو توضيح الخطأ وشكرا

كنترول اولى ثانوى معدل بالإطار .rar

[قصي]

الاخ والاستاذ الكريم خبور خير

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

جزاك الله خيرا

[قصي]

الخ حسن

تم تحميل ملغك ولم يظهر بالملف غير شيت الرصد والشهادة والاوائل

يعني 3 ورقات فهل هذا هو الملف مع الحجم الكبير الذي يظهر

وكيف نظهر الورق الاخر

وشكرا

[حسن محمدسليم عبدالحميد]

السلام عليكم اخى قصى

الملف المرفق فى المشاركة السابقة هو للصف الأول الثانوى

باقى اوراق الملف تستسطيع اظهارها عن طريق الأتى

formate ثم sheets ثم unhaide ثم تختار الورقة التى تريد اظهارها

اما شيت كنترول الصفين الأول والثانى الإعدادى فهما على الرابط الأتى :

وشكرا