Userform Üzerinde Grafikleri Görme Hakkında...

[yesimgurol]

Merhabalar,

Sorum ile ilgili forumlarda arama yaparken Sayın İdris Serdar Bey'in yapmış olduğu örnek çalışmaya rastladım. Kodları ekte bulunan kendi sayfamda denemeye çalıştım fakat başarılı olamadım.

Sayın İdris Bey'in örnek çalışması;

http://http://www.excel.web.tr/f170/userform-zerinde-grafik-gosterme-t137779.html

 

[Murat OSMA]

Merhaba,
Bu kodları UserForm'a ilave edin.

[SIZE="2"]Private Sub UserForm_Initialize()
    ComboBox1.RowSource = Empty
    For i = 1 To 7
        ComboBox1.AddItem i
    Next i
End Sub[/SIZE]

 

[yesimgurol]

Murat bey merhabalar,
Çok teşekkür ederim.:dua2::mutlu::mutlu:

 

[yesimgurol]

Sayfanın son hali ekteki gibi oldu. Aslında güzel oldu fakat "ComboBox1" de grafik başlıkları listelense

 

[Haluk]

Bunun için;

1) Önce Private Sub ComboBox1_Change() kodunda;

aşağıdaki satırı silip,

ActiveSheet.ChartObjects.Select

bunu ekleyin,

Sheets("GRAFİK").ChartObjects(ComboBox1.ListIndex + 1).Select

Ayrıca aşağıdaki satırı silip,

Set grafik = Sheets("GRAFİK").ChartObjects(ComboBox1.Text).Chart

yerine, bunu ekleyin;

Set grafik = Sheets("GRAFİK").ChartObjects(ComboBox1.ListIndex + 1).Chart

2) Daha sonra, UserForm_Initialize() kodunda aşağıdaki satırı silip;

ComboBox1.AddItem i

bunu ekleyin,

ComboBox1.AddItem Sheets("GRAFİK").ChartObjects(i).Chart.ChartTitle.Text

.

 

[yesimgurol]

Haluk bey, ilginize çok teşekkür ederim. Dediklerinizi yaptım evet grafik başlıkları dediğim gibi geldi fakat bu seferde grafikler çıkmadı:???:

 

[Haluk]

Mesajımda bahsettiklerimin hepsini uyguladığınıza emin olun .....


.

 

[yesimgurol]

Mesajımda bahsettiklerimin hepsini uyguladığınıza emin olun .....


.

ayy çok özür dilerim. Bir satırı değiştirmeyi atlamışım. Şimdi oldu Haluk Bey, teşekkür ederim.:bravo::mutlu::mutlu::mutlu:

Son bir sorum daha olsa , formda görünen grafik yazıları bozuk çıkıyor, sanırım çözünürlükten dolayı olsa gerek diye düşünüyorum. Bunun bir çaresi var mıdır?

 

[Haluk]

Grafiklerin orjinalini sayfa üzerinde okuması bile zaten zorken, UserForm'da daha iyi bir görüntü beklemeniz biraz zor.....

Vakti olan birisi tarafından uğraşılırsa belki düzeltilebilir, emin değilim ...

 

[yesimgurol]

Grafiklerin orjinalini sayfa üzerinde okuması bile zaten zorken, UserForm'da daha iyi bir görüntü beklemeniz biraz zor.....

Vakti olan birisi tarafından uğraşılırsa belki düzeltilebilir, emin değilim ...

Tamamdır,Haluk bey.. Çok çok teşekkür ederim.:dua2::bravo::bravo:

 

[Haluk]

Kolay gelsin ....

.

 

[Haluk]

Bu arada........ grafiklerin eksenlerini seçip, fontları büyütmeyi deneyerek biraz daha okunaklı görüntüler elde edebilirsiniz.

.

 

[yesimgurol]

Bu arada........ grafiklerin eksenlerini seçip, fontları büyütmeyi deneyerek biraz daha okunaklı görüntüler elde edebilirsiniz.

.

Hmmm, evet haklısınız. Denemeye değer. Çok teşekkür ederim. Sizlere de kolay gelsin , Haluk Bey.:dua2::mutlu::mutlu:

Haluk Bey, dediğiniz öneriyi denedim oldu gerçekten...

 

[Haluk]

Kolay gelsin ...

.

 

[yesimgurol]

Dosyanın son halini de eklemiş oldum. Belki başka bir arkadaşa yol gösterir.