Nastavitev oznak podatkov po meri v grafikonu

S tem postopkom VBA (VBA) lahko vrednosti celic uporabite kot oznake podatkov v grafikonih v Excelu za Mac. Če želite uporabiti postopek, naredite to:

1. V Excelu kliknite Orodja, >makri,> Posnemi nov makro.

2. V spustnem polju Shrani makro v: izberite Osebni delovni zvezek z makri.

   Opomba: Če shranite postopek VBA v osebni delovni zvezek z makri, ga lahko nato uporabite v vsakem primerku Excela. To pomeni, da ni omejeno le na uporabo v enem delovnem zvezku.

3. Pritisnite V redu.

4. Pojdite na Orodja> makri,> ustavi snemanje.

5. Pojdite na Orodja > makri> Urejevalnik za Visual Basic.

6. Urejevalnik za Visual Basic (VBE) se bo odprl nad Excelom. V podoknu za krmarjenje na levi strani razširite projekt VBA (PERSONAL. XLSB), da prikažete Modul1.

7. Dvokliknite Modul1, da prikažete podokno Koda, ki se bo odprlo na desni strani okna VBE.

8. Kode VBA, ki ste jo ustvarili, ko ste posneli nov makro, ni treba, zato izberite vse in nato pritisnite tipko Delete. 

9. Nato izberite kodo VBA v polju z besedilom spodaj, pritisnite CMD+C, da jo kopirate, nato pa jo prilepite nazaj v podokno »Koda« s tipkama CMD+V. Zdaj lahko zaprete urejevalnik za Visual Basic in se vrnete v Excel.

10. Preizkusite makro tako, da ustvarite grafikon z oznakami podatkov. Nato izberite poljubno oznako podatkov na grafikonu in zaženite makro tako, da kliknete Orodja > Makri > makri. Izberite SetCustomDataLabels in pritisnite Zaženi. Samodejno boste pozvani, da izberete obseg oznak podatkov, zato naredite to in nato pritisnite V redu.  

    Opomba: Postopkov VBA ni mogoče razveljaviti, zato poskusite to v kopiji delovnega zvezka. Če kodo zaženete in ne želite obdržati rezultatov, morate delovni zvezek zapreti, ne da bi ga shranili.

11. Ko zaprete Excel, se prepričajte, da ste shranili spremembe v polje OSEBNO. XLSB, tako da bo makro na voljo v prihodnje.

12. Ko želite dodati ali odstraniti oznake podatkov iz grafikona, izberite oznake podatkov in zaženite makro.

13. Če želite dodati gumb > za zagon makra na traku ali v orodni vrstici> orodno vrstico, lahko uporabite> Excelove nastavitve & orodno vrstico.

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