textbox ve grafik güncelleme

[theglacier]

Selamlar,

userformu açtığım zaman, textbox'ın bağlı olduğu excel hücresinden bilgi geliyor, fakat userform üzerinde textboxlara bilgi girdiğimde, textbox10 da herhangi bir değişiklik olmuyor. ancak kapatıp açtıktan sonra güncelliyor kendisini. userform üzerinde çalışırken güncellemesi için refresh butonu yaptım aşağıdaki kodlarla. ama, userformda ve grafikte güncelleme olmuyor. sadece excel sayfası güncelleniyor. programı bitirirsem sadece userform üzerinde işlem yapacağım. excel sadece arka planda işlem yapacak. grafik hücre bağlantısı olmadan serilerle yapıldı.

güncelleme için kullandığım kod
Private Sub CommandButton1_Click()
ActiveWorkbook.RefreshAll
Sheets("grafik").Select
ActiveSheet.ChartObjects("Chart 1").Activate
end sub

textbox10 hücre bağlantısı
Private Sub worksheet_Calculate()
SpreadInput.TextBox10.Value = Sheets("AAA").Range("CK33E33").FormulaR1C1Local
End Sub

grafik kodu

Private Sub UserForm_Initialize()

Call UpdateChart

End Sub

Private Sub UpdateChart()

Dim sTempFile As String
Dim oChart As Chart

sTempFile = Environ("temp") & "\temp.gif"

Set oChart = Worksheets("grafik").ChartObjects("Chart 1").Chart

oChart.Export Filename:=sTempFile, FilterName:="GIF"

Me.Image1.Picture = LoadPicture(sTempFile)

Kill sTempFile

End Sub


kısaca belirtmem gerekirse, userformda çalışırken (veri girerken), anlık olarak textbox ve grafiğin güncellemesini istiyorum.

yardımlarınız için şimdiden teşekkürler.