ChartSpace nesnesi

[Barons]

merhaba

Chartspace nesnesinin kullanımı hakkında bilgisi olan varmı acaba? grafiği kopyala yapıştır ile oluşturuyorum ancak bağlantılı yapamıyorum.Veriler değiştikçe grafiğinde değişmesini istiyorum.

Teşekkürler

 

[Ferhat Pazarçevirdi]

Daha önce örnekler verilmişti... Lütfen bu linki inceleyiniz.



.

 

[Barons]

Teşekkürler,
evet linki inceledim...teşekkürler...OWC11 dll dosyasınıda indirdim.Userforma spreadsheet ve chartspace nesnesini yükledim ve tabiki öncesinde missing yazısını checkboxdan kaldırdım.
şimdi ne yapmalıyım.Bu dll ' nasıl ne şekilde kullanacağım.

re-teşekkürler

 

[Ferhat Pazarçevirdi]

Bu linkteki owc11.exe dosyasını download edin ve çalıştırın. Yönergeleri izleyin..

Excel'i yeniden çalıştırın.


...

 

[Barons]

hata veriyor...obje bulunamadı hatası...userformda chartspace ve spreadsheet (19.0 versiyonu) .
ancak dll dosyasını indirdim bunu ne yapıyoruz..system32 klasörünün içinemi atacağız.
tşk.

 

[Ferhat Pazarçevirdi]

1) Obje bulunamadı hatasını ne zaman alıyorsunuz? Bir yerde hata yapıyor olmalısınız...

2) "19.0 versiyonu" dediğiniz nedir? Zaten OWC'nin en son versiyonu 11.0 ...

3) İşletim sisteminiz ve kullandığınız Office Paketinin sürümü nedir?

Eğer, owc11.exe dosyasını çalıştırıp, bilgisayarınızda kurulumu hata almadan tamamladıysanız; xls dosyayı tekrar download edip.. Sorun olacağını sanmıyorum.


.

 

[Barons]

tamam hocam çalıştı. teşekkürler...çok güzel bir örnek...
ancak bu verileri randomize üretiyor...bu chartspace nesnesini şu şekilde kullanmak mümkün olmuyormu?
örnek:sayfa1 de aylara göre üretim miktarları var ve bu userformda dinamik olarak grafiksel göstermek...veriler değiştikçe grafikde değişmeli.
ancak chartspace nesnesinde baktığımda sqlserverdan bile veri alma var ama sayfa veya hücre bağlantılı bir yapı göremedim.
Umarım anlatabilmişimdir.

 

[Ferhat Pazarçevirdi]

Bir örnek dosya hazırladım ... İnceleyiniz.

Bir Userformun üzerine OWC11 ChartSpace nesnesi yerleştirilmiş ve UF'nin yüklenme olayına, aşağıdaki kodlar yazılmıştır.

Private Sub UserForm_Initialize()
    Dim arrKategori() As Variant
    Dim arrDegerler() As Variant
    Dim i As Long
    Dim x As Long
    
[COLOR=DarkGreen]    'Grafiği oluşturacak veriler dizilere alınıyor[/COLOR]
    For i = 12 To Cells(65536, 2).End(xlUp).Row
        x = x + 1
        ReDim Preserve arrKategori(1 To x)
        arrKategori(x) = Cells(i, 2)
        ReDim Preserve arrDegerler(1 To x)
        arrDegerler(x) = Cells(i, 3)
    Next i
    
    With ChartSpace1
        .Clear
[COLOR=DarkGreen]        'Boş bir grafik ilave ediliyor[/COLOR]
        .Charts.Add
        With .Charts(0)
            .Type = chChartTypeLine
[COLOR=DarkGreen]            'Bir Grafik serisi ilave ediliyor[/COLOR]
            .SeriesCollection.Add
            With .SeriesCollection(0)
                .SetData chDimCategories, chDataLiteral, arrKategori
                .SetData chDimValues, chDataLiteral, arrDegerler
                .Line.Color = "Green"
            End With
        End With
    End With
    
    Me.Caption = "OWC11 ChartSpace Nesnesine Sayfadan Veri Alma için Örnek ..."

End Sub

 

[Barons]

hata verdi ..ekte resimde hocam...OWC11 İNDİRİP YÜKLEMİŞTİM..ZATEN BİR ÖNCEKİ DOSYA ÇALIŞMIŞTI AMA BURADA böyle bir hata verdi