Userformda grafik

[TRUSA]

Merhaba arkadaslar,

Form uzerinde bir grafik gostermeye calisiyorum. Degerleri Excel sheet den alacak. Grafigi form uzerine koymayi basardim fakat degerleri nasil aldiracagimi cozemedim. Acilen yardimlarinizi bekliyorum..

Tesekkurler.

 

[Levent Menteşoğlu]

Grafigi form uzerine koymayi basardim fakat degerleri nasil aldiracagimi cozemedim. Acilen yardimlarinizi bekliyorum..

Grafiği form üzerine nasıl yerleştirdiniz.

 

[TRUSA]

Selam leventm,

Yanit icin tesekkurler. Ekli dosyada bir ornek gonderiyorum. A ve B kolonlarini form uzerindeki grafikte gormek istiyorum. Macro calisirken excel sheetler gorunmeyecegi icin degerler degistikce de grafigin calismasini istiyorum. Eger cozum imkansizsa degisik fikirlere ve cozumlere acigim.

Yardimlariniz icin tesekkurler.

 

[Levent Menteşoğlu]

Ekte bir dosya hazırladım. Dosyada grafiğin iki farklı şekilde userform üzerine alınmasını görebilirsiniz. Birincisinde sizin dosyanızda olduğu gibi chartspace nesnesi kullanılmıştır. Bu nesneye direk sayfa üzerinden veri alamıyorsunuz. Ancak bir spreadsheet nesnesinden veri aldırabilirsiniz. Bu sebeple userform üzerine birde spreadsheet nesnesi yerleştirilerek sayfa üzerindeki veriler önce bu nesneye alınmış ve buradan grafiği çizdirilmiştir.

İkinci örnekte ise grafik nesnesi değil bir image nesnesi kullanılmıştır. Yapılan işlem sayfa üzerinde oluşturulan grafiğin resmi, bir jpg dosyası olarak kaydedilip, sonra image nesnesine yüklenmektedir.

 

[TRUSA]

leventm,

Vermis oldugun bu engin bilgiler icin ne kadar tesekkur etsem azdir..

Yardimlarin icin sonsuz tesekkurler..

 

[TRUSA]

Tekrar Merhaba,

Cozemedigim birkac problem var. Herzamanki gibi yardimlariniza ihtiyacim var.

Chartspace de grafik ayarlari yapilamiyormu ? Yani grafik sekli, yazi karakterleri, grafik rengi vb. gibi ayarlar nasil yapilir ?

Spreadsheet i form uzerinde kullanilirken yukaridaki bahsettigim ayarlar yapilabiliyormu ?

Combobox kullaniminda form ilk acildigi anda combobox a tanimli listenin en basindaki secenek gelemezmi ve combobox ta secim yaptigimizda yazinin tarali cikmamasini saglayamazmiyiz?

Yardimlariniz icin tekrar tesekkurler..

 

[Levent Menteşoğlu]

Chartspace de grafik ayarlari yapilamiyormu ? Yani grafik sekli, yazi karakterleri, grafik rengi vb. gibi ayarlar nasil yapilir ?

Spreadsheet i form uzerinde kullanilirken yukaridaki bahsettigim ayarlar yapilabiliyormu ?

Combobox kullaniminda form ilk acildigi anda combobox a tanimli listenin en basindaki secenek gelemezmi ve combobox ta secim yaptigimizda yazinin tarali cikmamasini saglayamazmiyiz?

Yazdıklarınızın hepsi elbette yapılabilir. Ama net çözüm için dosyanızı eklemenizi öneriyorum. Özelliklede grafiği oluşturan tablonuzu ve istediğiniz grafik tipinide içermelidir.

 

[TRUSA]

Tekrar Merhaba leventm,

Sizin daha once benim icin hazirladiginiz ornegi birtakim ilaveler yaparak gonderiyorum.

