The frustrating part of this is I can make the change to
the text in the label or text box manually but when either
I try to record code to do it or do it with code it can't
be accessed or changed without ungrouping.



-----Original Message-----
The image and textbox are not from a control they are
insert directly on the worksheet.

First of all I insert a picture using:
Set NewPict = curWks.Pictures.Insert(myPictName)

then I place a textbox with a number in it to denote the
picture number using:

Set Newlabel = curWks.Shapes.AddLabel
(msoTextOrientationHorizontal, LabelLocHorz,
LabelLocVert,
75, 75)
Newlabel.TextFrame.Characters.Text = PictureNum

Then I group the picture and the textbox

To access the Label or textbox the only way I can do it
is
to ungroup and change the text as follows ... I thought I
should be able to access the text without ungrouping or
am
I using the wrong type of object?


Selection.ShapeRange.Ungroup.Select
ActiveSheet.DrawingObjects(Array
("Picture", "Label")).Select
ActiveSheet.DrawingObjects("Label").Characters.Te xt = "10"


David

-----Original Message-----
Is the textbox from the control toolbox toolbar or from
the forms toolbar

What is the shape?

Why not post the code the does the ungrouping, updating
and regrouping.

--
Regards,
Tom Ogilvy

"David Cuthill"
wrote in message
.. .
I am trying to edit the value of a textbox that I have
grouped with a shape (using code). The only way I can
seem
to change the value is to ungroup the shape and textbox
then change the value of the textbox and then regroup
them. Is there a more simpler way of doing this - how
do
you access a grouped textbox to edit the content?

David


.

.