Setarea etichetelor de date particularizate într-o diagramă

Următoarea procedură VBA (Visual Basic for Applications) vă va permite să utilizați valorile celulelor ca etichete de date în diagramele din Excel pentru Mac. Pentru a utiliza procedura, procedați astfel:

1. În Excel, faceți clic pe Instrumente > Macrocomenzi > Înregistrare macrocomandă nouă.

2. În caseta verticală Stocare macrocomandă în: selectați Registru de macrocomenzi personal.

   Notă: Prin stocarea procedurii VBA în Registrul de macrocomenzi personal, o puteți utiliza apoi în orice instanță de Excel. Aceasta înseamnă că nu se limitează doar la utilizarea într-un singur registru de lucru.

3. Apăsați OK.

4. Accesați Instrumente > Macrocomenzi > Oprire înregistrare.

5. Accesați Instrumente > Macrocomenzi > Visual Basic Editor.

6. Visual Basic Editor (VBE) se va deschide deasupra Excel. În panoul de navigare din stânga, extindeți VBAProject (PERSONAL. XLSB) pentru a afișa Modulul1.

7. Faceți dublu clic pe Modul1 pentru a afișa panoul Cod, care se va deschide în partea dreaptă a ferestrei VBE.

8. Codul VBA care a fost creat atunci când ați înregistrat o macrocomandă nouă nu este necesar, așadar selectați-l pe tot, apoi apăsați delete. 

9. În continuare, selectați codul VBA în caseta text de mai jos, apăsați CMD+C pentru a-l copia, apoi lipiți-l din nou în panoul Cod cu CMD+V. Acum puteți să ieșiți din Visual Basic Editor și să reveniți la Excel.

10. Testați macrocomanda creând o diagramă cu etichete de date. În continuare, selectați orice etichetă de date din diagramă și rulați macrocomanda făcând clic pe Instrumente > Macrocomenzi > Macrocomenzi. Selectați SetCustomDataLabels, apoi apăsați Run. Vi se va solicita automat să selectați zona de etichete de date, așadar, apăsați OK.  

    Notă: Procedurile VBA nu pot fi anulate, așa că nu uitați să încercați aceasta pe o copie a unui registru de lucru. Dacă rulați codul și nu doriți să păstrați rezultatele, va trebui să închideți registrul de lucru fără a-l salva.

11. Când ieșiți din Excel, asigurați-vă că alegeți să salvați modificările în PERSONAL. XLSB, astfel încât macrocomanda să fie disponibilă în viitor.

12. Oricând doriți să adăugați sau să eliminați etichete de date dintr-o diagramă, selectați etichetele de date și rulați macrocomanda.

13. Puteți utiliza Excel > Preferences > Ribbon & Toolbar pentru a adăuga un buton pentru a rula macrocomanda din panglică sau din bara de instrumente.

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