VBA (Excel 2007) Shape Handling

Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"This is a test."

This line shows an error

Object doesn't support this property or method (Error 438)

Please help me.

Hi!
You are using VBA so familiar with Excel's objects. Your code does not correctly refer to the object you want to manipulate.

Go to the worksheet where the shape object is placed. Select the object and you will find its correct reference in the formula bar on the left side.
When I have to refer to a picture on a particular worksheet which is already there, I use following code.

ActiveSheet.Shapes("Picture 1").Select

However, the shapes (objects) added using VBA code during execution are given index numbers by Excel, and may be difficult to refer unless your code names them and than you refer them by code.

When I am adding a label on user form during execution, the code is:

Set objLbl = UserForm1.Controls.Add("Forms.Label.1")

objLbl.Name = "Label1"

UserForm1!Label1.Caption = "This is a test"

To refer to run time objects on UserForm, we have to use (!) separator.

The key point is correct object reference.

Hope this helps.
Mahess

Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text

Selection. ◄ ???? i asume you have a region in worksheet that contains an illustrative shape(graphical) and some text in cells that describe the feature
if the layout is fixed then just and just it might be better to access the individual cells in this region by their relative adresses something as

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "The Cell(" & Target.Row & "," & Target.Column & ")" & vbLf & _
"Contains text [" & Worksheets("Sheet1").Cells(Target.Row, Target.Column).Text & "]"
End Sub

i really'm 2 lazy to test out your speciffic occasion