Dinamik olarak Excel 5.0 oluþturma OLE 2.0 denetim grafikleri

1. OLE denetimi yeni bir grafik katýþtýrmak için <a0></a0>, Excel.Chart veya Excel.Chart.5 Class özelliðini ayarlayýn. Her iki (Excel.Chart ve Excel.Chart.5) için Excel grafikleri sýnýflardýr. Ancak Excel.Chart.5 baðýmlý deðildir; bu, Excel sürüm 5.0 grafik nesnesi belirtir.
2. Nesne için OLE_CREATE_EMBED Action özelliðini ayarlayarak oluþturun. Bu, varsayýlan Excel'den bir grafik (Grafik1) OLE denetimi içine katýþtýrýr. Grafik (Grafik1) içeren de varsayýlan çalýþma (veri saðlamak için Sheet1) grafik için bir varsayýlan çalýþma kitabýný (Kitap1) bir parçasýdýr.
3. Nesne deðiþkenlerini, OLE Otomasyonu ile grafik iþlemek için gereken <a1>Excel</a1> nesneleri için baþvuracak biçimde ayarlayýn. Kodunuzu bu daha küçük ve anlamak daha kolay hale getirir.
4. Grafiði biçimlendirmek için Grafik Sihirbazý yöntemini çaðýrýn.

Üste

Baþvuru Excel nesneleri için nesne deðiþkenlerini ayarlama

   Const OLE_CREATE_EMBED = 0
   Ole1.Class = "Excel.Chart.5"
   Ole1.Action = OLE_CREATE_EMBED
   Ole1.Object.HasTitle = 1
   Ole1.Object.ChartTitle.Caption = "Expenses"
				

   Const OLE_CREATE_EMBED = 0
   Dim objChart as Object
   Dim objChartTitle as Object
   Ole1.Class = "Excel.Chart.5"
   Ole1.Action = OLE_CREATE_EMBED
   Set objChart = Ole1.Object
   Set objChartTitle = Ole1.Object.ChartTitle
   objChart.HasTitle = 1
   objChartTitle.Caption = "Expenses"
				

• Bir grafiðe baþvuru.
• Bir çalýþma sayfasýna baþvuru.
• Bir uygulama nesnesine baþvuru yapan.

Üste

Bir grafik biçimi için Grafik Sihirbazý yöntemi çaðýrma

-----------------------------------------------------------
|                | Category 1 Label | Category 2 Label |
-----------------------------------------------------------
| Series 1 Label | Data Value       | Data Value       |
-----------------------------------------------------------
| Series 2 Label | Data Value       | Data Value       |
 -----------------------------------------------------------
|                |                  |                  |
				

Üste

Grafik Sihirbazý sözdizimi, Parametreler ve açýklamalarý

Parameter       Description
--------------  -------------------------------------------------
Object          The Chart object.
Source          Specifies range that contains source data for the chart.
Gallery         Specifies chart type (see constants in example.)
Format          Specifies built-in autoformat.
PlotBy          Specifies orientation of the data (xlRows or xlColumns.)
CategoryLabels  The number of rows or columns containing category labels.
SeriesLabels    The number of rows or columns containing series labels.
HasLegend       Specifies if chart has a legend.
Title           The title text of the chart.
CategoryTitle   Category axis title text.
ValueTitle      Value axis title text.
ExtraTitle      Additional axis title text for some charts.
				

• PlotBy
• CategoryLabels
• SeriesLabels

Üste

Adým adým örnek

1. Yeni bir proje için Visual Basic'te baþlatýn. Varsayýlan olarak, Form1 oluþturulur.
2. Form1'e bir OLE 2.0 denetimi ekleyin ve Nesne Ekle iletiþim kutusunda <a2>iptal</a2> düðmesini týklatýn.
3. Bir KomutDüðmesi (Command1) Form1'e ekleyin.
4. Yerine aþaðýdaki kodu KomutDüðmesi olay'ý týklatýn.

          Private Sub cmdPrint_Click()
             Me.PrintForm
         End Sub
   
            Private Sub cmdQ147803_Click()
   
               ' Excel chart constants (ODK 1.0 XLCONST.BAS or MsgBox
               ' in Excel):
               Const xlArea = 1
               Const xlBar = 2
               Const xlColumn = 3
               Const xlLine = 4
               Const xlPie = 5
               Const xlRadar = -4151
               Const xlXYScatter = -4169
               Const xlCombination = -4111
               Const xl3DArea = -4098
               Const xl3DBar = -4099
               Const xl3DColumn = -4100
               Const xl3DLine = -4101
               Const xl3DPie = -4102
               Const xl3DSurface = -4103
               Const xlDoughnut = -4120
   
               ' Excel orientation constants:
               Const xlRows = 1
               Const xlColumns = 2
   
               Dim objChart As Object           'Object reference to Excel
                                                'Chart
               Dim objXL As Object              'Object reference for Excel
                                                 App
               Dim objSheet As Object           'Object reference to Excel
                                                'Worksheet
               Dim iRow As Integer              'Index variable for the
                                                'current Row
               Dim iCol As Integer              'Index variable for the
                                                'current Row
               Dim cRows As Integer             'Number of rows
               Dim cCols As Integer             'Number of Columns
               Dim cwSource As String           'Named Range
               Static cwGallery(15) As Integer  'Array for Chart types
               Static iGallery As Integer       'Index for Chart type array
               Dim cwFormat As Integer          'Format of Chart type
               Dim cwPlotBy As Integer          'How data is taken from
                                                'Worksheet
               Dim cwCategoryLabels As Integer  'Rows/Cols with Catagory
                                                'labels
               Dim cwSeriesLabels As Integer    'Rows/Cols with Catagory
                                                'Labels
               Dim cwHasLegend As Integer       'Display Legend
               Dim cwTitle As String            'Chart Title
               Dim cwCategoryTitle As String    'Category Title
               Dim cwValueTitle As String       'Value Title
               Dim cwExtraTitle As String       'Extra Title for some Charts
                                                'disable this button
               cmdQ147803.Enabled = False
               ' Fill in array with possible Chart types:
               cwGallery(1) = xlArea
               cwGallery(2) = xlBar
               cwGallery(3) = xlColumn
               cwGallery(4) = xlLine
               cwGallery(5) = xlPie
               cwGallery(6) = xlRadar
               cwGallery(7) = xlXYScatter
               cwGallery(8) = xlCombination
               cwGallery(9) = xl3DArea
               cwGallery(10) = xl3DBar
               cwGallery(11) = xl3DColumn
               cwGallery(12) = xl3DLine
               cwGallery(13) = xl3DPie
               cwGallery(14) = xl3DSurface
               cwGallery(15) = xlDoughnut
   
               ' Embed a new Excel 5.0 Chart into the OLE control:
               OLE1.CreateEmbed "", "Excel.Chart.5"
               'BEGIN FIX FOR DIFFERING OBJECT MODELS BETWEEN VERSIONS 7 & 8
               ' Set object references to Chart, Worksheet, and Application
               'objects:
               If Left(OLE1.object.Application.Version, 1) = "7" Then
               'Excel 95's object model is different from Excel 97's
                 Set objChart = OLE1.object ' Chart1 default chart
               Else  'assume all future excel object models are going to be
                     'the same
               Set objChart = OLE1.object.ActiveChart 'ole1.object is in
                                                      'Excel 97 the workbook
               End If
               Set objSheet = objChart.Parent.Worksheets(1) ' Sheet1 default
                                                            ' data
   
               Set objXL = objChart.Application
               'END FIX
               ' Set the number of columns and rows used for data:
               cCols = 10
               cRows = 3
   
               ' Create Series Labels on Worksheet:
               For iRow = 1 To cRows
                  objSheet.Cells(iRow + 1, 1).Value = "SL" & iRow
               Next
   
               ' Create Category Labels on Worksheet:
               For iCol = 1 To cCols
                  objSheet.Cells(1, iCol + 1).Value = "CL" & iCol
               Next
               'exiting here leaves the default chart drawn with sample data
               ' Create random data on Worksheet:
               Randomize Timer
               For iRow = 1 To cRows
                  For iCol = 1 To cCols
                     objSheet.Cells(iRow + 1, iCol + 1).Value = _
                  Int(Rnd * 50) + 1
               Next iCol
               Next iRow
   
               ' Name the Range containing the previously added data:
               objSheet.Range(objSheet.Cells(1, 1), objSheet.Cells(cRows + _
               1, cCols + 1)).Name = "ChartDataRange"
               'objSheet.Range(objSheet.Cells(1, 1), objSheet.Cells(cRows + _
               1, cCols + 1)).Clear
               ' Set the ChartWizard parameters:
               cwSource = "ChartDataRange"       'Name of Named Range
               iGallery = iGallery Mod 15 + 1    'Iterate through 15 Chart
                                                 'types
               cwFormat = 1                      'Use default format of Chart
                                                 'Type
               cwPlotBy = xlRows                 'Rows = Series orientation
               cwCategoryLabels = 1              '1 Row contains Category
                                                 'Labels
               cwSeriesLabels = 1                '1 Column contains Series
                                                 'Labels
               cwHasLegend = 1                   'Display the Legend
               cwTitle = "Embedded Chart"        'Chart Title
               cwCategoryTitle = "Categories"    'Category Title
               cwValueTitle = "Values"           'Value Title
               cwExtraTitle = "Extras"           'Extra Title
   
               ' Use the ChartWizard method to fill in the Chart:
               objChart.ChartWizard cwSource, cwGallery(iGallery), cwFormat,
               cwPlotBy, cwCategoryLabels, cwSeriesLabels, cwHasLegend,
               cwTitle,cwCategoryTitle, cwValueTitle, cwExtraTitle
               ' Shut Down Excel and erase objects:
               Set objXL = Nothing
               Set objChart = Nothing
               Set objSheet = Nothing
               'enable this button
               cmdQ147803.Enabled = True
            End Sub
   
         Private Sub cmdXLView_Click()
               OLE1.DoVerb vbOLEOpen
         End Sub
   						

5. Projeyi kaydedin.
6. Programý çalýþtýrmak ve Command1 düðmesini týklatýn. Ilk grafik oluþturulmalýdýr.
7. 15 Galerisi grafik türlerini biçim 1 arasýnda geçiþ yapmak için Command1 düðmesi tutun.

Üste

NOTLAR

• OLE denetimindeki bir grafiði deðiþtirmek için <a0></a0>, size denetimi ilk fiil özelliði, -1 için (Düzenle) ayarý ve sonra iþlemi ayarlama etkinleþtirmelisiniz özelliði, 7 (OLE_ACTIVATE). Nesne özelliði, daha sonra etkin bir nesneye baþvuruyor.
• Örnek biçim 1 ile Grafik Sihirbazý yöntemi kullanýr. Diðer deðerleri denemek isteyebilirsiniz.
• Grafik Sihirbazý</a0> yöntemini kullandýktan sonra nesneleri, yöntemleri ve grafik nesnesinin özelliklerini deðiþtirmek için kullanmaya devam edebilirsiniz.
• OLE denetimi çift týklatarak veya sað fare düðmesiyle týklatýp açýlýr menüden düzen seçme grafiði düzenlemek kullanýcýlar yükleyebilirler. OLE denetimi AutoActivate ve AutoVerbMenu özelliklerini ayarlayarak, bu beceriyi ortadan kaldýrabilirsiniz.

Üste