أخي الكريم :
الكود مصمم بحيث يحفظ الملفات بإمتداد بي دي إف ومن الواجب أن يكون لأي ملف إسم وعليه يجب ان تشير إلى اسم ملف الحفظ الذي ترغب فيه إما عن طريق وظع الاسم في خلية مثلا أو داخل الكود
وإليك تعديل الكود لكن عند الضغط لتشغيل الكود سوف يظهر اسم الملف ثابت " محمد " ولابد لك عند اعادة استخدام الكود أن تدخل لنافذة البرمجة وتعدل الاسم
Sub Picture2_Click()
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "محمد", Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
أما أن يكون الاسم في خلية من وجهة نظري يجعل هناك مرونة في العمل وخاصة إذا كنت تريد تحفظ مثلا فواتير بأسماء عملاء أو شهادات واستخدام حلقة تكرارية