Text Box Error

ZavNice · #1 07-30-2008, 03:49 PM

Hello everyone. I'm recieving a Run-Time Error that says "The item with the specified name wasn't found". It's point to this line of

Code:

ActiveChart.Shapes("Text Box 2").Select

The code with it is

Code:

Sheets("Chart1").Select
ActiveChart.Shapes("Text Box 2").Select
ActiveChart.Shapes("Text Box 2").Top = 12
ActiveChart.Shapes("Text Box 2").Height = 18
ActiveChart.Shapes("Text Box 2").Width = 120
ActiveChart.Shapes("Text Box 2").Left = 510

ActiveSheet.TextBoxes.Add(487003.5, 0, 1742961, 220063.5).Select
ActiveChart.Shapes("Text 3").Select
ActiveChart.Shapes("Text 3").Height = 18
ActiveChart.Shapes("Text 3").Width = 120
ActiveChart.Shapes("Text 3").Top = 1
ActiveChart.Shapes("Text 3").Left = 65
Selection.Characters.Text = "Citigroup Internal"
With Selection.Characters(Start:=1, Length:=18).Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 12
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = 5
End With
'Selection.ShapeRange.ScaleHeight 0.78, msoFalse, msoScaleFromTopLeft
ActiveChart.Shapes("Text Box 1").Select
ActiveChart.Shapes("Text Box 1").Top = 22
ActiveChart.Shapes("Text Box 1").Height = 28
ActiveChart.Shapes("Text Box 1").Left = 65
Selection.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=18).Font
    .Name = "Arial"
    .FontStyle = "Regular"
    .Size = 12
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
End With

I will appreciate anyone's help. Thanks.

**Simon Lloyd** · #2 08-01-2008, 07:27 PM

You will probably find it's a typo!
Text Box 2 should really look like TextBox2 unless you changed it!

ZavNice · #3 08-05-2008, 05:22 PM

After I changed Text Box 2 to TextBox 2, I recieved an error for

Code:

ActiveSheet.TextBoxes.Add(487003.5, 0, 1742961, 220063.5).Select

It was a Run-Time error '1004' which stated "Unable to get the Add property of the TextBoxes class".

**Simon Lloyd** · #4 08-05-2008, 05:48 PM

You cannot add the textbox and select it at the same time!

ZavNice · #5 08-06-2008, 03:51 PM

I fixed the problem I was having. For the

Code:

ActiveSheet.TextBoxes.Add(487003.5, 0, 1742961, 220063.5).Select

I changed it to

Code:

ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 391.58, 7.11, _
        273.95, 44.24).Select

And their was no error after that.

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)