جواب سؤال 19

1. Udacity - https://www.udacity.com/course/android-developer-nanodegree-by-google--nd801

2. Coursera - https://www.coursera.org/specializations/android-app-development

3. Google Developers - https://developer.android.com/courses

4. Codecademy - https://www.codecademy.com/learn/learn-android

5. Treehouse - https://teamtreehouse.com/tracks/android-development

6. Android Training - https://www.androidtraining.com/

7. Pluralsight - https://www.pluralsight.com/courses/android-fundamentals

8. Ray Wenderlich - https://www.raywenderlich.com/android

9. Code School - https://www.codeschool.com/learn/android

10. edX - https://www.edx.org/learn/android-app-development

1. مدونة تطوير الأندرويد AndroidDevs - https://www.androiddevs.net/
2. مدونة منتدى سردينيا SardiniaForum - https://Sardinialights.com/
3. مدونة موقع اندرويد Android.com - https://arabic.android.com/
4. مدونة موقع التواصل الإجتماعي سناب شات Snapchat - https://story.snapchat.com/
5. قسم البرمجة والتطوير على مدونة جيكرز Jokerz Blog - https://www.jokerzweb.com/
6. المدونة التقنية بوابة العرب Arab Portal - https://www.arabportal.net/
7. موقع تعلم البرمجة Learn To Code - https://www.learntocode.net/
8. موقع روافد للبرمجيات Rawafed Software - https://www.rawafedsoft.com/
9. موقع التعليم الإلكتروني Coursera - https://www.coursera.org/courses?query=android
10. موقع التعلم الإلكتروني Udacity - https://www.udacity.com/ar/courses/all?tracks=android

LION.1920.1919.2023.7.8.عربي.bin

لتحقيق تحديث الصورة عند الضغط على زر "إدراج الصورة" وحذف الصورة القديمة ، يمكنك استخدام الكود التالي:

vba
Sub UpdateImage()
    Dim shp As Shape
    Dim ws As Worksheet
    
    ' افتح ورقة العمل التي تحتوي على الصورة القديمة
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' تحقق مما إذا كان هناك صورة قائمة على ورقة العمل واحذفها
    If ws.Shapes.Count > 0 Then
        ws.Shapes(1).Delete
    End If
    
    ' ادراج الصورة الجديدة
    Set shp = ws.Shapes.AddPicture("C:\Path\To\Your\NewImage.jpg", _
        msoFalse, msoTrue, 0, 0, -1, -1)
    
    ' تعيين موقع الصورة الجديدة على ورقة العمل (البعد الأفقي والعمودي)
    shp.Left = 50
    shp.Top = 50
    
    ' تعيين حجم الصورة الجديدة (العرض والارتفاع)
    shp.LockAspectRatio = msoFalse ' السماح للصورة بأخذ أي حجم
    shp.Width = 200
    shp.Height = 200
End Sub

في هذا الكود ، يتم حذف الصورة القديمة (إذا كانت موجودة) باستخدام ws.Shapes(1).Delete ، حيث يتم حذف الشكل الأول (الأعلى) في ورقة العمل. ثم يتم إدراج الصورة الجديدة بنفس الطريقة كما هو موضح في الكود السابق. يجب استبدال "C:\Path\To\Your\NewImage.jpg" بـ مسار الصورة الجديدة التي ترغب في ادراجها.