Editting textbox value that is grouped with a shape

D

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
 
T

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.
 
D

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
 
G

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.
 
D

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.
 
Top