Excel'de bir xy dağılım grafiğindeki veya kabarcık grafiğindeki 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 yapan bir Microsoft Visual Basic for ApplicationsVisual Basic for Applications makrosu oluşturabilirsiniz. Bu makalede, XY Dağılım grafiğinde bu görevi gerçekleştiren örnek bir makro yer almaktadır. Bununla birlikte, aynı kod Kabarcık Grafiği için de kullanılabilir.

Daha Fazla Bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; açık veya zımni hiçbir garanti vermez. Bu, satılabilirlik veya belirli bir amaca uygunluk ile ilgili zımni garantileri içerir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama diline ve prosedürler oluşturmak ve prosedürlerde hata ayıklamak için kullanılan araçlara aşina olduğunuzu varsaymaktadır. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğini açıklamaya yardımcı olabilir. Ancak, ek işlevsellik sağlamak veya özel gereksinimlerinizi karşılamak için prosedürler oluşturmak için bu örnekleri değiştirmeyeceklerdir. Bu makaledeki örnek kodda, verilerin ve ilişkili etiketlerin çalışma sayfasında aşağıdaki biçime göre yerleştirildiği varsayılmaktadır:

  • İlk sütun veri etiketlerini içerir.
  • İkinci sütun xy (dağılım) grafiği için x değerlerini içerir.
  • Üçüncü ve sonraki sütunlar xy (dağılım) grafiğinin y değerlerini içerir.

NOT: Verilen örnek y değerleri için yalnızca bir veri sütunu içerse de, 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 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ü altında, XY (Dağılım) öğesini tıklatın ve sonra İleri'yi tıklatın.
    3. Grafik Sihirbazı - Adım 2 / 4 - Grafik Kaynağı Verileri iletişim kutusunda Veri Aralığı sekmesine tıklayın. Seri girişi'nin altında, Sütunlar'a tıklayın ve sonra İ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ğini ve ardından Son'u tıklatı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şı'yı tıklatın, Yeni sayfa seçeneğini tıklatın ve sonra Tamam'ı tıklatı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çme.

  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 makroyu çalıştırmak için Çalıştır'a tıklayın.

    Excel 2007'de, Geliştirici sekmesine tıklayın, Kod grubunda Makro'ya tıklayın, AttachLabelsToPoints öğesini seçin ve sonra da Çalıştır'a tıklayın.

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