ماكرو نسخ محتويات شيت محددة إلى شيت أخر على شكل صورة

[الجموعي]

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

 

الموضوع من عنوانه

 

ماكرو نسخ محتويات شيت محددة إلى شيت أخر على شكل صورة

 

كود الماكرو

Sub copyR()
    Sheets(1).Select
    Sheets("Sheet1").Range("A1:C13").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Sheets(2).Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

 نموذج مرفق

Copy pic.rar

 

 

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

بارك الله فيك أخي الحبيب الجموعي

 

تسجيل ماكرو (قافشك)

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

[الجموعي]

 

بارك الله فيك أخي الحبيب الجموعي

 

تسجيل ماكرو (قافشك)

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

 

 

جزاك الله خيرا على مروك الكريم أخي ياسر خليل

لم أفهم (قافشك)  

مع خالص إحتراماتي

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

أخي الحبيب أنا بداعبك ..

قافشك باللغة العامية المصرية يعني فاهم اللي عملته ومطنش عليه ...

تقبل احترامي وتقديري أخوك أبو البراء