Angive brugerdefinerede datanavne i et diagram

Med følgende VBA-procedure (Visual Basic for Applications) kan du bruge celleværdier som datanavne i dine diagrammer i Excel til Mac. Benyt følgende fremgangsmåde for at benytte proceduren:

1. I Excel skal du klikke på Værktøjer > makroer > Indspil ny makro.

2. I rullelisten Gem makro i: skal du vælge Personlig makroprojektmappe.

   Bemærk!: Ved at gemme VBA-proceduren i den personlige makroprojektmappe kan du derefter bruge den i alle forekomster af Excel. Det betyder, at det ikke kun er begrænset til brug i en enkelt projektmappe.

3. Tryk på OK.

4. Gå til Værktøjer > Makroer > Stop indspilning.

5. Gå til Værktøjer > makroer > Visual Basic Editor.

6. Visual Basic Editor (VBE) åbnes over Excel. Udvid VBAProject (PERSONAL) i navigationsruden til venstre . XLSB)-mappe for at vise Module1.

7. Dobbeltklik på Modul1 for at få vist ruden Kode, som åbnes i højre side af VBE-vinduet.

8. Den VBA-kode, der blev oprettet, da du indspillede en ny makro, er ikke nødvendig, så markér det hele, og tryk derefter på Delete. 

9. Vælg derefter VBA-koden i tekstfeltet nedenfor, tryk på CMD+C for at kopiere den, og indsæt den derefter igen i koderuden med CMD+V. Du kan nu afslutte Visual Basic Editor og gå tilbage til Excel.

10. Test makroen ved at oprette et diagram med datanavne. Vælg derefter et datanavn i diagrammet, og kør makroen ved at klikke på Værktøjer > Makroer > Makroer. Vælg SetCustomDataLabels, og tryk derefter på Kør. Du bliver automatisk bedt om at vælge dit dataetiketområde, så gør det, og tryk derefter på OK.  

    Bemærk!: VBA-procedurer kan ikke fortrydes, så sørg for at prøve dette på en kopi af en projektmappe. Hvis du kører koden og ikke vil beholde resultaterne, skal du lukke projektmappen uden at gemme den.

11. Når du afslutter Excel, skal du sørge for at gemme ændringerne i PERSONLIG. XLSB, så makroen bliver tilgængelig i fremtiden.

12. Når du vil tilføje eller fjerne datanavne fra et diagram, skal du markere datanavnene og køre makroen.

13. Du kan bruge Excel > Indstillinger > bånd & værktøjslinje til at tilføje en knap til at køre makroen fra båndet eller værktøjslinjen.

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