Using VBA to insert userfom Textbox value into a textbox within a chart

[Mikeymike_W]

Hi,

I'm trying to populate a textbox (Textbox1) which is embedded within a chart (Chart1). Chart1 is found on the sheet called "Christmas".
I'm wanting to populate textbox1 with the value of a textbox ("TBFrom1") from a userform.

I've been looking everywhere for answers but haven't found anything that works.

I've tied the following bit of code but it throws an error when setting the cht value.

Thanks in advance for any help,

Mike

Private Sub CBCreate_Click()

Worksheets("Christmas").Activate

Dim cht As Chart
Dim txtB As TextBox

Set cht = Charts("Chart1")
Set txtB = cht.TextBoxes("Textbox1")
txtB.Text = Me.TBFrom1.Value

Unload Me


End Sub

 

[Mikeymike_W]

got it sorted using the following:

  Dim w As Worksheet
    Dim c As ChartObject
    Dim s As Shape
    Dim sMsg As String
    Dim sName As String


    
       For Each c In ActiveSheet.ChartObjects
            For Each s In c.Chart.Shapes
                If s.Type = msoTextBox And s.Name = "TextBox 3" Then
                    s.TextFrame2.TextRange.Text = Me.TBFrom1.Value
                    
                    Else
                    
                    If s.Type = msoTextBox And s.Name = "TextBox 8" Then
                    s.TextFrame2.TextRange.Text = Me.TBTo1.Value
                    
                    Else
                    
                    If s.Type = msoTextBox And s.Name = "TextBox 9" Then
                    s.TextFrame2.TextRange.Text = Me.TBDate1.Value
                    
                    Else
                    
                    If s.Type = msoTextBox And s.Name = "TextBox 10" Then
                    s.TextFrame2.TextRange.Text = Me.TBSec1.Value

                 End If
                 End If
                 End If
                End If
            Next s
        Next c