View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default 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



.