ID tematu: 27606
 |
Kolory słupków wykresu takie jak wypełnienia komórek |
| Autor |
Wiadomość |
matines
Starszy Forumowicz
Posty: 40
|
 Wysłany: 2012-01-26, 19:37 Kolory słupków wykresu takie jak wypełnienia komórek
|
|
|
czy można zastosować jakiś automat by tworzony wykres bral kolory z wypełnień komórek.
Tak ja w załączniku.
kolory.zip
|
 Pobierz Plik ściągnięto 18 raz(y) 7.49 KB |
|
|
 | ID posta:
146328
|
|
|
 |
|
EXCELFORUM.pl POLECA - Bezplatne triki prosto na skrzynke email
|
tkuchta1 
Excel Expert
Pomógł: 1495 razy
Posty: 2270
|
| Wysłany: 2012-01-27, 19:22
|
|
|
zobacz | Kod: | Option Explicit
Sub Test()
Dim xlWks As Excel.Worksheet
Dim xlChr As Excel.Chart, xlPoint As Excel.Point
Dim xlSeries As Excel.Series
Dim XRange As Excel.Range, kom As Excel.Range, i As Long
Set xlWks = ThisWorkbook.Worksheets("Arkusz1")
Set xlChr = xlWks.ChartObjects("chrWykres1").Chart
Set xlSeries = xlChr.SeriesCollection(1)
With xlSeries
Set XRange = Application.Range(VBA.Split(.Formula, ",")(1))
For Each kom In XRange
i = i + 1
.Points(i).Format.Fill.ForeColor.RGB = kom.Interior.Color
Next
End With
Set XRange = Nothing
Set kom = Nothing
Set xlChr = Nothing
Set xlWks = Nothing
Set xlSeries = Nothing
End Sub |
kolory_t.zip
|
| Pobierz Plik ściągnięto 20 raz(y) 18.24 KB |
|
_________________
Tomek Moje Artykuły:
Algorytmy Sortujace, Wyrażenia Regularne,
Menadżer Funkcji NextNR, Unikaty
Moja Stronka
APoCoTenExcel
Ostatnia aktualizacja: 2012-03-17 |
|
 | ID posta:
146435
|
|
|
|
|
EXCELFORUM.pl POLECA - Bezplatne triki prosto na skrzynke email
|
matines
Starszy Forumowicz
Posty: 40
|
| Wysłany: 2012-02-02, 20:15
|
|
|
a jak mozna podegrać to pod inne wykresy?
ogolnie nie ogarniam VBA :( |
|
| ID posta:
147192
|
|
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
|
Dodaj temat do Ulubionych
Wersja do druku
|
| |
| |
Regulamin
