Установлення настроюваних підписів даних на діаграмі

Наведена нижче процедура VBA (Visual Basic for Applications) дає змогу використовувати значення клітинок як підписи даних на діаграмах в Excel для Mac. Щоб виконати процедуру, виконайте такі дії:

1. У програмі Excel клацніть Знаряддя > Макроси > Записати новий макрос.

2. У розкривному списку Зберегти макрос у: виберіть пункт Особиста книга макросів.

   Примітка.: Зберігши процедуру VBA в особистій книзі макросів, її можна використовувати в будь-якому екземплярі Excel. Це означає, що вона не лише використовується в одній книзі.

3. Натисніть OK.

4. Перейдіть до розділу Знаряддя > Макроси > зупинити записування.

5. Перейдіть до розділу Знаряддя > Макроси > редактор Visual Basic.

6. Над програмою Excel відкриється редактор Visual Basic (VBE). В області переходів ліворуч розгорніть vbaProject (PERSONAL). ПАПКА XLSB для відображення модуля1.

7. Двічі клацніть модуль1 , щоб відобразити область Код, яка відкриється праворуч у вікні VBE.

8. Код VBA, створений під час записування нового макросу, не потрібен, тому виділіть його все, а потім натисніть клавішу Delete. 

9. Потім виберіть код VBA у текстовому полі нижче, натисніть клавіші CMD+C , щоб скопіювати його, а потім вставте його знову в області Код із cmD+V. Тепер ви можете вийти з редактора Visual Basic і повернутися до програми Excel.

10. Випробуйте макрос, створивши діаграму з підписами даних. Потім виберіть будь-який підпис даних на діаграмі та запустіть макрос, натиснувши кнопку Знаряддя > Макроси > Макроси. Виберіть setCustomDataLabels, а потім натисніть кнопку Виконати. Вам буде автоматично запропоновано вибрати діапазон підписів даних. Для цього натисніть кнопку OK.  

    Примітка.: Процедури VBA не можна скасувати, тому обов'язково спробуйте зробити це на копії книги. Якщо ви запустите код і не хочете зберігати результати, потрібно закрити книгу, не зберігаючи її.

11. Завершивши роботу з Програмою Excel, обов'язково збережіть зміни в розділі ОСОБИСТІ. XLSB, щоб макрос був доступний у майбутньому.

12. У будь-який час, коли потрібно додати або видалити підписи даних із діаграми, виберіть підписи даних і запустіть макрос.

13. За допомогою > параметри Excel> стрічки & панелі інструментів можна додати кнопку для запуску макросу зі стрічки або панелі інструментів.

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