HELP! OLE Microsoft Excel Chart

[jkw119]

I have a textBox on a user form, with an embedded OLE Microsoft Chart. What I need to do is when the user inputs a value in the text box, write it to Sheet1 of the worksheet using the text1_change function. but, i don't know the code to write that value to that embedded worksheet. Thanks,

JeFF

[Mortivan]

Try something like this:

Option Explicit

Const OLE_CREATE_EMBED = 0

Private Sub Command1_Click()

Dim objChart As Object

OLE1.Class = "Excel.Chart.8"
OLE1.Action = OLE_CREATE_EMBED

Set objChart = OLE1.object

objChart.Worksheets("Sheet1").Cells(4, 3).Value = Text1.Text

End Sub

This will assign the text in textbox Text1 to the cell at row 4, column 3 when button Command1 is pressed.

-mort

[Mortivan]

Check this out:

http://support.microsoft.com/default...;en-us;Q112443

-mort

[jkw119]

thanks so much! that works perfectly. I have been trying to do that for a while now.

JEFF