[Excel07] Βοήθεια για ένα αρχείο

[gfevran]

Γεια σας παιδιά,
Δεν ξέρω αν αυτό που ζητάω γίνεται!
ανεβάζω συνημμένο.
Ευχαριστώ για όποια βοήθεια

[Spirosgr]

Καλημέρα
Μια απλή καταγραφή κώδικα, χωρίς ιδιαίτερες διορθώσεις,
(ελάχιστες έγιναν) μπορεί να κάνει αυτήν την δουλειά.
Δείτε τις παρατηρήσεις στον κώδικα, για το πως θα μεταφερθεί (εφαρμοστεί)
σε πραγματικό βιβλίο εργασίας.

[gfevran]

Γεια σου Σπύρο,
Δεν κατάφερα να το προσαρμόσω γιατί δεν ξέρω τι εννοούμε όνομα γραφήματος και δεν ξέρω τι όνομα να βάλω.
Το παράδειγμα που ανέβασες μου βγάζει σφάλμα δεν ξέρω τι δεν κάνω σωστά.
Ευχαριστώ
Γιώργος

[Spirosgr]

Κάθε πράγμα που φτιάχνουμε (γράφημα, εικόνα, σχήμα κλπ) έχει ένα όνομα εξ' ορισμού.
Αν το επιλέξει κανείς (κλικ επάνω στο αντικείμενο) θα δει στην πάνω αριστερή γωνία της οθόνης,
δίπλα στην γραμμή τύπων, το όνομά του.
Στο ίδιο σημείο που φαίνονται και τα ονόματα κελιών, περιοχών κλπ
Φρόντισε το όνομα που υπάρχει εκεί για το «πραγματικό» γράφημα, να είναι αυτό
που θα γράψεις (αντικατάσταση με Copy-Paste) στον κώδικα.
Στον κώδικα έχω κάποιες παρατηρήσεις, για πράγματα που πρέπει να «αλλάξουν»,
όταν γίνει εφαρμογή στην πραγματικότητα.

[gfevran]

Σπύρο SOS,
Έκανα τη προσαρμογή αλλά δυστυχώς δεν μπορώ να βρω άκρη
Που κάνω το λάθος.

[Spirosgr]

Αυτό λοιπόν που ανέβασες έστω ότι είναι το «καλό» βιβλίο
Έχει ένα γράφημα τάδε στο δεύτερο φύλλο [φύλλο 2]
και έχει και δεδομένα στο πρώτο φύλλο [φύλλο 1]
Πρώτα
Βάλε τα πραγματικά ονόματα των φύλλων στα σημεία του κώδικα που έχει Data & Chart
Μετά
Αν πατήσεις πάνω στο περίγραμμα του γραφήματος,
θα δεις το όνομά του [*βλέπε εικόνα]
Στο βιβλίο που ανέβασες τώρα το λέει 3- Γράφημα
Στο κανονικό μπορεί να το λέει όπως θέλει [120 - Γράφημα]
Αυτό το όνομα πρέπει να το «βλέπει» ο κώδικας
Κάνε Copy-paste στον κώδικα σε όλα τα σημεία που έχει 1- Γράφημα με το πραγματικό
Τέλος
Πάρε και το γράφημα από εκεί που είναι στο [φύλλο 2] και «κόλλησε το» πάνω αριστερά
[*και πάλι βλέπε εικόνα] και είσαι ok
Πιο αναλυτικά δεν γίνεται

[Spirosgr]

Καλημέρα

Αφορά χρήστες Office2007

Επειδή η πιο πάνω μέθοδος, δεν λειτουργεί σωστά σε 2007 excel
(σε αντίθεση με την 2013 που λειτουργεί άψογα)
και ο λόγος είναι ότι η εφαρμογή 2007, κάθε φορά δημιουργεί νέο γράφημα, με νέο όνομα,
αντί να κάνει απλή μεταφορά από μια θέση [χ] σε μια άλλη [ψ] θα πρέπει να αλλάξουμε τρόπο σκέψης και μέθοδο.
Αναλυτικά:
Πρέπει να δημιουργήσουμε το γράφημα στο φύλλο πχ Data (ή όπου είναι τα δεδομένα) και
να εμφανίζουμε / κρύβουμε το ίδιο το γράφημα χωρίς την χρήση του φύλλου 2.

Αντιγράψτε τον κώδικα:

Sub VsbleShp()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes("Chart 1")
    shp.Visible = Not shp.Visible
End Sub

σε μια λειτουργική μονάδα και προσέχοντας
Όπου Chart 1 να είναι το όνομα του γραφήματος.
Συνδέστε τον σε ένα κουμπί με τίτλο πχ «Show - Hide» και είστε έτοιμοι

ΥΓ. Θα μπορούσε κάποιος χρήστης Office2010 να μας πει εντυπώσεις και λειτουργικότητα των 2 μεθόδων στο 2010;

[gfevran]

Γεια σου Σπύρο,
η μέθοδος με τον καινούργιο κώδικα δούλεψε τέλεια,
στο οffice 2007.
Σε υπέρ ευχαριστώ.

Φιλικά
Γιώργος

[Spirosgr]

Να 'σαι καλά Γιώργο