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: 63528 Skopiuj do schowka Granice zakresu osi
Autor Wiadomość
iwan97513
forumowicz


Posty: 24
Wysłany: 17-12-2018, 13:48   Granice zakresu osi

Cześć ,
Czy da się w jakiś sposób odwołać granice osi ( maksimum i minimum) do wartości z komórki ?

Dzięki za pomoc:)

p1.png
Plik ściągnięto 10 raz(y) 19.24 KB

ID posta: 358587 Skopiuj do schowka
 
 
jkb1906 
Exceloholic


Wersja: Win Office 365
Pomógł: 29 razy
Posty: 133
Wysłany: 17-12-2018, 14:16   

Cześć,

Można z poziomu VBA. Poniżej fragmenty kodu zmieniające min i max dla aktywnego wykresu i pobierające wartości ze wskazanych komórek.
Kod:
    ActiveChart.Axes(xlValue).MinimumScale = Worksheets(1).Range("A1").Value
    ActiveChart.Axes(xlValue).MaximumScale = Worksheets(1).Range("A2").Value
ID posta: 358589 Skopiuj do schowka
 
 
iwan97513
forumowicz


Posty: 24
Wysłany: 17-12-2018, 20:51   

Niestety nie działa , zapewne dlatego że mam bardziej rozbudowany wykres (załącznik)
zakres osi dotyczy wykresu 1 od góry (wykres ganta)

Harmonogram-6.12.2018.19.56 (1).xlsm
Pobierz Plik ściągnięto 17 raz(y) 236.86 KB

ID posta: 358612 Skopiuj do schowka
 
 
jkb1906 
Exceloholic


Wersja: Win Office 365
Pomógł: 29 razy
Posty: 133
Wysłany: 18-12-2018, 09:25   

Oczywiście, że działa tylko trzeba było dostosować kod do Twojego pliku.
Nie doprecyzowałeś, którą osią chcesz sterować. Po wartościach na screenie z pierwszego posta domyśliłem się, że chodzi o oś pionową i zmianę dat. Zatem dodatkowo należy przekonwertować datę na liczbę za pomocy funkcji CLng ;-)

Ustawiłem tak, że granice zaczytują się z komórek P1 i Q1. Wykres aktualizujesz przyciskiem obok tych wartości.
Kod:
Sub ZmienZakres()
    Sheets("Harmonogram").Select
    ActiveSheet.ChartObjects("Wykres 1").Activate
    With ActiveChart.Axes(xlValue)
        .MinimumScale = CLng(Range("P1").Value)
        .MaximumScale = CLng(Range("Q1").Value)
    End With
    Range("P1").Select
End Sub


Harmonogram-6.12.2018.19.56 (2).xlsm
Pobierz Plik ściągnięto 17 raz(y) 239.96 KB

ID posta: 358647 Skopiuj do schowka
 
 
z-kes 
Stały bywalec Excelforum


Pomógł: 29 razy
Posty: 433
Wysłany: 20-12-2018, 23:56   

Hej
Ostatnio czytałem jakiegoś Guru wykresowego :bla o rozwiązaniu umożliwiającym wrzucić maksimum i minimum z komórki ale bez VBA... pod warunkiem, że faktycznie to jest min i max zbioru wartości pozakazywanych na wykresie. Zakładam, że też Ci o to chodziło :roll:

Oczywiście to był tylko trick a nie faktyczne połączenie właściwości wykresu z komórką.

Wystarczy jak w dwóch komórkach policzysz wartość min/max. Te dwa punkty wrzucasz na wykres jako nowa seria. Robisz z tego wykres punktowy i ustawiasz znaczniki serii na brak.

W załączniku jest przykład jak ustawić na 3 wykresach te same wartości min/max bez VBA. Nie usuwałem znaczników wykresu punktowego.

D.

wyk min_max.xlsx
Pobierz Plik ściągnięto 14 raz(y) 21.84 KB

ID posta: 358857 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