Grafik gizleme ve gösterme

[SMSKMHMMT]

Öncelikle herkese kolay gelsin umarım yardım edebilirsiniz.
Örnek vererek açıklamak zorundayım kusura bakmayın.
A sutunundan EH sütununa kadar veriler tablolar ve grafiklerim bulunmakta. Bu alanı gizlemeden makro ile tabloları, verileri ve grafikleri EI sütunundaki istediğim yere getirebiliyorum. Ancak bahsettiğim alanı gizlediğimde grafikler en olarak sıfıra düşüyor. Makroya aşağıdaki kodu ekledim yine sütunlar gizli iken çalışmıyor.
With ActiveSheet.ChartObjects("Grafik 1")
.Width = 350
.Height = 220

Yardım ederseniz sevinirim.

 

[necati]

Merhaba,
Hücreleri gizleyince grafiğin küçülmesini önlemek için:
Grafik seçili iken,
* Biçim menüsü
* Boyut
* Özellikler
* Hücrelerle taşıma ve boyutlandırma
* Kapat

 

[muhasebeciyiz]

Gizli sütunlar nedeniyle grafiklerin veri kaynakları bozulabilir. Grafiklerin veri kaynağını yeniden belirlemek, sorunu çözebilir.
Bu kodu çalıştırarak grafiklerin veri kaynağını yeniden tanımlayabilirsiniz. Bu örnekte "A1 " veri aralığını, grafiklerinizin verilerini kapsayan uygun bir aralıkla değiştirin.

Sub ResetChartData()
Dim cht As ChartObject
Set cht = ActiveSheet.ChartObjects("Grafik 1")

cht.Chart.SetSourceData Source:=Range("A1:E10") ' Burada veri kaynağınızı uygun şekilde ayarlayın
End Sub

veya

Gizli sütunlar nedeniyle grafikleriniz bozuluyorsa, makro çalıştırmadan önce gizli sütunları geçici olarak göstermek ve ardından grafikleri yeniden düzenlemek iyi bir çözüm olabilir.Bu kodda "A:EH" aralığını, grafikleri etkileyen sütunları kapsayacak şekilde değiştirin ve veri kaynağını uygun şekilde ayarlayın.

Sub UpdateCharts()
Dim rng As Range
Dim col As Range
Dim cht As ChartObject

ActiveSheet.Columns("A:EH").EntireColumn.Hidden = False

For Each cht In ActiveSheet.ChartObjects
With cht
.Width = 350
.Height = 220
.Chart.SetSourceData Source:=Range("A1:E10") ' Veri kaynağını güncelle
End With
Next cht

ActiveSheet.Columns("A:EH").EntireColumn.Hidden = True
End Sub

Deneyiniz.

 

[SMSKMHMMT]

Merhaba,
Hücreleri gizleyince grafiğin küçülmesini önlemek için:
Grafik seçili iken,
* Biçim menüsü
* Boyut
* Özellikler
* Hücrelerle taşıma ve boyutlandırma
* Kapat

Sanırım sorunumu tam olarak anlatamadım. Yapılan işlem üzerinde başarılı olamadığım için dosya yüklesem de anlatmış olamayacağım. Şöyle izah edeyim;
A sütununda veriler var b ve c sütununda alt alta grafikler var ben a, b ve c sütunlarını gizleyerek d1 hücresine şarta göre grafik1'i yada 2 yi çağırıyorum. Hücrelerle taşıma ve boyutlandırma yapınca bu sefer grafik gizlenmiyor a, b ve c sütunları gizleniyor grafikler bu sefer d, e, f sütunlarına geliyor.
Sayın muhasebeciyiz in vermiş olduğu cevabı deneyeceğim.