كيفية إنشاء تخطيط Excel w/OLE التنفيذ من Visual Basic

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية142387
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
يوضح هذا المقال كيف يمكنك استخدام التنفيذ في برنامج Visual Basic لإنشاء مصنف Excel الذي يحتوي على مخطط مضمن في ورقة عمل.
معلومات أخرى

الخطوات التالية لإنشاء برنامج مثال

  1. بدء مشروع جديد في Visual Basic. يتم إنشاء Form1 بشكل افتراضي.
  2. إضافة زر أمر (Command1) إلى Form1.
  3. قم بإضافة التعليمات البرمجية التالية إلى إجراء الحدث Command1_Click:
      Private Sub Command1_Click()       Dim oXL As Object        ' Excel application    Dim oBook As Object      ' Excel workbook    Dim oSheet As Object     ' Excel Worksheet    Dim oChart As Object     ' Excel Chart        Dim iRow As Integer      ' Index variable for the current Row    Dim iCol As Integer      ' Index variable for the current Row        Const cNumCols = 10      ' Number of points in each Series    Const cNumRows = 2       ' Number of Series        ReDim aTemp(1 To cNumRows, 1 To cNumCols)        'Start Excel and create a new workbook    Set oXL = CreateObject("Excel.application")    Set oBook = oXL.Workbooks.Add    Set oSheet = oBook.Worksheets.Item(1)        ' Insert Random data into Cells for the two Series:    Randomize Now()    For iRow = 1 To cNumRows       For iCol = 1 To cNumCols          aTemp(iRow, iCol) = Int(Rnd * 50) + 1       Next iCol    Next iRow    oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = aTemp        'Add a chart object to the first worksheet    Set oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart    oChart.SetSourceData Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols)    ' Make Excel Visible:    oXL.Visible = True    oXL.UserControl = True        End Sub					
  4. اضغط المفتاح F5 لتشغيل البرنامج ثم انقر فوق زر الأمر.
يبدأ Microsoft Excel النتائج: ، يتم إنشاء مصنف جديد. تتم إضافة بيانات عشوائية إلى الخلايا A1:J2 والمضمّنة تخطيط على ورقة العمل الأولى. يستخدم التخطيط المضمن بيانات عشوائية مصدر البيانات الخاص به.

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 142387 - آخر مراجعة: 12/04/2015 12:58:16 - المراجعة: 4.3

Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 97 Standard Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 5.0 Enterprise Edition

  • kbnosurvey kbarchive kbmt kbhowto kbprogramming KB142387 KbMtar
تعليقات