Grafiği temp klasörüne nasıl atarım.

[merttr07]

Öncelikle grafiği temp klasöre atacaksın. Sonra userform içine eklediğin image nesnesi içine grafiği resim olarak getirteceksin.
Kodlardaki isimleri (sekme,grafik,image nesnesi) kendine göre düzenlemelisin.
Kodları bir buton altına atıp deneyebilirsin.

Set mychart = sheets("sekmeismi").Shapes("Chart 1").Chart
mychart.Export VBA.Environ("TEMP") & Application.PathSeparator & "graph.jpg"
Me.Image1.Picture = LoadPicture(VBA.Environ("TEMP") & Application.PathSeparator & "graph.jpg")

Bunu buldum ama arkadaşlar yaptığım programda girilen verilere göre grafiğin şekil alması gerekiyor onu nasıl sağlarım. Ve başlıktaki gibi temp klasörüne nasıl atacağım. Sabit bir veri akışı bulunmamakta programda veri girildikçe grafiğin şekil alması gerekmekte.

 

[merttr07]

Kolay gelsin arkadaşlar grafiği resim olarak nasıl kaydederim kaydetdiğim resmi user form da kulanıcam. Ayrıca Temp dosyasının içerisine de grafiği atmam gerekiyor.

 

[Korhan Ayhan]

Verdiğiniz kodu denediniz mi?

 

[Costcost]

merhabalar,

aşağıdaki kod belki yardımcı olur, kendi uygulamanızda deneyebilirsiniz.

Private Sub CommandButton1_Click()
Sheet11.PageSetup.PrintArea = "a$1:s$38" '& Range("H65536").End(3).Row 'ActiveSheet

Dim hucre As Range
Dim ekresim As Variant
Set hucre = Sheets("info").Range("A$1:S$38") '.End(3)
Application.ScreenUpdating = True
hucre.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With Sheet18.ChartObjects.Add(Left:=hucre.Left, Top:=hucre.Top, _
Width:=hucre.Width, Height:=hucre.Height)
.Name = "Evn"
.Activate
End With
ActiveChart.Paste
ekresim = ThisWorkbook.Path & "\ZZ.bmp"
ActiveSheet.ChartObjects("Evn").Chart.Export ekresim
ActiveSheet.ChartObjects("Evn").delete
Application.ScreenUpdating = True
Image1.Picture = LoadPicture(ekresim)
Kill ekresim
Set hucre = Nothing
End Sub

Private Sub UserForm_activate()
Call CommandButton1_Click
End Sub