Grafikteki değerleri düzeltilmesi Hk.

[ijol]

Merhaba,

Örnek tabloda göreceğiniz üzere 4 sayfa var ve bu sayfalarda grafikler bulunmaktadır. Benim yapmak istediğim şey grafiklerin içerisinde bulunan değerlerin dikey konumuna getirilip kendi sutununun üzerine gelmesi, bu ayarları tek tek yapıyorum ama tek bir seferde yapamadım.

bu konuda yardımcı olabilirmisiniz?

 

[uzmanamele]

merhaba
değerleri çift tıklayın, gelen pencerede hizalamada 90 derece döndürün

 

[ijol]

merhaba,

tek tek yapılmasını biliyorum benim merak ettiğim hepsi bir seferde oluyormu? çalışacağım dosyada sayfa sayısı çok fazla bu sadece örnek olsun diye 4 sayfa gönderdim.

yinede teşekkürler

 

[uzmanamele]

merhaba
kayıt makrosuyla aşağıdaki kodlar elde edilebiliyor.
genelleyebilirseniz çalışma kitabındaki tüm grafiklere uygulanabilir.

Sub Makro1()
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlUpward
End With
ActiveChart.SeriesCollection(3).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlUpward
End With
ActiveChart.SeriesCollection(2).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlUpward
End With
ActiveWindow.Visible = False
Windows("%F6rnek.xls").Activate
Range("N24").Select
End Sub

 

[ijol]

uzmanamele merhaba,

yapıyorum ama olmuyor, çalıştığım ofis ingilizce ondan kaynaklı olabilirmi?

 

[uzmanamele]

merhaba
aşağıdaki kodları bir modüle kopyalayarak klavye kısayoluna atayın.
sayfayı seçip kısayoldan makroyu çalıştırırsanız o sayfadaki 2 adet grafik için düzeltmeyi yapacakdır.
sayfanızda 2 den fazla grafik varsa 3. grafik için kodları kopyalayarak grafik adını değiştirin. ActiveSheet.ChartObjects("Grafik 3").Activate
umarım işe yarar

Sub grafik_düzelt()
'1.grafik için
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlUpward
End With
ActiveChart.SeriesCollection(2).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlUpward
End With
ActiveChart.SeriesCollection(3).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlUpward
End With
ActiveChart.ChartArea.Select

'2. grafik için
ActiveSheet.ChartObjects("Grafik 2").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlUpward
End With
ActiveChart.SeriesCollection(2).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlUpward
End With
ActiveChart.SeriesCollection(3).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlUpward
End With
ActiveChart.ChartArea.Select
End Sub

 

[ijol]

uzmanamele merhaba,

dediğini yapıyorum ama olmuyor hata veriyor, nerede hata yaptığımı anlamadım. siz örnek tabloda yapıp örnek tabloyu cevaba ekleyerek gönderebilirmisiniz?

 

[uzmanamele]

merhaba
ek dosya işinizi görür umarım.
çok sayfada kullanabilmeniz için makroyu butona değil klavye kısayoluna atadım.
klavye kısayolları:
3 çubuklu grafik için ctrl+a
4 çubuklu grafik için ctrl+b

not: bu kodları asıl dosyanızda kullanmak için aşağıdaki satırları silin
'Windows("grafik düzelt.xls").Activate
'Range("O54").Select

 

[ijol]

teşekkürler

 

[ijol]

uzmanamele,

verdiğin çözüm çok güzel, nerede hatalı olduğumu buldum, son olarak bu dikleşen veriler kendi çubuğunun ortalayarak üzerine yazılması gibi bir şey olabilirmi?

 

[uzmanamele]

merhaba
bu şekilde denermisiniz

Sub grafik_düzelt_2_2()
''' 4 çubuklu grafik için
''' klavye kısayolu ctrl+b
'1. grafik için
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Position = xlLabelPositionOutsideEnd
.Orientation = xlUpward
End With
ActiveChart.SeriesCollection(2).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Position = xlLabelPositionOutsideEnd
.Orientation = xlUpward
End With
ActiveChart.SeriesCollection(3).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Position = xlLabelPositionOutsideEnd
.Orientation = xlUpward
End With

'2. grafik için
ActiveSheet.ChartObjects("Grafik 2").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Position = xlLabelPositionOutsideEnd
.Orientation = xlUpward
End With
ActiveChart.SeriesCollection(2).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Position = xlLabelPositionOutsideEnd
.Orientation = xlUpward
End With
ActiveChart.SeriesCollection(3).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Position = xlLabelPositionOutsideEnd
.Orientation = xlUpward
End With
End Sub