Nastavení popisků vlastních dat v grafu

Následující procedura jazyka VBA (Visual Basic for Applications) vám umožní používat hodnoty buněk jako popisky dat v grafech v Excel pro Mac. Pokud chcete tento postup použít, postupujte takto:

1. V Excelu klikněte na Nástroje > Makra > Zaznamenat nové makro.

2. V rozevíracím seznamu Uložit makro do: vyberte Osobní sešit maker.

   Poznámka: Uložením procedury jazyka VBA do osobního sešitu maker ji pak můžete použít v libovolné instanci Excelu. To znamená, že se neomezuje jenom na použití v jednom sešitu.

3. Stiskněte OK.

4. Přejděte na Nástroje > makra > Zastavit nahrávání.

5. Přejděte na Nástroje > makra > Editor Jazyka Visual Basic.

6. Nad excelem se otevře visual basic Editor (VBE). V navigačním podokně na levé straně rozbalte VBAProject (PERSONAL. XLSB) pro zobrazení Modulu1.

7. Poklikáním na Module1 zobrazíte podokno Kód, které se otevře na pravé straně okna VBE.

8. Kód jazyka VBA, který se vytvořil při záznamu nového makra, není nutný, proto ho vyberte všechny a stiskněte Klávesu Delete. 

9. Pak v následujícím textovém poli vyberte kód jazyka VBA, zkopírujte ho stisknutím kláves CMD+C a vložte ho zpátky do podokna Kód pomocí cmd+V. Teď můžete ukončit Editor jazyka Visual Basic a vrátit se do Excelu.

10. Otestujte makro vytvořením grafu s popisky dat. Potom vyberte libovolný popisek dat v grafu a spusťte makro kliknutím na Nástroje > Makra > Makra. Vyberte NastavitVlastníDataLabels a pak stiskněte Spustit. Automaticky se zobrazí výzva k výběru oblasti popisků dat, takže to udělejte a pak stiskněte OK.  

    Poznámka: Postupy jazyka VBA se nedají vrátit zpět, proto je nezapomeňte vyzkoušet v kopii sešitu. Pokud kód spustíte a nechcete zachovat výsledky, budete muset sešit zavřít, aniž byste ho uložili.

11. Po ukončení Excelu se ujistěte, že se rozhodnete uložit změny v osobním nastavení. XLSB, aby makro bylo k dispozici v budoucnu.

12. Kdykoli budete chtít přidat nebo odebrat popisky dat v grafu, vyberte popisky dat a spusťte makro.

13. K přidání tlačítka pro spuštění makra z pásu karet nebo panelu nástrojů můžete použít> pásu karet & >Předvolby Excelu.

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