[de-users] Diagramm in Calc mit Makro bearbeiten

[Stefan . Wilke]

Hallo Leute,

mit dem folgenden Makro erhalte ich in der Variablen "Bereich$" den Wert
des 2. Datenbereichs. Mein Problem ist nun wie ich diesen Wert per Makro
verändere.

Wer kann mir helfen?

   Sub Grafik

   DIM Doc As Object                                        'Aktuelles
   Dokument
   DIM Grafik As Object                                     'Grafik als
   Objekt
   DIM Datenreihen As Object                                'Datenreihen
   DIM Reihe As Object                                      'Einzelne
   Datenreihe
   DIM Bereich$                                       'Datenbereich als
   String

   Doc = ThisComponent

   'Flaeche für die Anzeige definieren
   DIM Flaeche As New com.sun.star.awt.Rectangle
      Flaeche.X = 500
      Flaeche.Y = 500
      Flaeche.Width = 17000
      Flaeche.Height = 10000

   'Datenzellen festlegen
   DIM Datenzellen(0) As New com.sun.star.table.CellRangeAddress
      Datenzellen(0).Sheet = 1                        '2. Arbeitsblatt
      Datenzellen(0).StartColumn = 0                  'Spalte A
      Datenzellen(0).StartRow = 5               'Zeile 6
      Datenzellen(0).EndColumn = 3              'Spalte D
      Datenzellen(0).EndRow = 17                'Zeile 18

   'Grafik erzeugen und in Variable speichern
   Doc.Sheets(0).Charts.AddNewByName( "GA" , Flaeche() , Datenzellen() ,
   True , True )
   Grafik = Doc.Sheets(0).Charts.GetByName( "GA" ).EmbeddedObject
   '.UsedData

   'Grafiktyp
   Grafik.Diagram = Grafik.CreateInstance( "com.sun.star.chart.BarDiagram"
   )

   'Datenreihen
   Datenreihen = Grafik.UsedData.DataSequences
   Reihe = Datenreihen(2).GetValues
   Bereich$ = Reihe.SourceRangeRepresentation

   End Sub


Mit freundlichen Grüßen

Stefan Wilke