Veri etiketi biçimlendirilmesi

[sbayyigit]

Merhaba arkadaşlar Grafik konusunda pek iyi sayılmam. Yapmak istediği bir grafikte veri etiketini projedeki (sayfa2) gibi hizalıyorum. grafikte değişiklik yaptığımda hizalama eski haline dönüyor. yaptığım değişikliğin sürekli olabilmesi için ne gibi bir işlem yapmam gerekiyor.

Örneğin Ege bölgesindeki veri sayısı 3 olduğu için en başta 3 tane değeri de dikey olarak hizalıyorum.

bu aşamadan sonra her 3 seçenekli bölge seçtiğimde sorun yok ama bir seferinde 3 den az olan bir bölge seçtiğimde daha sonra yine bir 3 değerli bir bölge seçtiğimde hizalamalar bozuluyor.

 

[sbayyigit]

sorunu kendim çözdüm. kodlar aşağıda

private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
Set sg = Sheets("sayfa2")
sg.Range("a2:f100").ClearContents
f = s1.[a65536].End(3).Row
sg.Select
b = 2
For a = 2 To f
For c = 1 To 6
deger = s1.Range("a" & a).Value
If deger = ComboBox1.Value Then
sg.Cells(b, c).Value = s1.Cells(a, c).Value
Else
GoTo 20
End If
Next
b = b + 1
20
Next
z = sg.[a65536].End(3).Row

ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Sayfa2").Range("A1:F" & z), PlotBy:= _
xlRows
Unload Me
For p = 1 To z - 1
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(p).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Position = xlLabelPositionInsideBase
.Orientation = xlUpward
End With
Next p
End Sub