Pivot Grafik Oluşturma Access 2007'yi Kullanma VBA

Tamam, internette VBA kullanarak bir pivot grafiğin nasıl oluşturulacağını açıklayan veya kod örneklerini bulabileceğiniz iyi bir yazı yok. Buna ihtiyacım var çünkü bir formdaki kullanıcı seçimine bağlı olarak farklı sonuçlar göstermek için pivot grafiğe ihtiyacım var. Excel için bazı var ama sözdizimi Access için farklıdır. Bunun iyi bir soru olduğunu biliyorum, ama eğer VBA'de bir pivot grafik oluşturmak için bir örnek varsa, bu yardımı gerçekten takdir ediyorum.Pivot Grafik Oluşturma Access 2007'yi Kullanma VBA

kaynak

2009-04-14 Nick Sinas

3 gün aradıktan sonra onu buldum sanırım. Kimsenin umurunda değil, bu sadece 6 tane gibi görünüyor, VBA'nın mutlak korkunçluğu için çok şey söylüyor. Her neyse, MSDN bu Access altında değil, "Office XP" altında gizli vardı, ama her neyse.

http://msdn.microsoft.com/en-us/library/aa662945.aspx#

kaynak

2009-04-15 11:37:53

Sadece orada oldum Access'te grafikler kullanılabilirlik, anlam taşıyorsa MS Graph'ı 1996 yılına kadar deneyimlerime entegre eden büyük sorunlar. Böylece, birçok gelişmiş Erişim geliştiricisi bunu önler. P200 tablolar, A2003'e kadar var olmadı ve insanların onları çalışmaya başlamada problemleri olduğunu hatırlıyorum. –

Ben kullanıcı seçimi kontrolleri ve bir alt form olarak pivotform sahip başka formunda Access 2007'de bir Özet Grafik form oluşturmak ettik. Sonra ana formda böyle bir kod kullanıyorum. Nesne modeli, OWC11 ile aynıdır (Office Web Bileşenleri 11).

Private Function DisplayChart() 

    With mysubform.Form.ChartSpace 
    .Clear 
    .AllowFiltering = True 
    .HasChartSpaceTitle = True 
    .ChartSpaceTitle.Caption = "test" 
    .DisplayFieldButtons = False 
    .DisplayToolbar = False 

    .ConnectionString = ... 
    .CommandText = "SELECT rSeries, rCategory, rDate, rValue " & _ 
     "FROM myTable" 

    .Charts(0).Type = chChartTypePie 

    .SetData chDimSeriesNames, chDataBound, "rSeries" 
    .SetData chDimCategories, chDataBound, "rCategory" 
    .SetData chDimValues, chDataBound, "rValue" 

    .HasChartSpaceLegend = True 

    End With 

End Function

sabitleri

OWC11

C elde edilebilir: \ Program Files \ Common Files \ Microsoft Shared \ Web Bileşenleri \ 11 \ owc11.dll

Sen üstündeki onlara ihtiyacım modülü. Bu aşamada, bunları Access pivotchart'tan nasıl çıkaracağımı bilmiyorum. OWC11'e bir başvuru yapın ve alt form ChartSpace'i bir OWC11.ChartSpace olarak bildirilen bir değişkene ayarlayın. 'Nesne' yazmak için kod değiştirdikten sonra ve geç bağlama için referansı kaldırın (ve yeniden test edin). Bu şekilde, dağıtımlarınız, dağıtımınız sırasında 64 bitlik bir makinede geri gelmez.

Private Enum ChartConstants 
    chDimSeriesNames = 0 
    chDimCategories = 1 
    chDimValues = 2 
    chDataBound = 0 
    chAxisPositionValue = -8 
    chAxisPositionCategory = -7 
    chChartTypePie = 18 
End Enum

ayrıca kullanıcı Özet Grafik özelliklerine erişim formu, alan listeleri ve bırakma bölgeleri atalım unutmayın. Ya da onlara ulaşmak için grafiğe sağ tıklayabilirler.

(Not - bu hala herhangi yakaladım 's bulursan yüzden bu cevabı güncellemek için çaba gösterecektir için yeni bir keşiftir.)

kaynak

2010-11-11 00:38:44

, A2002'deki vba pivotcharts kullanarak Mike Gunderloy'un bir makalesi http://msdn.microsoft.com/en-us/library/aa155735%28office.10%29.aspx –

Pivot Grafik Oluşturma Access 2007'yi Kullanma VBA

cevap

İlgili konular