[Γράφημα] ΓΡΑΦΗΜΑ ΔΙΑΣΠΟΡΑΣ ΧΥ

[Dimitris Ch]

Καλησπέρα σε όλη την κοινότητα

Θα ήθελα να ζητήσω και εγώ λίγη βοήθεια

Έχω δεδομένα σε ένα φύλλο σε 3 στήλες Α,Β,C
Η πρώτη στήλη έχει τις τιμές του άξονα Χ
Η δεύτερη του άξονα Ψ
και η τρίτη το χρώμα που θέλω για το κάθε σημείο
Ενώ κατασκευάζω γράφημα με τις 2 στήλες και τοποθετούνται τα σημεία σωστά δεν μπορώ να τα καταφέρω με τον χρωματισμό
Κάθε βοήθεια δεκτή


ΕΥΧΑΡΙΣΤΩ εκ των προτέρων
Δημήτρης

[gr8styl]

Φίλε Δημήτρη καλώς όρισες στην παρέα μας.

Σε παρακαλώ στο μέλλον πάψε να φωνάζεις.
Τα κεφαλαία γράμματα δείχνουν φωνές και φασαρία απόφυγε λοιπόν να γράφεις με κεφαλαία.

Για το ερώτημά σου τώρα δες το συννημένο που περιέχει και 10 γραμμές κώδικα για να γίνει το ζητούμενο.

Πες μας αν έγινε

Φιλικά
Θανάσης

[Dimitris Ch]

Σορρυ για τα κεφαλαία. Οπως είδες όμως τα είχα μόνο στον τίτλο....χα χα
Ευχαριστώ για τον χρόνο σου
Με κάλυψες απόλυτα

Φιλικά Δημήτρης

[Dimitris Ch]

Μια μικρη βοηθεια ακομη
Τι αλλαγες πρεπει να γινουν στην VBA αν τα δεδομένα ειναι σε αλλο φύλλο και το γραφημα ειναι σε ξεχωριστο φύλλο και όχι object σε υπάρχον φυλλο
Ευχαριστω για την υπομονη σας

Φιλικα Δημητρης

[gr8styl]

Καλημέρα σε όλους.

Αν το γράφημα είναι ξεχωριστό φύλλο και όχι αντικείμενο μέσα στο φύλλο δεδομένων, τότε απλά στον κώδικα

Κάνουμε αντικατάσταση του ActiveSheet.ChartObjects(1).Activate με Sheets("Charts1").Activate (1 αντικατάσταση)
όπου "Charts1" το όνομα του φύλλου του γραφήματος

και αντικατάσταση του ActiveSheet με Sheets("Color_xy_chart_points") (2 Αντικαταστάσεις)
όπου "Color_xy_chart_points" το όνομα του φύλλου με τα δεδομένα.

Τέλος διαγράφουμε το Range("C1").Select αν θέλουμε να τελειώσει ο κώδικας εμφανίζοντας το φύλλο του γραφήματος, ή αν θέλουμε να εμφανίσουμε το φύλλο δεδομένων προσθέτουμε Sheets("Color_xy_chart_points").Activate μετά την Next i

Τα λέμε.
Θανάσης

Σορρυ για τα κεφαλαία. Οπως είδες όμως τα είχα μόνο στον τίτλο....χα χα
Ευχαριστώ για τον χρόνο σου
Με κάλυψες απόλυτα
Φιλικά Δημήτρης

Ναι ναι τον τίτλο και τις ευχαριστίες.
Νάσαι καλά.

[Dimitris Ch]

Ευχαριστώ για όλα

Δημήτρης