Grafiği User Form Üzerinde Göstermek

[ouney06]

If donem = "Aralık-2007" Then
Label8.Caption = FormatNumber(sayfa.Cells(37, 12), 2)
Label9.Caption = FormatNumber(sayfa.Cells(37, 13), 2)
Label10.Caption = FormatNumber(sayfa.Cells(37, 14), 2)
Label11.Caption = FormatNumber(sayfa.Cells(37, 16), 2)
Label12.Caption = FormatNumber(sayfa.Cells(37, 17), 2)
Label13.Caption = FormatNumber(sayfa.Cells(37, 18), 2)
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Platts Bilgileri").Range("D634") _
, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Platts Bilgileri"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveSheet.Shapes("Grafik 1").IncrementLeft -297#
ActiveSheet.Shapes("Grafik 1").IncrementTop 492.75
End If

yukarıdaki kodda neyi değiştirmem gerekiyor ki grafiği userform üzerinde gösterebileyim. Teşekkürler

 

[Levent Menteşoğlu]

Bu istediğiniz, kod içine basit bir ilave ile çözülemeyecak bir konudur. Aşağıdaki linki incelemenizi öneririm.

Userformda grafik

 

[Terkanli]

Günaydın Ouney06
Ekte bir excel kitabı gönderiyorum. inceleyip kendinize uyarlayabilirsin.

 

[ouney06]

Terkanli ve leventm ilginize teşekkürler