[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;