بسم الله الرحمن الرحيم 


أهلا وسهلا بكم إخوانى الكرام ....فى هذا الدرس البسيط سنتعلم سويا كيفية أدراج صورة كلفية فى مصنف أكسل من خلال الفجوال بيسك دوت نت وذلك من خلال استخدام الاسلوب SetBackgroundPicture التابع للكائن worksheet :

الخطوات على النحو التالى :


1_ قم بإنشاء مشروع جديد و إضافة زر امر على النافذة 

2_ أضف المكتبة  Microsoft Excel Object Library الى المشروع و ذلك من خلال الخطوات التالية :

_    من القائمة Projec حدد إضافة مرجع Add Reference كما فى الصورة التالية :




_ ضمن علامة التبويب COM تحديد موقع المكتبة Microsoft Excel Object Library ، ثم انقر فوق تحديد.







3_ انقر نقرا مزدوجا فوق إطار التعليمات البرمجية، تحت الحدث Click من زر الامر نقوم بكتابة التعليمات التالية :


_ فى قسم التصريحات العامة نقوم باستيراد المكتبة :

الكود:

Imports Excel = Microsoft.Office.Interop.Excel

_ فى حدث النقر لزر الامر نقوم بالاعلان عن الكائنات التى تستخدم فى إنشاء مصنف أكسل على النحو التالى :

الكود:

Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value

_ ثم نقوم بعد ذلك بإنشاء مصنف أكسل Workbook و ورقة العمل worksheet على النحو التالى :

الكود:

 xlApp = CreateObject("Excel.Application")
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")

_ بعد ذلك نقوم بأستدعاء الاسلوب SetBackgroundPicture لادراج الصورة كخلفية للمصنف مع تحديد أسم و مسار الصورة على النحو التالى :

الكود:

 xlWorkSheet.SetBackgroundPicture("C:\xl_pic.JPG")

_ أخير نقوم بحفظ مصنف الاكسل الذى تم إنشاءة مع إغلاق جميع الكائنات المستخدمة فى العمل على النحو التالى :

الكود:

 xlWorkSheet.SaveAs("C:\vbexcel.xlsx")

        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)

و الشفرة الكاملة على النحو التالى :

الكود:

Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles Button1.Click

        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value

        xlApp = CreateObject("Excel.Application")
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")

        'set back ground
        'replace your background picture to xl_pic.JPG
        xlWorkSheet.SetBackgroundPicture("C:\xl_pic.JPG")

        xlWorkSheet.SaveAs("C:\vbexcel.xlsx")

        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)

        MsgBox("Excel file created , you can find the file c:\")
    End Sub

    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Class

تحياتى لكم    

موفق بإذن الله ....شكرا على الدرس

درس ممتاز و شرح روعة .....لكن الصورة مفزعة للغاية

شكرا

طيب الاهمية او الاستفادة فى ذلك اية =D

المبرمج الطموح كتب:طيب الاهمية او الاستفادة فى ذلك اية =D

سؤال وجيه برضوا

المبرمج الطموح كتب:طيب الاهمية او الاستفادة فى ذلك اية =D

بسألك نفس السؤال ؟؟؟؟؟؟؟؟؟؟؟؟؟؟