تنسيق الصور

[مستر ابو مرمر]

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

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

السلام عليكم

أنا هقولك على طريقة وحضرتك عليك التنفيذ

1 - ضع كود الدالة دى فى مديول جديد فى الملف

Function INSERTPICTURE(ByVal PictureFullName As String, Optional ByVal PicWidth As Single = 200, Optional ByVal PicHeight As Single = 150)
                                                        
        
    Dim CellActive  As Range
    Dim picPicture  As Object
    
    Set CellActive = Application.Caller
    
    
    For Each picPicture In CellActive.Parent.Pictures
        
        If picPicture.TopLeftCell.Address = CellActive.Address Then
            picPicture.Delete
            Exit For
        End If
    Next
    
    Set picPicture = CellActive.Parent.Pictures.Insert(PictureFullName)
    
    With picPicture
        .Left = CellActive.Left + 1
        .Top = CellActive.Top + 1
        .Width = PicWidth
        .Height = PicHeight
    End With
    
End Function

2 - لتنفيذ الدالة :

قم بعمل مجلد  كمصدر للصور  وليكن مثلاً على البارتشن H

المجلد ده سميه أى اسم وليكن مثلا  Sample Pictures

ضع الصور في هذا المجلد    الصور  لاحظ أن صورك تكون بامتداد jpg

كل صورة لها اسم  والاسم ممكن يكون حروف أو رقم  المهم

لنفترض أن صورتين في هذا المجلد واحدة باسم mokhtar و الثانية  باسم marmar

في الخلية A1  مثلا قم بكتابة المعادلة  التالية :

=INSERTPICTURE("H:\Sample Pictures\mokhtar.jpg";200;150)

لاحظ فى المعادلة  اسم البارتشن H  واسم المجلد واسم الصورة والامتداد وطول وعرض الصورة

بمجرد كتابة المعادلة وتضغط انتر هتلاقى الصورة قدامك ظهرت

 

عايز تنزل الصورة  marmar   شوف عايز تحطها جنب الأولى ولا تحتها  براحنك

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

=INSERTPICTURE("H:\Sample Pictures\marmar.jpg";200;150)

نزل باقى صورك بنفس الطريقة   ظبط عرض الأعمدة وارتفاع الصفوف فى الشيت ليظهر التنسيق كما ينبغى

عرض الأعمدة  10.5  ارتفاع الصفوف  21.75  ده غالبا يتماشى  مع الصور 200X150

إن قابلتك مشكلة أرفق الملف والصور  تحياتى 

تم تعديل يونيو 25, 2015 بواسطه مختار حسين محمود

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

الأخ الحبيب مختار أستاذ ورئيس قسم

جزاك الله خير الجزاء في الدنيا والآخرة

 

الدالة من الدوال المفيدة جداً والمحببة لدي شخصياً ..

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

Insert Picture UDF Function.rar