Grafikte özel veri etiketleri ayarlama

Aşağıdaki VBA (Visual Basic for Applications) yordamı, Mac için Excel grafiklerinizde veri etiketleri olarak hücre değerlerini kullanmanıza olanak sağlar. Yordamı kullanmak için aşağıdakileri yapın:

1. Excel'de Araçlar >Makrolar'a tıklayın> Yeni Makro Kaydet'e tıklayın.

2. Makroyu Depola: açılan kutusunda Kişisel Makro Çalışma Kitabı'nı seçin.

   Not: VBA yordamını Kişisel Makro Çalışma Kitabı'nda depolayarak, bunu excel'in herhangi bir örneğinde kullanabilirsiniz. Bu, yalnızca tek bir çalışma kitabında kullanımla sınırlı olmadığı anlamına gelir.

3. Tamam'a basın.

4. Kaydı Durdurmak> Araçlar > Makrolar'a gidin.

5. Visual Basic Düzenleyicisi> Araçlar > Makrolar'a gidin.

6. Visual Basic Düzenleyicisi (VBE) Excel'in üzerinde açılır. Sol taraftaki gezinti bölmesinde VBAProject (PERSONAL) öğesini genişletin. Modül1'i göstermek için XLSB) klasörü.

7. VBE penceresinin sağ tarafında açılacak Kod bölmesini görüntülemek için Modül1'e çift tıklayın.

8. Yeni bir makro kaydettiğinizde oluşturulan VBA kodu gerekli değildir, bu nedenle tümünü seçin ve Delete tuşuna basın. 

9. Ardından, aşağıdaki metin kutusunda VBA kodunu seçin, kopyalamak için CMD+C tuşlarına basın ve ardından KOD bölmesineCMD+V ile geri yapıştırın. Artık Visual Basic Düzenleyicisi'nde çıkıp Excel'e geri dönebilirsiniz.

10. Veri etiketleri içeren bir grafik oluşturarak makroyu test edin. Ardından grafikteki herhangi bir veri etiketini seçin ve Araçlar > Makrolar > Makrolar'a tıklayarak makroyu çalıştırın. SetCustomDataLabels'i seçin ve Çalıştır'a basın. Otomatik olarak veri etiketi aralığınızı seçmeniz istenir, bunu yapın ve ardından Tamam'a basın.  

    Not: VBA yordamları geri alınamaz, bu nedenle bunu çalışma kitabının bir kopyasında denediğinden emin olun. Kodu çalıştırırsanız ve sonuçları korumak istemiyorsanız, çalışma kitabını kaydetmeden kapatmanız gerekir.

11. Excel'den çıktığınızda, değişiklikleri KİşİSEL olarak kaydetmeyi seçtiğinizden emin olun. XLSB, makronun gelecekte kullanılabilir olmasını sağlar.

12. Grafikteki veri etiketlerini eklemek veya grafikten kaldırmak istediğinizde, veri etiketlerini seçin ve makroyu çalıştırın.

13. Excel > Tercihleri > Şerit & Araç Çubuğu'nu kullanarak makroyu şeritten veya araç çubuğundan çalıştıracak bir düğme ekleyebilirsiniz.

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