تحميل صورة كعنوان للورقة بالكود

[me4you]

السلام عليكم

اخواني لو تكرمتم بحاجة إلى كود لتحميل صورة كعنوان للورقة عند الطباعة

مرفق ملف بسيط للتوضيح

ولكم الشكر

Load Header.rar

[me4you]

السلام عليكم .... وجدت الحــل

  If .Show = -1 Then
        ActiveSheet.PageSetup.CenterHeaderPicture.Filename = .SelectedItems(1)
        ActiveSheet.PageSetup.CenterHeader = "&G"
        ActiveSheet.PrintPreview
    End If

تقبلوا تحياتي