السلام عليكم ورحمة الله وبركاته
تحية طيبة لجميع الأعضاء ..
أحاول إعداد ورقة تقرير تحتوي على ماكرو لتسهيل العمل .. ولكني أجد صعوبة في إجراء الماكرو بسبب قلة خبرتي في هذا المجال .. وأتمنى ممن لديه خبرة أن يفيدني ويساعدني .. ولكم جزيل الشكر والامتنان ..
في ملف وورد
لدي مربعان يحتوي كل منهما على صورة ..
وقد قمت بإجراء ماكرو ليضع الصور مباشرة كملأ للمربعان ..
وهو كالتالي :
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\ أو أي مجلد آخر
فأرجو منكم المساعدة في إكمال الماكرو ..
ولكم مني جزيل الشكر والامتنان ...