Postavljanje prilagođenih natpisa nad podacima na grafikonu

Sljedeći VBA (Visual Basic for Applications) postupak omogućuje korištenje vrijednosti ćelija kao natpisa nad podacima na grafikonima u programu Excel za Mac. Da biste se koristimo postupkom, učinite sljedeće:

1. U programu Excel kliknite Alati > makronaredbe > snimi novu makronaredbu.

2. U padajućem okviru Spremi makronaredbu u: odaberite Osobna radna knjiga makronaredbi.

   Napomena: Spremanjem VBA postupka u osobnu radnu knjigu makronaredbi možete ga koristiti u bilo kojoj instanci programa Excel. To znači da nije ograničen samo na korištenje u jednoj radnoj knjizi.

3. Pritisnite U redu.

4. Idite na Alati > makronaredbe > Zaustavi snimanje.

5. Idite na Alati > makronaredbe > Visual Basic Editor.

6. Visual Basic Editor (VBE) otvorit će se iznad programa Excel. U navigacijskom oknu s lijeve strane proširite VBAProject (PERSONAL). XLSB) za prikaz modula Module1.

7. Dvokliknite Modul1 da bi se prikazalo okno Koda, koje će se otvoriti s desne strane prozora VBE.

8. VBA kod stvoren kada ste snimili novu makronaredbu nije potreban, pa odaberite sve, a zatim pritisnite Delete. 

9. Zatim odaberite VBA kod u tekstnom okviru u nastavku, pritisnite CMD + C da biste ga kopirali, a zatim ga ponovno zalijepite u okno Koda pomoćucmd + V. Sada možete izaći iz programa Visual Basic Editor i vratiti se u Excel.

10. Testirajte makronaredbu stvaranjem grafikona s natpisima nad podacima. Zatim odaberite natpis nad podacima na grafikonu i pokrenite makronaredbu klikom na Alati >makronaredbe > makronaredbe. Odaberite SetCustomDataLabels, a zatim pritisnite Pokreni. Od vas će se automatski zatražiti da odaberete raspon natpisa nad podacima, pa to učinite, a zatim pritisnite U redu.  

    Napomena: VBA postupke nije moguće poništiti, pa svakako isprobajte ovo na kopiji radne knjige. Ako pokrenete kod i ne želite zadržati rezultate, morat ćete zatvoriti radnu knjigu bez spremanja.

11. Kada zatvorite Excel, provjerite jeste li odabrali spremanje promjena u aplikaciji PERSONAL. XLSB tako da makronaredba bude dostupna u budućnosti.

12. Kad god želite dodati ili ukloniti natpise nad podacima s grafikona, odaberite natpise nad podacima i pokrenite makronaredbu.

13. Da biste dodali gumb > makronaredbu s vrpce > alatnu traku, možete koristiti preference> u programu Excel & alatnu traku.

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