Angi egendefinerte dataetiketter i et diagram

Følgende VBA-prosedyre (Visual Basic for Applications) lar deg bruke celleverdier som dataetiketter i diagrammene i Excel for Mac. Gjør følgende for å bruke prosedyren:

1. Klikk Verktøy > makroer > Registrer ny makro i Excel.

2. Velg Personlig makroarbeidsbok i rullegardinlisten Lagre makro i.

   Obs!: Ved å lagre VBA-prosedyren i den personlige makroarbeidsboken, kan du deretter bruke den i en hvilken som helst forekomst av Excel. Dette betyr at det ikke bare er begrenset til bruk i én enkelt arbeidsbok.

3. Trykk på OK.

4. Gå til Verktøy > makroer > Stopp registrering.

5. Gå til Verktøy > Makroer > Visual Basic Editor.

6. Visual Basic Editor (VBE) åpnes over Excel. Utvid VBAProject (PERSONAL) i navigasjonsruten til venstre. XLSB)-mappen for å vise Module1.

7. Dobbeltklikk på Modul1 for å vise koderuten, som åpnes på høyre side av VBE-vinduet.

8. VBA-koden som ble opprettet da du registrerte en ny makro, er ikke nødvendig, så merk alt, og trykk deretter del. 

9. Deretter velger du VBA-koden i tekstboksen nedenfor, trykker CMD+C for å kopiere den, og limer den deretter inn igjen i koderuten med CMD+V. Nå kan du avslutte Visual Basic Editor og gå tilbake til Excel.

10. Test makroen ved å opprette et diagram med dataetiketter. Deretter merker du en dataetikett i diagrammet, og kjører makroen ved å klikke Verktøy > Makroer > Makroer. Velg SetCustomDataLabels, og trykk deretter På kjør. Du blir automatisk bedt om å velge dataetikettområdet, så gjør dette, og trykk deretter OK.  

    Obs!: VBA-prosedyrer kan ikke angres, så pass på at du prøver dette på en kopi av en arbeidsbok. Hvis du kjører koden og ikke vil beholde resultatene, må du lukke arbeidsboken uten å lagre den.

11. Når du avslutter Excel, må du passe på at du velger å lagre endringene i PERSONAL. XLSB slik at makroen blir tilgjengelig i fremtiden.

12. Når du vil legge til eller fjerne dataetiketter fra et diagram, velger du dataetikettene og kjører makroen.

13. Du kan bruke Excel>-innstillinger > båndet & verktøylinjen til å legge til en knapp for å kjøre makroen fra båndet eller verktøylinjen.

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