إدراج صور كخلفية في مصنف Excel من خلال VB.NET
صفحة 1 من اصل 1 • شاطر
إدراج صور كخلفية في مصنف Excel من خلال VB.NET
بسم الله الرحمن الرحيم
أهلا وسهلا بكم إخوانى الكرام ....فى هذا الدرس البسيط سنتعلم سويا كيفية أدراج صورة كلفية فى مصنف أكسل من خلال الفجوال بيسك دوت نت وذلك من خلال استخدام الاسلوب SetBackgroundPicture التابع للكائن worksheet :
الخطوات على النحو التالى :
1_ قم بإنشاء مشروع جديد و إضافة زر امر على النافذة
2_ أضف المكتبة Microsoft Excel Object Library الى المشروع و ذلك من خلال الخطوات التالية :
_ من القائمة Projec حدد إضافة مرجع Add Reference كما فى الصورة التالية :
_ ضمن علامة التبويب COM تحديد موقع المكتبة Microsoft Excel Object Library ، ثم انقر فوق تحديد.
![إدراج صور كخلفية في مصنف Excel من خلال VB.NET Vb.net_excel_sheet2](https://2img.net/h/www.tutorialspoint.com/vb.net/images/vb.net_excel_sheet2.jpg)
3_ انقر نقرا مزدوجا فوق إطار التعليمات البرمجية، تحت الحدث Click من زر الامر نقوم بكتابة التعليمات التالية :
_ فى قسم التصريحات العامة نقوم باستيراد المكتبة :
تحياتى لكم
![Very Happy](/users/3211/33/39/82/smiles/1475747849.png)
أهلا وسهلا بكم إخوانى الكرام ....فى هذا الدرس البسيط سنتعلم سويا كيفية أدراج صورة كلفية فى مصنف أكسل من خلال الفجوال بيسك دوت نت وذلك من خلال استخدام الاسلوب SetBackgroundPicture التابع للكائن worksheet :
![إدراج صور كخلفية في مصنف Excel من خلال VB.NET 552395366](https://2img.net/h/www12.0zz0.com/2013/11/24/13/552395366.png)
1_ قم بإنشاء مشروع جديد و إضافة زر امر على النافذة
2_ أضف المكتبة Microsoft Excel Object Library الى المشروع و ذلك من خلال الخطوات التالية :
_ من القائمة Projec حدد إضافة مرجع Add Reference كما فى الصورة التالية :
_ ضمن علامة التبويب COM تحديد موقع المكتبة Microsoft Excel Object Library ، ثم انقر فوق تحديد.
![إدراج صور كخلفية في مصنف Excel من خلال VB.NET Vb.net_excel_sheet2](https://2img.net/h/www.tutorialspoint.com/vb.net/images/vb.net_excel_sheet2.jpg)
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
- الكود:
xlApp = CreateObject("Excel.Application")
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")
- الكود:
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](/users/3211/33/39/82/smiles/1475747849.png)
![Very Happy](/users/3211/33/39/82/smiles/1475747849.png)
![Very Happy](/users/3211/33/39/82/smiles/1475747849.png)
![Very Happy](/users/3211/33/39/82/smiles/1475747849.png)
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: إدراج صور كخلفية في مصنف Excel من خلال VB.NET
موفق بإذن الله ....شكرا على الدرس
السنى- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 465
التقيم : 26
الجنس :
رد: إدراج صور كخلفية في مصنف Excel من خلال VB.NET
درس ممتاز و شرح روعة .....لكن الصورة مفزعة للغاية
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
Solutions1- ..
- تاريخ التسجيل : 31/08/2013
المساهمات : 22
النقاط : 30
التقيم : 0
الدولة :
الجنس :
رد: إدراج صور كخلفية في مصنف Excel من خلال VB.NET
طيب الاهمية او الاستفادة فى ذلك اية =D
المبرمج الطموح- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 207
النقاط : 368
التقيم : 17
الدولة :
الجنس :
رد: إدراج صور كخلفية في مصنف Excel من خلال VB.NET
المبرمج الطموح كتب:طيب الاهمية او الاستفادة فى ذلك اية =D
سؤال وجيه برضوا
![Very Happy](/users/3211/33/39/82/smiles/1475747849.png)
![Very Happy](/users/3211/33/39/82/smiles/1475747849.png)
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: إدراج صور كخلفية في مصنف Excel من خلال VB.NET
المبرمج الطموح كتب:طيب الاهمية او الاستفادة فى ذلك اية =D
بسألك نفس السؤال ؟؟؟؟؟؟؟؟؟؟؟؟؟؟
1zaza- ...
- تاريخ التسجيل : 18/11/2018
المساهمات : 39
النقاط : 66
التقيم : 3
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
» مقاول تركيب ساندوتش بانل
» تصميم تطبيق جوال لمدرسة
» مظلات وسواتر في الرياض
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
» سواتر حديد
» تصميم تطبيق جوال لتوصيل المياه
» تصميم تطبيق جوال لصيانة المكيفات
» هناجر ومستودعات الرياض
» مظلات لكسان