إلى الخبراء في الماكرو .. الرجاء المساعدة

[حسن المؤمن]

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

تحية طيبة لجميع الأعضاء ..

أحاول إعداد ورقة تقرير تحتوي على ماكرو لتسهيل العمل .. ولكني أجد صعوبة في إجراء الماكرو بسبب قلة خبرتي في هذا المجال .. وأتمنى ممن لديه خبرة أن يفيدني ويساعدني .. ولكم جزيل الشكر والامتنان ..

في ملف وورد

لدي مربعان يحتوي كل منهما على صورة ..

وقد قمت بإجراء ماكرو ليضع الصور مباشرة كملأ للمربعان ..

وهو كالتالي :

Sub Macro1()
'
' Macro1 Macro
' Macro recorded ‏22‏/08‏/2008 by Hassan AL Moamen
'
Dim z As String
z = InputBox("أدخل الرابط", vbokonlh)
    ActiveDocument.Shapes("Rectangle 4").Select
        Selection.ShapeRange.Fill.UserPicture _
        "C:\GetAttachment.jpg"
    ActiveDocument.Shapes("Rectangle 5").Select
        Selection.ShapeRange.Fill.UserPicture _
        "C:\DSC03750.jpg"
    
    End Sub

المشكلة التي واجهتني وأود حلها بمساعدتكم هي ..

أنني أود إدخال مسار الصور عن طريق الإنبت بوكس inputBox .. ويتم تعريفه بدلاً من c:\ الموجودة في الكود السابق .. حتى يكون مسار الصور متغير حسب التقرير وموقع الصور الخاصة به .. مع العلم بأن الصور سيكونون بنفس الاسم والمجلد أو المسار هو الذي سيتغير في كل مرة ..

بمعنى أنه في المثال السابق (التقرير السابق) مسار الصور هو :

C:\GetAttachment.jpg

C:\DSC03750.jpg

وفي تقرير آخر سيكون مسار الصور (مثلا) :

C:\1\GetAttachment.jpg

C:\1\DSC03750.jpg

وفي تقرير ثالث سيكون مسار الصور (مثلا) :

C:\2\GetAttachment.jpg

C:\2\DSC03750.jpg

وهكذا ...

فأنا أود إدخال مسار المجلد المحتوي على الصور كـ c:\2\ أو c:\1\ أو أي مجلد آخر

فأرجو منكم المساعدة في إكمال الماكرو ..

ولكم مني جزيل الشكر والامتنان ...

تم تعديل أغسطس 22, 2008 بواسطه حسن المؤمن

[علي سعد علي]

في انتظار الرد من الإخوة الأفاضل