grafiğin son gününe veri açıklama butonu ekleme

[matrax410]

merhabalar,

Birden fazla farklı farklı grafik datalarım var. her grafik için ayrı bir hücrede notumu yazsam. yazdığım bu not , ilgili grafiğin ayın en son gününe otomatik olarak veri açıklama butonu (baloncuk) olarak eklenebilir mi?

teşekkürler,
saygılarımla,

 

[rasimeskil]

Sub AddNotesToCharts()
Dim ws As Worksheet
Dim cht As ChartObject
Dim lastPoint As Point
Dim note As String
Dim i As Integer

Set ws = ThisWorkbook.Sheets("Sheet1") ' Çalışma sayfanızın adını girin

For Each cht In ws.ChartObjects
' Grafikteki veri serisini seç
With cht.Chart.SeriesCollection(1)
Set lastPoint = .Points(.Points.Count)

note = ws.Cells(1, cht.Index + 1).Value ' Hücre konumunu ayarlayın

If note <> "" Then
lastPoint.ApplyDataLabels
lastPoint.DataLabel.Text = note
End If
End With
Next cht
End Sub

 

[matrax410]

merhaba hocam ,

yukarda yazdığınız kodların içindeki,
' Grafikteki veri serisini seç
' Hücre konumunu ayarlayın

bu iki koda nasıl işlem yapmam gerekiyor. tam anlayamadım. yardımınızı rica ederim.

teşekkürler