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

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

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.Tex t = "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


.

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


.

.

It appears you have to ungroup them:

http://support.microsoft.com/default...12&Product=xlw
Control Method of Sheet Class Failed with Grouped Control

--
Regards,
Tom Ogilvy


"David Cuthill" wrote in 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.Tex t = "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


.

This is speaking about controls - do I apply the same
logic to what I'm doing then?

It seems odd that I can access the textbox when not using
code.


-----Original Message-----
It appears you have to ungroup them:

http://support.microsoft.com/default.aspx?scid=kb;en-
us;115312&Product=xlw
Control Method of Sheet Class Failed with Grouped Control

--
Regards,
Tom Ogilvy


"David Cuthill"
wrote in 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.Tex t
= "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


.



.