Editting textbox value that is grouped with a shape

[David Cuthill]

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

 

[Tom Ogilvy]

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.

 

[David Cuthill]

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.Text = "10"


David

 

[Guest]

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.

 

[Tom Ogilvy]

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

 

[David Cuthill]

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.