هل يمكن انشاء زر امر لتصوير صفحة الاكسل

[ابو راكان العودة]

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

اخواني هل يمكن وضع زر امر يقوم بتصوير الشاشة عندوعرض البيانات من صفحة الاكسل وشكرا 

[مختار حسين محمود]

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

Option Explicit
Sub paste_Picture()
    
    Dim UserRange As Range, OutputRange As Range
    Dim MyPrompt As String, MyTitle As String
    
    MyPrompt = "Select the range you would like to capture."
    MyTitle = "User Input Required"
    On Error Resume Next
    Set UserRange = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle, Default:=ActiveCell.Address, Type:=8)
    
    If UserRange Is Nothing Then End
    On Error GoTo 0
    
    UserRange.CopyPicture
     
    MyPrompt = "Select the range on which you would like to paste."
    MyTitle = "User Input Required"
    On Error Resume Next
    Set OutputRange = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle, Default:=ActiveCell.Address, Type:=8)
    
    If OutputRange Is Nothing Then End
    On Error GoTo 0
    
    OutputRange.PasteSpecial
    Selection.Formula = UserRange.Address
End Sub

 

[محمد حسن المحمد]

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

بمجرد قراءة الكود يشعر المرء بمجهود رائع وفكر ناصع ..لم أجرب الكود ولكنه صادر عن علم من أعلام أوفيسنا الذين لهم باع طويل وفضل كبير في مساعدة الآخرين...جزاكم الله خيرا والسلام عليكم.

 

[ابو راكان العودة]

اخي 

مختار حسين محمود

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

[مختار حسين محمود]

أستاذى محمد حسن

حقيقة الكود ليس لى بل من مقتنياتى مع التعديل بارك الله فيكم أستاذى الفاضل  تحياتى

أخى أبو راكان  بارك الله فيك تحياتى

[وجدي الحاج علي]

مجهود رائع شكرا اخ مختار

[مختار حسين محمود]

أشكرك أخى وجدى الحاج على  وأهلا و سهلا بك فى أوفيسنا

[saad abed]

اخى مختار

افكارك واكوادك ممتازة

وفقكم الله