Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ChartSpace

Forumthread: ChartSpace

ChartSpace
31.05.2006 12:09:48
Holger
Hallo Forum
Möchte in meinem Chartspace folgendes ändern:
1 Hintergrundfarbe
2 Beschriftung der X/Y-Achsen einfügen
3 Farbe des Liniendiagrammes ändern
Geht das ?
Wen ja wie !!
Folgender Code steht in der UserForm1:
Option Explicit

Private Sub ChartSpace1_DataSetChange()
End Sub


Private Sub UserForm_Activate()
Dim c
Dim c1
Spreadsheet1.ActiveSheet.Cells.Clear
Worksheets("Tabelle2").Range("A1:B2980").Copy
Spreadsheet1.ActiveSheet.Cells(1, 1).Paste
Application.CutCopyMode = False
ChartSpace1.Clear
ChartSpace1.Charts.Add
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).Type = c.chChartTypeLine
ChartSpace1.DataSource = Spreadsheet1
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimSeriesNames, 0, "B1"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, 0, "A1:A2980"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, 0, "B1:B2980"
ChartSpace1.Charts(0).HasLegend = False
ChartSpace1.Charts(0).HasTitle = True
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ChartSpace
01.06.2006 00:58:49
Nepumuk
Hallo Holger,
kleines Beispiel:
Option Explicit

Private Sub UserForm_Activate()
    Dim seriesNames(1)
    Dim categories(7)
    Dim values(7)
    Dim cht, c, axs
    
    seriesNames(0) = "Test"
    
    categories(0) = "Test 1"
    categories(1) = "Test 2"
    categories(2) = "Test 3"
    categories(3) = "Test 4"
    categories(4) = "Test 5"
    categories(5) = "Test 6"
    categories(6) = "Test 7"
    
    values(0) = 10
    values(1) = 22
    values(2) = 6
    values(3) = 41
    values(4) = 5
    values(5) = 14
    values(6) = 12
    
    Set cht = ChartSpace1.Charts.Add
    Set c = ChartSpace1.Constants
    cht.Type = c.chChartTypeLine
    
    cht.SetData c.chDimSeriesNames, c.chDataLiteral, seriesNames
    cht.SetData c.chDimCategories, c.chDataLiteral, categories
    cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
    cht.Interior.Color = RGB(100, 100, 100)
    Set axs = cht.Axes(0)
    axs.Font.Color = RGB(0, 255, 0)
    Set axs = cht.Axes(1)
    axs.Font.Color = RGB(255, 0, 0)
End Sub

Gruß
Nepumuk

Anzeige
AW: ChartSpace
01.06.2006 06:56:25
Holger
Hallo Nepumuk
Super ! Vielen Dank !
Kannst Du mir auch noch folgende Fragen beantworten:
- Linienfarbe ?
- Linienstärke ?
- Farbe der Zeichnungsfläche ?
- Titel der Rubrikenachse (X)? (soll "MW" sein)
Wie binde ich meinen Wertebereich (B1:B2980) in dein Makro ein, und ist es möglich das dann die „caregories(0)-(6)so bleiben ?
Kann mann eine Option zum drucken einbauen ?
Eine schnelle Antwort währe super !
Vielen Dank !
Gruß
Holger
Anzeige
AW: ChartSpace
01.06.2006 09:29:24
Holger
Hallo Nepumuk
Danke für die schnelle Antwort !
Leider bin ich in VBA nicht sehr Gut,kannst Du mir helfen ?
Gruß
Holger
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige