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.