24. november 2004 - 11:13Der er
22 kommentarer og 1 løsning
Embeded Excel i VB - tilføje dataserie i graf
Hvordan tilføjer jeg en dataserie i en graf i et indlejret Excelobjekt? Har forsøgt med nedenstående kode, men det virker ikke :-(
Option Explicit
Public Book As Excel.Workbook
Private Sub Form_Load() Set Book = Sheet1.Object
Dim oChtObj As ChartObject Set oChtObj = Book.ActiveSheet.ChartObjects("Diagram 1") oChtObj.Chart.SeriesCollection.Add _ Source:=Book.ActiveSheet.Range("A14:E14") End Sub
Private Sub Form_Load() Set Book = ActiveWorkbook Dim oChtObj As Excel.ChartObject Set oChtObj = Book.ActiveSheet.ChartObjects("Chart 1") oChtObj.Chart.SeriesCollection.Add _ Source:=Book.ActiveSheet.Range("A14:E14") End Sub
Set Book = Excel.Workbooks.Open("C:\tester.xls") Dim oChtObj As Excel.ChartObject Set oChtObj = Book.Sheets(1).ChartObjects("Chart 1") oChtObj.Chart.SeriesCollection.Add _ Source:=Book.Sheets(1).Range("A14:E14") Book.Close savechanges:=True Set Book = Nothing
Nej - jeg har et Excelobjekt i VB hentet ind via ToolBox Højrklik og Components,hvor jeg valgte fanen "Insertabel objects" og objektet "Microsoft Excel regneark"
Jeg forstaar ikke helt hvorfor du ikke bibeholder graf og data som separate objekter naar du arbejder i VB. Du kan tilfoeje hhv en excel tabel med data og et msgrpah object istedet.
Public Book As Excel.Workbook Private Sub Form_Load() Set Book = Sheet1.object
Dim oChtObj As ChartObject Set oChtObj = Book.ActiveSheet.ChartObjects("Diagram 1")
Set ns = oChtObj.Chart.SeriesCollection.NewSeries Antal = oChtObj.Chart.SeriesCollection.Count oChtObj.Chart.SeriesCollection(Antal).Values = Book.ActiveSheet.Range("A14:E14") End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
