Userformda aktif grafik yaratma

[ilhanbatu]

Merhaba,
Userform üzerinde aktif grafik konusunda yardımcı olmanızı istediğim bir kaç konu var.Şöyleki
1-ben pivot table formatında bir grafik hazırladım bunu userform üzerine koymak istiyorum.Bunu sheet'e commandbutton koyarak yapabiliyorum ama benim istediğim butonun sheette değil userform üzerinde olması.
2-Userformda çıkan grafikte seçenek tuşalarını (Pivot table formatı) kullanmak istiyorum.Yani grafiğin aktif olmasını istiyorum.
3-Ve butona basıldığında grafik otomatik olarak Refresh data (verileri yenilem) yapsın.
Dediğim gibi bunu sheet üzerinde yapabiliyorum ama userform üzerinde beceremedim.Örnek olması açısından kullandığım örnek grafiğide ekliyorum.
Yardımcı olabilirseniz sevinirim.

 

[hamitcan]

Ben bir şeyler yaptım ama...

Private Sub CommandButton1_Click()
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("Sayfa4!$A$3:$C$24")
    ActiveWorkbook.ShowPivotChartActiveFields = True
    ActiveChart.ChartType = xlColumnClustered
    ActiveSheet.ChartObjects(1).Chart.Export Filename:="grafik.gif", FilterName:="GIF"
    Image1.Picture = LoadPicture("grafik.gif")
    ActiveSheet.ChartObjects(1).Delete
End Sub

 

[ilhanbatu]

Program açılmıyor.
Bu konuda yardım edecek kimse yok sanırım.

 

[ilhanbatu]

Arkadaşlar,
Bu konuda niye kimse yardımcı olmuyor.

 

[hamitcan]

Program açılmıyor.
Bu konuda yardım edecek kimse yok sanırım.

Dosyayı mı açamadınız ?

 

[ilhanbatu]

Macroyu çalıştırdığımda herhangi bir şey olmuyor.

 

[assenucler]

Sayın hamitcan;

Merhaba.. Katkınız için teşekkürler..

Sevgi ve saygılar.

 

[carpediem]

Düğme çalışmıyor

Macroyu çalıştırdığınızda arka planda başka excel dosyası çalışmadığından emin olun. O zaman açılacaktır.