Ορισμός προσαρμοσμένων ετικετών δεδομένων σε γράφημα

Η παρακάτω διαδικασία VBA (Visual Basic for Applications) θα σας επιτρέψει να χρησιμοποιήσετε τιμές κελιών ως ετικέτες δεδομένων στα γραφήματά σας στο Excel για Mac. Για να χρησιμοποιήσετε τη διαδικασία, κάντε τα εξής:

1. Στο Excel, κάντε κλικ στην επιλογή Εργαλεία > μακροεντολές > Καταγραφή νέας μακροεντολής.

2. Στο αναπτυσσόμενο πλαίσιο Αποθήκευση μακροεντολής σε: επιλέξτε Βιβλίο προσωπικών μακροεντολών.

   Σημείωση: Με την αποθήκευση της διαδικασίας VBA στο βιβλίο προσωπικών μακροεντολών, μπορείτε να τη χρησιμοποιήσετε σε οποιαδήποτε παρουσία του Excel. Αυτό σημαίνει ότι δεν περιορίζεται μόνο στη χρήση σε ένα μόνο βιβλίο εργασίας.

3. Πατήστε OK.

4. Μεταβείτε στα Εργαλεία > μακροεντολές > Διακοπή καταγραφής.

5. Μεταβείτε στα Εργαλεία > Μακροεντολές > Επεξεργασία της Visual Basic.

6. Η Επεξεργασία Visual Basic (VBE) θα ανοίξει επάνω από το Excel. Στο παράθυρο περιήγησης στα αριστερά, αναπτύξτε το στοιχείο VBAProject (PERSONAL. Φάκελος XLSB) για εμφάνιση της Λειτουργικής μονάδας1.

7. Κάντε διπλό κλικ στην Λειτουργική μονάδα1 για να εμφανιστεί το παράθυρο Κώδικας, το οποίο θα ανοίξει στη δεξιά πλευρά του παραθύρου VBE.

8. Ο κώδικας VBA που δημιουργήθηκε όταν καταγράψατε μια νέα μακροεντολή δεν είναι απαραίτητος, επομένως επιλέξτε τον και, στη συνέχεια, πατήστε το πλήκτρο Delete. 

9. Στη συνέχεια, επιλέξτε τον κώδικα VBA στο παρακάτω πλαίσιο κειμένου, πατήστε CMD + C για να τον αντιγράψετε και, στη συνέχεια, επικολλήστε τον ξανά στο παράθυρο Κώδικας με CMD + V. Τώρα μπορείτε να κλείσετε την Επεξεργασία Visual Basic και να επιστρέψετε στο Excel.

10. Δοκιμάστε τη μακροεντολή δημιουργώντας ένα γράφημα με ετικέτες δεδομένων. Στη συνέχεια, επιλέξτε οποιαδήποτε ετικέτα δεδομένων στο γράφημα και εκτελέστε τη μακροεντολή, κάνοντας κλικ στην επιλογή Εργαλεία > Μακροεντολές > Μακροεντολές. Επιλέξτε SetCustomDataLabels και, στη συνέχεια, πατήστε Εκτέλεση. Θα σας ζητηθεί αυτόματα να επιλέξετε την περιοχή ετικετών δεδομένων, επομένως, κάντε το και, στη συνέχεια, πατήστε OK.  

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

11. Όταν κλείσετε το Excel, βεβαιωθείτε ότι έχετε επιλέξει να αποθηκεύσετε τις αλλαγές στο προσωπικό σας. XLSB ώστε η μακροεντολή να είναι διαθέσιμη στο μέλλον.

12. Οποιαδήποτε στιγμή θελήσετε να προσθέσετε ή να καταργήσετε ετικέτες δεδομένων από ένα γράφημα, επιλέξτε τις ετικέτες δεδομένων και εκτελέστε τη μακροεντολή.

13. Μπορείτε να χρησιμοποιήσετε το Excel > προτιμήσεις > κορδέλα & γραμμή εργαλείων για να προσθέσετε ένα κουμπί για την εκτέλεση της μακροεντολής από την κορδέλα ή τη γραμμή εργαλείων.

Option Explicit

Sub SetCustomDataLabels()
' make sure a series is selected
    If TypeOf Selection Is DataLabels Or TypeOf Selection Is Point Then
        Selection.Parent.Select
    ElseIf TypeOf Selection Is DataLabel Then
        Selection.Parent.Parent.Select
    End If

    If TypeOf Selection Is Series Then
        Else
        MsgBox "Select a chart series and try again."
        Exit Sub
    End If

    If Selection.HasDataLabels Then
        'If the data labels from cells are already showing, stop showing them and exit.
        'If labels include other info (e.g., values or categories) this will still appear
        If Selection.DataLabels.ShowRange Then
            Selection.DataLabels.ShowRange = False
            Exit Sub
        End If
    End If
 
'Use the InputBox dialog to set the range for the data labels
    On Error Resume Next
        Dim rng As Range
        Set rng = Application.InputBox(Prompt:="Select data label range.", Title:="Data Label Range", Type:=8)
    On Error GoTo 0

    If rng Is Nothing Then Exit Sub ' clicked cancel
        If Selection.HasDataLabels Then
            'This will include the new text from cells into existing data labels
        Else
        'Otherwise add data labels (empty labels)
            Selection.HasDataLabels = True
            Selection.DataLabels.ShowValue = False
        End If
    
    'Create a string that includes the sheet name and range reference.
    Dim rngAddress As String
        rngAddress = "='" & rng.Worksheet.Name & "'!" & rng.Address(RowAbsolute:=True, ColumnAbsolute:=True, External:=False)
        Selection.DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, rngAddress, 0
        Selection.DataLabels.ShowRange = True

End Sub