Aangepaste gegevenslabels instellen in een grafiek

Met de volgende VBA-procedure (Visual Basic for Applications) kunt u celwaarden gebruiken als gegevenslabels in uw grafieken in Excel voor Mac. Ga als volgt te werk om de procedure te gebruiken:

1. Klik in Excel op Extra > Macro's > Nieuwe macro opnemen.

2. Selecteer in de vervolgkeuzelijst Macro opslaan in:de optie Persoonlijke macrowerkmap.

   Opmerking: Door de VBA-procedure op te slaan in de persoonlijke macrowerkmap, kunt u deze vervolgens in elk exemplaar van Excel gebruiken. Dit betekent dat het niet alleen beperkt is tot gebruik in één werkmap.

3. Druk op OK.

4. Ga naar Extra > Macro's > Opname stoppen.

5. Ga naar Extra > Macro's > Visual Basic Editor.

6. De Visual Basic Editor (VBE) wordt boven Excel geopend. Vouw in het navigatiedeelvenster aan de linkerkant het VBAProject (PERSOONLIJK. XLSB)-map om Module1 weer te geven.

7. Dubbelklik op Module1 om het codevenster weer te geven, dat aan de rechterkant van het VBE-venster wordt geopend.

8. De VBA-code die is gemaakt toen u een nieuwe macro opnam, is niet nodig, dus selecteer alles en druk vervolgens op Delete. 

9. Selecteer vervolgens de VBA-code in het onderstaande tekstvak, druk op CMD+C om deze te kopiëren en plak deze vervolgens weer in het codevenster met CMD+V. U kunt nu de Visual Basic Editor afsluiten en teruggaan naar Excel.

10. Test de macro door een grafiek met gegevenslabels te maken. Selecteer vervolgens een gegevenslabel in de grafiek en voer de macro uit door te klikken op Extra > Macro's > Macro's. Selecteer SetCustomDataLabels en druk vervolgens op Uitvoeren. U wordt automatisch gevraagd uw gegevenslabelbereik te selecteren, dus doe dat en druk vervolgens op OK.  

    Opmerking: VBA-procedures kunnen niet ongedaan worden gemaakt, dus zorg ervoor dat u dit probeert op een kopie van een werkmap. Als u de code uitvoert en de resultaten niet wilt behouden, moet u de werkmap sluiten zonder deze op te slaan.

11. Wanneer u Excel afsluit, moet u ervoor kiezen om wijzigingen op te slaan in PERSOONLIJK. XLSB zodat de macro in de toekomst beschikbaar is.

12. Wanneer u gegevenslabels wilt toevoegen aan of verwijderen uit een grafiek, selecteert u de gegevenslabels en voert u de macro uit.

13. U kunt Excel > Voorkeuren > lint & werkbalk gebruiken om een knop toe te voegen om de macro uit te voeren vanaf het lint of de werkbalk.

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