* Mesela buradaki grafigi column seklinde, font un mavi, barlarinda sari olmasini istiyorum

* Form ilk acildiginda uzerindeki combobox bos geliyor ve sectikten sonra yazi tarali kaliyor. Form ilk acildigi anda combobox a tanimli listenin en basindaki secenek gelemezmi ve combobox ta secim yaptigimizda yazinin tarali cikmamasini saglayamazmiyiz?

Yardimlariniz icin tesekkurler..

 

[Levent Menteşoğlu]

Ekteki dosyada istediklerinizden anladığım kadarı ile ilaveler yaptım inceleyin.

 

[TRUSA]

Merhaba Arkadaslar,

Form uzerinde grafik olusturduktan sonra, programi calistirdiginda ekteki hata mesagini veriyor. Ayarlar ile ilgili bir sorun var ise bunu program calismaya basladiginda otomatik yaptiramazmiyiz ? Cunki program tek bir bilgisayarda calismayacak ortak bir drive uzerinden birden fazla bilgisayarda calisacak.

Yapabilirmiyiz bilmiyorum ama, birde macro lu excel calistirildiginda enable macro yapmamiz gerekiyor. Bu da otomatik olamaz mi?

Yardimlariniz icin tesekkurler.

 

[Levent Menteşoğlu]

Bu mesaj kullanılan nesnelerin aslında bir VBA nesnesi olmamasından kaynaklanıyor. Çözümü içinde registerde bazı ayarların yapılması gerekiyor. Bu register ayarlarının yapılması için kodu sadece bir kere çalıştırmanız yeterlidir.

Uyarı mesajı:

This Application is about yo initialize ActiveX controls that might be unsafe.If you trust the source of this file, select OK and the controls will be initialized using your current workspace settings.

[LEFT]Sub regolustur()
Dim deg As Object
anahtar = "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms"
Set deg = CreateObject("WScript.Shell")
deg.RegWrite anahtar, 1, "REG_DWORD"
End Sub[/LEFT]

 

[selcuk2427414]

Textboxlara girilen verilerin linear grafiğini yazdırmak

Arkadaşlar merhaba,

benim 2 tane textboxum var.. Bunlara girilen verilerin butona basıldığında çizgi grafiğini yazdırmak istiyorum. bana yardımcı olabilecek arkadaşlar lütfen mesaj atarlarsa çok makbule geçer. Bitirme projemin bir kısmı olup çok acil yapmam gerekiyor..

Saygılar

 

[b_balban]

Merhaba Arkadaşlar,

Bu hafta sunum yapıcam da ekteki excel çalışma için userform da grafik oluşturmak istiyorum, yapamadım yardımcı olurmusunuz.Ekteki dosya satış raporudur.sadece departmanlar çıkacak grafikte, main category çıkmıcak.çok yer kaplıyor grafikte.

teşekkür ederim.

 

[emsey]

Bu mesaj kullanılan nesnelerin aslında bir VBA nesnesi olmamasından kaynaklanıyor. Çözümü içinde registerde bazı ayarların yapılması gerekiyor. Bu register ayarlarının yapılması için kodu sadece bir kere çalıştırmanız yeterlidir.

Uyarı mesajı:

This Application is about yo initialize ActiveX controls that might be unsafe.If you trust the source of this file, select OK and the controls will be initialized using your current workspace settings.

[LEFT]Sub regolustur()
Dim deg As Object
anahtar = "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms"
Set deg = CreateObject("WScript.Shell")
deg.RegWrite anahtar, 1, "REG_DWORD"
End Sub[/LEFT]

Üstadım benimde userformda grafiğe ihtiyacım var. Grafiği jpg kaydedip userforma çekmeyi inceledim fakat userform1'dekini inceleyemiyorum. Aşağıdaki hata mesajını alıyorum.

"Could not load some objects becuse they are not available in this machine."

Benim makinede birşeyler mi eksik anlamadım ki?