Egyéni adatfeliratok beállítása diagramban

Az alábbi VBA-eljárás (Visual Basic for Applications) lehetővé teszi, hogy cellaértékeket használjon adatfeliratként a diagramokban Mac Excel. Az eljárás használatához tegye a következőket:

1. Az Excelben kattintson az Eszközök > Makrók > Új makró rögzítése elemre.

2. A Makró tárolása a következőben legördülő listában válassza a Személyes makrómunkafüzet lehetőséget.

   Megjegyzés: Ha a VBA-eljárást a Személyes makrómunkafüzetben tárolja, azt az Excel bármely példányában használhatja. Ez azt jelenti, hogy nem csak egyetlen munkafüzetben használható.

3. Válassza az OK gombot.

4. Lépjen az Eszközök > Makrók > Rögzítés leállítása elemre.

5. Nyissa meg az Eszközök > Makrók > a Visual Basic Editort.

6. A Visual Basic Editor (VBE) az Excel felett nyílik meg. A bal oldali navigációs panelen bontsa ki a VBAProject (PERSONAL) elemet. XLSB) mappa az 1. modul megjelenítéséhez.

7. Kattintson duplán a Module1 (Modul1 ) elemre a Kód panel megjelenítéséhez, amely a VBE ablak jobb oldalán nyílik meg.

8. Az új makró rögzítésekor létrehozott VBA-kódra nincs szükség, ezért jelölje ki az összeset, majd nyomja le a Delete billentyűt. 

9. Ezután jelölje ki a VBA-kódot az alábbi szövegmezőben, másolja a CMD+C billentyűkombinációt , majd illessze be újra a Kód panelrea CMD+V billentyűkombinációval. Most már kiléphet a Visual Basic Editorból, és visszaléphet az Excelbe.

10. A makró teszteléséhez hozzon létre egy adatfeliratokat tartalmazó diagramot. Ezután jelöljön ki egy adatfeliratot a diagramon, és futtassa a makrót az Eszközök > Makrók > Makrók elemre kattintva. Válassza a SetCustomDataLabels elemet, majd nyomja le a Futtatás gombot. A rendszer automatikusan kérni fogja az adatfelirat-tartomány kiválasztását. Ehhez nyomja le az OK gombot.  

    Megjegyzés: A VBA-eljárások nem vonhatók vissza, ezért mindenképpen próbálja ki ezt egy munkafüzet másolatán. Ha futtatja a kódot, és nem szeretné megtartani az eredményeket, mentés nélkül be kell zárnia a munkafüzetet.

11. Amikor kilép az Excelből, győződjön meg arról, hogy a SZEMÉLYES fájlban menti a módosításokat. XLSB, hogy a makró a jövőben elérhető legyen.

12. Ha bármikor adatfeliratokat szeretne hozzáadni vagy eltávolítani egy diagramból, jelölje ki az adatfeliratokat, és futtassa a makrót.

13. Az Excel > Preferences> Ribbon & Toolbar (Excel > Preferences & Toolbar) segítségével felvehet egy gombot a makró futtatásához a menüszalagról vagy az eszköztárról.

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