Editting textbox value that is grouped with a shape
 

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

Editting textbox value that is grouped with a shape
 

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

Editting textbox value that is grouped with a shape
 

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


.

Editting textbox value that is grouped with a shape
 

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


.

.

Editting textbox value that is grouped with a shape
 

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


.

Editting textbox value that is grouped with a shape
 

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


.



.