تكبير و تصغير الصفحة بزر واحد

[حمدي]

السلام عليكم اخواني الكرام

اريد من حضراتكم التكرم بعمل كود لتغيير كلمة "تكبير" و "تصغير" الموجودة في الزر ليكون زر واحد فقط بدل زرين

تكبير و تصغير.rar

[دغيدى]

تفضل أخى الكريم

تكبير و تصغير.rar

[حمدي]

جزاك الله خير و بارك الله فيك أخي الاستاذ / دغيدى

دائما متألق و مساعد لأعضاء المنتدى

جعلك الله دوما فاعلاً للخير

[حمدي]

عند تطبيق الكود في الملف الموجود عندي لا يعمل علما باني نقلت الموديول

لا اعلم اين الخطأ

[حمادة عمر]

هل تظهر لك رسالة اخي الكريم ... ماهي ونرجو ارفاق صورة منها

هل قمت بتمكين وحدات الماكرو ..... ما هو اصدار الاكسيل لديك

??????????????????//

[دغيدى]

أخى الكريم / حمدى

مرسل لكم العمل بكود واحد

ملحوظة يجب تسمية الزر  بإسم     تكبير

تكبير و تصغير 2.rar

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

السلام عليكم

الكود التالي لا يحتاج الى تسمية الزر

Sub kh_zoom()
Dim Ary
Dim shp As Shape
Dim txt As String, txt1 As String
Dim z As Integer
Set shp = ActiveSheet.Shapes(Application.Caller)
Ary = Array("تكبير", "تصغير")
txt = shp.TextFrame.Characters.Text

If txt = Ary(1) Then z = 50: txt1 = Ary(0) Else z = 200: txt1 = Ary(1)
ActiveWindow.Zoom = z
shp.TextFrame.Characters.Text = txt1
End Sub

جرب واشعرنا بالنتيجة

 

تحياتي

[حمادة باشا]

الأستاذ الفاضل/ دغيدي

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

لولا أني عدلت الملف بالفعل ما أرسلته بعد ردكم - ولكن أرفقه لعل به إفادة لأحد الأعضاء

 

الأخ الكريم/ حمدي

الملف المرفق من أستاذنا/ دغيدي يعمل بكفاءة - فإن نقلت المحتوي إلي ملف آخر إحرص علي نقل كافة الأكواد كما هي

وهذا نفسه تقريبا - مع بعض الإضافة

 

 

 

تكبير و تصغير.rar

[حمادة باشا]

أستاذنا الكبير/ عبدالله باقشير

جزاكم الله خيرا - تقبلوا تحياتنا

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

أستاذنا الكبير/ عبدالله باقشير

جزاكم الله خيرا - تقبلوا تحياتنا

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

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

[قنديل الصياد]

السلام عليكم

مرفق تطبيق لكود استاذنا / عبد الله باقشير ويعمل بكفاءة

 

 

تكبير_تصغير.rar

[حمدي]

بسم الله ما شاء الله

كل الشكر لاساتذة المنتدى الكرام و أخص بالشكر كل من

 

  الاستاذ/ دغيدى والاستاذ/عبدالله باقشير و الاستاذ/ حمادة عمر و الاستاذ/ حمادة باشا و الاستاذ/ قنديل الصياد

 

 

[دغيدى]

هكذا تعلمنا من الكبار

[قنديل الصياد]

هكذا هم اساتذتنا نتعلم منهم الكثير

استاذنا الكبير الاستاذ / جمال دغيدى  عميد المنتدى

واستاذنا الرائع  والكبير الاستاذ / عبد الله باقشير

وشكر للاستاذ الجميل الاستاذ / حمادة باشا