اظهار واخفاء الصور بزر تحكم فى اكسل

اظهار واخفاء الصور بزر تحكم فى اكسل

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

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

1- افتح ملف اكسل محفوظ ب excel macro enabled 

2 قم بادراج شكل المستطيل ذو الزوايا الدائرية 

                          

3- سمى هذا الشكل Rounded Rectangle 4 
                                                                       

4- قم بادراج الصور التى تريدها فى الملف وقم بتسميتها وليكن التالى :   ex     ,    wo

                                                  

                                                                          

                              

           

                                   

                             
5- ادخل بيانات فى جدول تتحدث عن الفرق بين الصورتين كما هو موضح بالفيديو التالى :
                                               

                                       
6- كليك يمين على الشكل المدرج اولا ثم اختار من القائمة المنسدلة ( تعيين ماكرو ) ثم اختار من اسفل هذا المصنف ثم اضغط 

تحرير وادخل الكود التالى 

                                      

()  Sub Macro1

    With ActiveSheet.Shapes("Rounded Rectangle 4").TextFrame2.TextRange.Characters

        If .Text = "Hide" Then

          "Text = "Show.

            ActiveSheet.Shapes("ex").Visible = False

             

              ActiveSheet.Shapes("wo").Visible = True

ادخل القيم المطلوبة لوصف الصورةالاولى بين علامتى التنصيص""     = Range("l2").Value

ادخل القيم المطلوبة لوصف الصورة الاولى بين علامتى التنصيص"" =  Range("j2").Value 

            

        Else

          "Text = "Hide.

           (" With ActiveSheet.Shapes("Rounded Rectangle 4

           

            ActiveSheet.Shapes("wo").Visible = False

        

            

             ActiveSheet.Shapes("ex").Visible = True

ادخل القيم المطلوبة لوصف الصورةالثانية بين علامتى التنصيص""    =  Range("l2").Value 

ادخل القيم المطلوبة لوصف الصورة بين الثانية علامتى التنصيص         ""   = Range("j2").Value 

            End With

        End If

    End With

End Sub

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

8- يمكنك اضافة عدد من الصور بشرط تعريف الاسم وربطها بكود الماكرو .

 رابط تحميل الملف  للعمل مباشرة من هنا