Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 65796 Skopiuj do schowka kolory w komórkach a wygląd wykresu
Autor Wiadomość
qbik_84 
Exceloholic


Posty: 205
Wysłany: 12-08-2019, 15:15   kolory w komórkach a wygląd wykresu

Witam

Potrzebuje pomocy, nie wiem czy jest to możliwe do wykonania więc pytam :)

Mianowicie na wykresie z załącznika mamy kolumne A znajduje się tam 26 liczb każda komórka ma inny kolor, czy da się przenieś te kolory do wykresu tak żeby każdy słupek odpowiadający danej komórce-wartości był takiego koloru jak w tabelce

Z góry dziękuje za pomoc

Zeszyt1wykres.xls
Pobierz Plik ściągnięto 41 raz(y) 37 KB

ID posta: 372459 Skopiuj do schowka
 
 
kuma 
Excel Expert


Wersja: Win Office 2010
Pomógł: 1367 razy
Posty: 3945
Wysłany: 12-08-2019, 20:28   

Można to zrobić, np. tak.
Kod:
Sub WykresKoloryWłasne_kuma()
   Dim i As Integer
   Dim adres As String
   Dim rng As Range
   
   Application.ScreenUpdating = False
    With Sheets(1)
        Set rng = .Range("A6:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
        adres = ActiveCell.Address
        .ChartObjects("Wykres 2").Activate
        With ActiveChart.SeriesCollection(1)
          For i = 1 To rng.Rows.Count
              .Points(i + 4).Format.Fill.ForeColor.RGB = rng.Cells(i).Interior.Color
          Next
        End With
      .Range(adres).Select
   End With
   Set rng = Nothing
End Sub
_________________
Pozdrawiam.
ID posta: 372480 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
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

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe