Let's try again. Please post (or send) a file that contains your work so far, and with grouped shapes.
Perhaps I can interrogate group members. Paul On Sep 20, 1:48 pm, Paul Schreiner <schreiner_p...@att.net> wrote: > oops, nevermind. > I think there is a file in a previous post. > > I'll look. > > Paul > > > > > > >From: Chandru <chandr...@gmail.com> > >To: excel-macros@googlegroups.com > >Sent: Mon, September 20, 2010 6:47:24 AM > >Subject: Re: $$Excel-Macros$$ Extract the text from Textbox and return back > >after editing > > >Dave/Paul > > >Can you look into this one and help me. > > >Regards > >Chandru > > >On Sun, Sep 19, 2010 at 5:25 PM, Chandru <chandr...@gmail.com> wrote: > > >Dear Experts > > >>I have now obtained the code the extract text from shapes and comments > >>in a workbook to a new sheet with all the details of the shape > >>object. > >>However this code does not extract the text from the shapes that are > >>grouped. I also got a piece of code that ungroups the shapes but not > >>able to integrate it to the main code. Resending the text to the shape > >>needs to be coded. > >>If it is possible then the ungrouped shapes shall be regrouped > > >>Any help is greatly appreciated > > >>Regards > >>Chandru > > >>On Thu, Sep 16, 2010 at 6:02 PM, Chandru <chandr...@gmail.com> wrote: > >>> Dear Paul > > >>> Thanks for your reply. The code I got by googling is from > > >http://excel.tips.net/Pages/T002388_Placing_Textbox_Text_Into_a_Works... > >>> -------------------------------------------------------------------------- > >>> Sub ExtractText() > >>> Dim shp As Shape > >>> Dim sLoc As String > >>> For Each shp In ActiveSheet.Shapes > >>> With shp > >>> If Left(.Name, 8) = "Text Box" Then > >>> sLoc = .TopLeftCell.Address > >>> Do Until Range(sLoc) = "" > >>> sLoc = Range(sLoc).Offset(1, 0).Address > >>> Loop > >>> Range(sLoc) = .TextFrame.Characters.Text > >>> .Delete > >>> End If > >>> End With > >>> Next > >>> End Sub > >>> -------------------------------------------------------------------------- > > >>> The above code extracts the text from the text box and place it in the > >>> near by cell. The issue is that it is not extracting the text boxes > >>> that are grouped. I don't see any tracking (like the text box name) to > >>> send the text back to the text box. > > >>> I have located a word macro that performs this text extract from power > >>> point files. I have attached that word template file for your > >>> reference. But this macro is too complicated for me to grasp the code > >>> and convert it for excel. > >>>http://www.volny.cz/ddaduc/werecat.html > > >>> Any help is greatly appreciated > > >>> Thanks > >>> Chandru > > >>> On Thu, Sep 16, 2010 at 5:47 PM, Paul Schreiner <schreiner_p...@att.net> > >>wrote: > >>>> You didn't include your code. > >>>> Did you want us to rewrite it too? > > >>>> the code you have for extracting the contents is very close > >>>> to what is needed to replace it. > > >>>> Paul > > >>>> ----- Original Message ---- > >>>>> From: Chandru <chandr...@gmail.com> > >>>>> To: excel-macros@googlegroups.com > >>>>> Sent: Thu, September 16, 2010 7:03:28 AM > >>>>> Subject: $$Excel-Macros$$ Extract the text from Textbox and return back > >>after > >>>>>editing > > >>>>> Hello experts > > >>>>> I wish to have an excel macro that can extract text from all the text > >>>>> boxes from one sheet and then list out that text in another sheet. I > >>>>> can find some macros for this from the internet. Now my requirement is > >>>>> to return back that text to the same text box after editing. I am not > >>>>> able to find macro for this after googling as of now. > > >>>>> The first sheet contains the original text with some text boxes. > >>>>> Please note that some text boxes are grouped. Now a macro should > >>>>> extract the text and list that in the column B in a new sheet (or in a > >>>>> new workbook based on programmers convenience). I will now edit the > >>>>> text and type the same in column C. The editing work may take some > >>>>> time based on the amount of text. If possible, the address may be > >>>>> displayed in column A. > > >>>>> After editing, I need another macro to send the text back to the same > >>>>> text box from where it was extracted. Hope I have explained my point. > >>>>> I have attached a sample excel file. If I am not asking for more, I > >>>>> would like the same for the comments in the cells also. All comments > >>>>> to be extracted to the new sheet after the text box text. Then editing > >>>>> will be done. Then it needs to be pushed back to the same place. > > >>>>> Thanks in advance > >>>>> Chandru > > >-- > >---------------------------------------------------------------------------------- > > >Some important links for excel users: > >1. Follow us on TWITTER for tips tricks and links : > >http://twitter.com/exceldailytip > >2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310 > >3. Excel tutorials athttp://www.excel-macros.blogspot.com > >4. Learn VBA Macros athttp://www.quickvba.blogspot.com > >5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > >To post to this group, send email to excel-macros@googlegroups.com > > > ><><><><><><><><><><><><><><><><><><><><><><> > >HELP US GROW !! > > > >We reach over 7000 subscribers worldwide and receive many nice notes about > >the > >learning and support from the group.Let friends and co-workers know they can > >subscribe to group athttp://groups.google.com/group/excel-macros/subscribe- > >Hide quoted text - > > - Show quoted text - -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 7000 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe
