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

اذهب الى الأسفل

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

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

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


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

إدراج صور كخلفية في مصنف Excel من خلال VB.NET  552395366
الخطوات على النحو التالى :


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

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

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





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



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



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




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
المساهمات : 954
النقاط : 201719
التقيم : 113
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

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

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

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


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

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

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

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

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

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

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

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

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

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

شكرا
Solutions1
Solutions1
..
..

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

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

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

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

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

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

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

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

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] كتب:طيب الاهمية او الاستفادة فى ذلك اية =D

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

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

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

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

مُساهمة من طرف 1zaza في الثلاثاء نوفمبر 20, 2018 7:39 pm

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] كتب:طيب الاهمية او الاستفادة فى ذلك اية =D

بسألك نفس السؤال ؟؟؟؟؟؟؟؟؟؟؟؟؟؟
1zaza
1zaza
..
..

تاريخ التسجيل : 18/11/2018
المساهمات : 28
النقاط : 44
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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