Hej!
Jag har en större excel-fil där data hämtas ifrån en databas och exporteras till Excel där grafer bildas. Färgen på de olika delarna av grafen styrs av en funktion där man fyller i en cell i ett annat worksheet och koden läser av det. Problemet är att koden endast fungerar så länge det är enfärgat, nu vill jag kunna använda mig av mönster, det vill säga välja Format Cell -> Fill -> Pattern style. Därför måste jag lägga till en rad i koden som säger att den ska färga grafen likadant som cellen även om den har valt en pattern style. Jag kopierar koden till den delen av funktionen som är relevant. Min teori är att man ska skriva Fullseriescollection(i) och bygga vidare på det på en ny rad längst ner på den första Else-stycket. Om mer av koden till hela funktionen behövs eller några frågor uppstår svarar jag direkt.
For i = 1 To serCount
If i = serCount + 1 Then Exit For
If .SeriesCollection(i).Name = "" Or inCollection(.SeriesCollection(i).Name, excludedCol) Then
.SeriesCollection(i).Delete
i = i - 1
serCount = serCount - 1
Else
If inCollection(.SeriesCollection(i).Name, areaCol) Then
.FullSeriesCollection(i).ChartType = xlAreaStacked
.FullSeriesCollection(i).Format.Fill.ForeColor.rgb = _
getRGB(findInSub(setupAC, findInCategory(tables, _
Right(tbl.Name, Len(tbl.Name) - 3)).offset(0, 5), areaC, _
.SeriesCollection(i).Name))
Else
.FullSeriesCollection(i).ChartType = xlLineStacked
.FullSeriesCollection(i).Format.line.Weight = 2.5
.FullSeriesCollection(i).Format.line.ForeColor.rgb = _
getRGB(findInSub(setupLC, findInCategory(tables, _
Right(tbl.Name, Len(tbl.Name) - 3)).offset(0, 6), lineC, _
.SeriesCollection(i).Name))
End If
End If
Hoppas det inte blev för rörigt. All hjälp uppskattas verkligen! Tack på förhand!
MVH, Johan