إدراج صور كخلفية في مصنف Excel من خلال VB.NET

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

إدراج صور كخلفية في مصنف Excel من خلال VB.NET

مُساهمة من طرف أحمد مناع في الأحد نوفمبر 24, 2013 1:09 pm

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


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

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


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

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

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





  1.  



_ ضمن علامة التبويب 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

تحياتى لكم Very Happy Very Happy Very Happy Very Happy

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إدراج صور كخلفية في مصنف Excel من خلال VB.NET

مُساهمة من طرف السنى في الخميس نوفمبر 28, 2013 8:23 pm


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

السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إدراج صور كخلفية في مصنف Excel من خلال VB.NET

مُساهمة من طرف VB.NET في السبت ديسمبر 07, 2013 9:56 am

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

VB.NET
المراقبين
المراقبين

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 185
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إدراج صور كخلفية في مصنف Excel من خلال VB.NET

مُساهمة من طرف Solutions1 في الخميس أكتوبر 16, 2014 6:43 am

شكرا

Solutions1
..
..

تاريخ التسجيل : 31/08/2013
المساهمات : 22
النقاط : 30
التقيم : 0
الدولة : السعودية
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إدراج صور كخلفية في مصنف Excel من خلال VB.NET

مُساهمة من طرف المبرمج الطموح في الإثنين نوفمبر 02, 2015 9:29 am

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

المبرمج الطموح
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 213
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إدراج صور كخلفية في مصنف Excel من خلال VB.NET

مُساهمة من طرف NEXT في الإثنين نوفمبر 02, 2015 8:26 pm

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

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

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى