En saa lisättyä tietoa kaavioon vaikka miten yritän. Onko toi mschart ainostaan valmiita kaavioita varten joita voi näyttää vbssä ja jos haluaa ohjelman sisällä lisätä tietoa kaavioihin niin täytyykö se tehdä ms exceli active xn kautta
yritin ainkai näin
dim xlChart as ExcelCtl.Chart
xlChart = Chart1
xlChart.Cells(2, 2).Value = 2
mut ei toiminu
Taisin löytää jo ratkasun en ollu tajunnu aktivoija excel objekteja...
No nyt onnituu mut ei läheskää äskeisellä tavalla
ChoBo kirjoitti:
No nyt onnituu mut ei läheskää äskeisellä tavalla
Etkö voisi jakaa tietosi täällä? Jos jollain tulee samanlainen ongelma, niin ei tarvitse päätä raapia puhki. :)
nomic kirjoitti:
Etkö voisi jakaa tietosi täällä? Jos jollain tulee samanlainen ongelma, niin ei tarvitse päätä raapia puhki. :)
toki toki iski vaan laiskuus ku ten tota ohjelmaa toiselta koneelta ja tällä xättään netis jne.
Mutta kumminki näin se onnistu:
Ensin piti aktivoida Excelin viittaukset Project-> References-> Microsoft Exel Object Library
Dim xlApp as Excel.Application
Dim xlBook as Excel.Workbook
Dim xlSheet as Excel.Worksheet
Dim xlChart as Excel.Chart
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
Set xlChart = xlBook.Charts.Add
xlSheet.Cells(2,2).Value = 2
xlChart.SetSourceData Source:=xlSheet.Range("B2:B2"), PlotBy:=xlColumns
Nuinhan se toimii ja jos haluaa vielä pitemmälle mennä niin kattoo vaan excelin objekteja View-> Object Browser-> Excel
Aihe on jo aika vanha, joten et voi enää vastata siihen.