Userform'a grafik ekleme

[gurcan21]

MERHABA,

EKTE GÖNDERDİĞİM ÇALIŞMADA 3 YERDA TAKILDIM. AŞAĞIDAKİ ŞEKİLDE ÖZETLEYEYİM DURUMU:

KULLANICI ADI VE ŞİFRESİ İLE GİRİŞ YAPILDIĞINDA OTOMATİK İKİNCİ USERFORM AÇILIYOR.FAKAT 2. USERFORMDAKİ COMMANDBUTTON ÇALIŞMIYOR(KOD İÇİNDE SATIR SÜZME İŞLEMİNİ YAPMIYOR)

YAPMAK İSTEDİĞİM İSE, KİŞİ KULLANICI ADI İLE GİRİŞ YAPTIĞINDA (ÖRNEK Kullanıcı adı kaya21, şifre ogb) KARŞISINA ÇIKACAK USERFORMDA İKİ ADET GRAFİK GÖRMESİ. GRAFİKLER HEMEN ALTLARINDAKİ GEÇİŞ BUTONLARI İLE GÖRÜLEBİLMELİ. GRAFİKLERDEN BİRİ KALAN ŞİPARİŞLER DOSYASINDA İLGİLİ KULLANICININ KODUNA GÖRE FİLTRELEME YAPILDIKTAN SONRA,İKİNCİSİ İSE TÜM MALZEMELERİ İÇERECEK. GRAFİK HERHANGİBİR KRİTERDE PİE CHART, BAR CHART OLABİLİR

İKİNCİ YAPMAK İSTEDİĞİM İSE SİSTEM ÜZERİNDE GİRİŞ YAPAN TÜM KULLANICILARIN KAYITLARININ KUL_KONTROLDE TUTULMASI. BU SAYFANIN İÇERİĞİ DE KULLANICI ADI,GİRİŞ TARİHİ,YAPTIĞI DEĞİŞİKLİKLER OLACAK. ÖRNEĞİN kaya21 KULLANICISI SİSTEME GİRİŞ YAPIP KALAN SİPARİŞLER ÜZERİNDE B21 HÜCRESİNİ DEĞİŞTİRİRSE KUL_KONTROLDE

KAYA21 13.06.2011 SİSTEME GİRİŞ YAPTI
KAYA21 13.06.2011 KALAN_SİPARİŞLER B21 HÜCRESİ DEĞİŞTİRİLDİ

TARZINDA BİR KAYIT TUTULSUN İSTİYORUM.

YARDIMCI OLURSANIZ SEVİNİRİM.

 

[gurcan21]

Arkadaslar konu biraz kapalimi geldi size?? daha aciklayabilirim??

 

[gurcan21]

cevap verecek bir arkadaş yok mu?

 

[Levent Menteşoğlu]

Dosyanız sorularınız için çok yetersiz. Öncelikle siz istediğinizi grafikleri sayfa üzerinde oluşturun. Daha sonra bu grafikler userform üzerine resim olarak alınabilir.

 

[gurcan21]

Hocam örnek bir dosya hazırladım. (esas dosyam yanımda olmadığı için) ekteki dosyadaki userform kullanıcı adı ve şifre girildikten sonra ilgili kullanıcıya ait olarak otomatik geliyor.ekteki grafikte kullanıcı adına göre süzme işlemi yapıldıktan sonraki verilere ait bi grafik olacak. Bu userform görününce otomatik çıksın istiyorum.

 

[Levent Menteşoğlu]

Dosyanızdaki userform grafiği ekledim. Dosyayı açtığınızda aşağıdaki gibi bir uyarı mesajı alırsanız bir altta vereceğim kodu sadece bir kez çalıştırınız.

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][COLOR=black]Sub regolustur()[/COLOR]
[COLOR=black]Dim deg As Object[/COLOR]
[COLOR=black]anahtar = "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms"[/COLOR]
[COLOR=black]Set deg = CreateObject("WScript.Shell")[/COLOR]
[COLOR=black]deg.RegWrite anahtar, 1, "REG_DWORD"[/COLOR][/LEFT]
[COLOR=black]End Sub[/COLOR]

 

[gurcan21]

hocam dediğiniz şekilde olmadı ama ben bi kod yazdım grafiklerin görüntülenmesi için ama hata veriyor rica etsem bi bakabilir misiniiz?

kullanıcı adı admin
şifre ogb

 

[Levent Menteşoğlu]

Grafiği resim olarak kaydeden bir uygulamayı dosyanıza ekledim. 6 nolu mesajımda eklediğim dosyadaki chartspace nesnesi uygulamasıdır.

 

[gurcan21]

hocam bunu peki ekstra bir butonla değilde kullanıcı adı ve şifre girildikten sonra açılan ikinci pencerede otomatik gelebilir mi??

 

[Levent Menteşoğlu]

Birinci userformdaki kodlardaki userform2.show komutundan önce butonlardaki kodları yazın.

 

[gurcan21]

ekledim ama hata veriyor? :s

 

[Levent Menteşoğlu]

userform2'nin UserForm_Initialize olayına yazın.

 

[gurcan21]

Hocam bir türlü bu grafik olayı userforma gelmiyor? Yardım lütfen :/

 

[Ergün Güler]

Grafiği resim olarak kaydeden bir uygulamayı dosyanıza ekledim. 6 nolu mesajımda eklediğim dosyadaki chartspace nesnesi uygulamasıdır.

Levent hocam,
Ekteki dosyanızı inceledim.
Sayfa üzerindeki Grafiğe sağa tıklayıp "kopyala" yapıyorum. Daha sonra form üzerindeki Image'ın özelliklerinden "picture" bölümüne yapıştırıyorum. Oldukça net bir görüntü oluyor. Daha sonra aşağıdaki kodlardaki "jpg" olan yerleri "bmp" olarak değiştirdim. Görüntü netleşti.

Sheets("İSTATİSTİK").ChartObjects(1).Chart.Export "C:\xxgrafikxx.bmp"
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture("C:\xxgrafikxx.bmp")
Kill ("C:\xxgrafikxx.bmp")

Size 1-2 sorum olacak;
-Grafiği sayfaya kodlar ile oluşturup Image'ya aktardıktan sonra silemez miyiz? Yani sayfada görünmese yer kaplamasa.
- grafiği "jpg" veya "bmp" olarak dönüştürmeden direkt formdaki Image.Picture'a aktaramaz mıyız?