Ange anpassade dataetiketter i ett diagram

Med följande VBA-procedur (Visual Basic for Applications) kan du använda cellvärden som dataetiketter i diagram i Excel för Mac. Så här använder du proceduren:

1. I Excel klickar du på Verktyg > makron > spela in nytt makro.

2. I listrutan Lagra makro i: väljer du Arbetsboken Egna makron.

   Obs!: Genom att lagra VBA-proceduren i arbetsboken Egna makron kan du sedan använda den i valfri instans av Excel. Det innebär att den inte bara är begränsad till att användas i en enda arbetsbok.

3. Tryck på OK.

4. Gå till Verktyg > makron > Stoppa inspelning.

5. Gå till Verktyg > Makron > Visual Basic Editor.

6. Visual Basic Editor (VBE) öppnas ovanför Excel. I navigeringsfönstret till vänster expanderar du VBAProject (PERSONAL. XLSB)-mappen för att visa Modul1.

7. Dubbelklicka på Modul1 för att visa kodfönstret, som öppnas till höger i VBE-fönstret.

8. VBA-koden som skapades när du spelade in ett nytt makro är inte nödvändig, så markera allt och tryck sedan på Delete. 

9. Välj sedan VBA-koden i textrutan nedan, tryck på CMD + C för att kopiera den och klistra sedan in den i kodfönstret med CMD + V. Nu kan du avsluta Visual Basic Editor och gå tillbaka till Excel.

10. Testa makrot genom att skapa ett diagram med dataetiketter. Välj sedan en dataetikett i diagrammet och kör makrot genom att klicka på Verktyg > Makron > Makron. Välj SetCustomDataLabels och tryck sedan på Kör. Du uppmanas automatiskt att välja dataetikettområdet, så gör det och tryck sedan på OK.  

    Obs!: Det går inte att ångra VBA-procedurer, så se till att prova detta på en kopia av en arbetsbok. Om du kör koden och inte vill behålla resultatet måste du stänga arbetsboken utan att spara den.

11. När du avslutar Excel ska du se till att du väljer att spara ändringar i PERSONLIGT. XLSB så att makrot blir tillgängligt i framtiden.

12. När du vill lägga till eller ta bort dataetiketter från ett diagram markerar du dataetiketterna och kör makrot.

13. Du kan använda Inställningar i Excel >> menyfliksområdet & verktygsfält för att lägga till en knapp för att köra makrot från menyfliksområdet eller verktygsfältet.

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