إخفاء صورة

[Akram Galal]

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

تحية طيبة لكل أعضاء المنتدى

أريد عمل زر يقوم بإخفاء صورة وزر أخر يقوم بإظهار الصورة

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

وكل عام وأنتم بخير

اخفاء صورة.rar

[ياسر خليل أبو البراء]

الأخ الغالي أكرم جلال

إليك الملف التالي

Sub HidePicture()
'[False] يقوم الكود بإخفاء الصورة باستخدام القيمة
'------------------------------------------------
    ActiveSheet.Shapes("صورة 1").Visible = False
End Sub

Sub ShowPicture()
'[True] يقوم الكود بإظهار الصورة باستخدام القيمة
'------------------------------------------------
    ActiveSheet.Shapes("صورة 1").Visible = True
End Sub

تقبل تحياتي

Hide Show Picture.rar

[Akram Galal]

أ/ ياسر جزاك الله خيرا

كود رائع

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

[مختار حسين محمود]

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

كل سنة وحضراتكم بخير بمناسبة الشهر الفضيل

أستأذن أستاذى الفاضل العزيز ياسر خليل فى هذه الاضافة اثراء للموضوع

يمكن عمل  كود واحد  وزر واحد يعمل على اخقاء واظهار الصورة :

Sub showhidepic()
    With ActiveSheet.Shapes("Rounded Rectangle 2").TextFrame2.TextRange.Characters
        If .Text = "Hide" Then
            .Text = "Show"
            ActiveSheet.Shapes("صورة 1").Visible = False
        Else
            .Text = "Hide"
            
           ActiveSheet.Shapes("صورة 1").Visible = True
            
        End If
    End With
End Sub

أخى وأستاذنا الفاضل ياسر خليل أقول لك نورت المنتدى

تقبلوا جميعا تحياتى

Hide Show Picture 2 .rar

[ياسر خليل أبو البراء]

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

الصيام عامل معاك أحلى شغل .. تسلم وتعيش يا مستر مختار

[Yasser Fathi Albanna]

أخى الحبيب الغالى / ياسر خليل

أخى الفاضل / مختار

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

ورمضان كريم

[مختار حسين محمود]

أخى وأستاذى العزيز ياسر خليل شكرا لك  ونحن نتعلم منك وسنظل بإذن الله

 

أخى العزيز ياسر فتحى شكرا لك  توقيعك روعة  روعة