Excel'de xy dağılım grafiğinde veya kabarcık grafiğinde veri noktalarına etiket eklemek için makro kullanma

Özet

Microsoft Excel'de, xy (dağılım) veya Kabarcık grafiğindeki veri noktalarına otomatik olarak metin etiketleri ekleyen yerleşik bir komut yoktur. Ancak, bunu sağlayan bir Microsoft Visual Basic for Applications makro oluşturabilirsiniz. Bu makale, XY Dağılım grafiğinde bu görevi gerçekleştiren örnek bir makro içerir. Ancak, kabarcık grafiği için aynı kod kullanılabilir.

Ek Bilgi

Microsoft, açık veya zımni garanti olmadan yalnızca çizim için programlama örnekleri sağlar. Bu, satılabilirlik veya belirli bir amaca uygunlukla ilgili zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makalede, gösterilmekte olan programlama dilini ve yordamları oluşturmak ve hatalarını ayıklamak için kullanılan araçları bildiğiniz varsayılır. Microsoft destek mühendisleri belirli bir yordamın işlevselliğini açıklamaya yardımcı olabilir. Ancak, bu örnekler belirli gereksinimlerinizi karşılamak üzere ek işlevler sağlamak veya yordamlar oluşturmak için bu örnekleri değiştirmez. Bu makaledeki örnek kod, verilerin ve ilişkili etiketlerin bir çalışma sayfasında aşağıdaki biçime göre düzenlendiğini varsayar:

• İlk sütun veri etiketlerini içerir.

• İkinci sütun, xy (dağılım) grafiğinin x değerlerini içerir.

• Üçüncü ve sonraki sütunlar xy (dağılım) grafiği için y değerlerini içerir.

NOT: Sağlanan örnekte y değerleri için yalnızca bir veri sütunu olsa da, birden fazla veri serisi kullanabilirsiniz.

Bu makaledeki makroları kullanmak için aşağıdaki verileri kullanarak bir grafik oluşturun: A1: Etiketler B1: X Değerleri C1: Y Değerleri A2: DataPoint1 B2: 12 C2: 5 A3: DataPoint2 B3: 9 C3: 7 A4: DataPoint3 B4: 5 C4: 3 A5: DataPoint4 B5: 4 C5: 8 A6: DataPoint5 B6: 1 C6: 4 NOT: Tablo boş sütunlar içermemelidir ve veri etiketlerini içeren sütun x değerlerini içeren sütundan ayrılmamalıdır. Etiketler ve değerler tam olarak bu makalede açıklanan biçimde yerleştirilmelidir. (Sol üst hücrenin A1 hücresi olması gerekmez.)

Xy (dağılım) grafiğindeki veri noktalarına metin etiketleri eklemek için şu adımları izleyin:

1. Örnek verileri içeren çalışma sayfasında B1:C6 hücre aralığını seçin.

2. Microsoft Office Excel 2003'te ve Excel'in önceki sürümlerinde şu adımları izleyin:

   1. Ekle menüsünde Grafik'e tıklayın.

   2. Grafik Sihirbazı - Adım 1 / 4 - Grafik Türü iletişim kutusunda Standart Türler sekmesine tıklayın. Grafik türü'nin altında XY (Dağılım) öğesine ve ardından İleri'ye tıklayın.

   3. Grafik Sihirbazı - Adım 2 / 4 - Grafik Kaynağı Verileri iletişim kutusunda Veri Aralığı sekmesine tıklayın. Seriler'in altında Sütunlar'a ve ardından İleri'ye tıklayın.

   4. Grafik Sihirbazı - Adım 3 / 4 - Grafik Seçenekleri iletişim kutusunda İleri'ye tıklayın.

   5. Grafik Sihirbazı - Adım 4 / 4 -Grafik Konumu iletişim kutusunda, Yeni sayfa olarak seçeneğine ve ardından Son'a tıklayın.

   Microsoft Office Excel 2007'de şu adımları izleyin:

   1. Ekle sekmesine tıklayın, Grafikler grubunda Dağılım'a tıklayın ve bir tür seçin.

   2. Tasarım sekmesinde, Konum grubunda Grafiği Taşı'ya tıklayın, Yeni sayfa'ya ve ardından Tamam'a tıklayın.

3. Visual Basic Düzenleyicisi'ni başlatmak için ALT+F11 tuşlarına basın.

4. Ekle menüsünde Modül'e tıklayın.

5. Modül sayfasına aşağıdaki örnek kodu yazın:

   Sub AttachLabelsToPoints()
   
      'Dimension variables.
      Dim Counter As Integer, ChartName As String, xVals As String
   
      ' Disable screen updating while the subroutine is run.
      Application.ScreenUpdating = False
   
      'Store the formula for the first series in "xVals".
      xVals = ActiveChart.SeriesCollection(1).Formula
   
      'Extract the range for the data from xVals.
      xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
         Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
      xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
      Do While Left(xVals, 1) = ","
         xVals = Mid(xVals, 2)
      Loop
   
      'Attach a label to each data point in the chart.
      For Counter = 1 To Range(xVals).Cells.Count
        ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
            True
         ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
            Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
      Next Counter
   
   End Sub

6. Excel'e dönmek için ALT+Q tuşlarına basın.

7. Grafik sayfasına geçin.

8. Excel 2003'te ve Excel'in önceki sürümlerinde, Araçlar menüsünde Makro'nun üzerine gelin ve Makrolar'a tıklayın. AttachLabelsToPoints'e tıklayın ve ardından Çalıştır'a tıklayarak makroyu çalıştırın.
   
   Excel 2007'de Geliştirici sekmesine tıklayın, Kod grubunda Makro'ya tıklayın, AttachLabelsToPoints'i seçin ve çalıştır'a tıklayın.

Makro, A2:A6 hücrelerindeki etiketleri grafikteki veri noktalarına ekler.