Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Diagrame anpassen

Diagrame anpassen
16.10.2006 10:57:51
Lueckii
Hallo zusammen!
Ich habe 17 Diagramme auf einem Excel Sheet.
Jetzt möchte ich in jedem Sheet die Farbe der Linien wechseln.
Allerdings funktioniert der untere Code nicht so ganz. Wie könnte ich den umschreiben, daß in jedem Diagramm die Farbe geändert wird?
Dim shp As Diagramm
Dim g As Variant
For g = 1 To 17
For Each shp In ActiveSheet
If shp.Type = msoOLEObject Then
ActiveSheet.ChartObjects.Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
End If
Next
Next
End Sub
Mfg
Martin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagrame anpassen
16.10.2006 11:17:02
Harald
Moin Martin,
versuchs mal so.

Sub Makro1()
Dim g As Integer
For g = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(g).Activate
'das was mit dem Diagramm passieren soll
Next g
End Sub

Gruss Harald
AW: Diagrame anpassen
16.10.2006 12:51:33
lueckii
Danke Harald.
hat super funktioniert
Gruß Martin
Danke für die Rückmeldung owT
16.10.2006 12:56:40
Harald
Gruss Harald
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige