I think it would be best if you sent me a sample file. Otherwise, I could spend hours making a file that I THINK is like what you have only to find out that I'm not even close.
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_Worksheet.html >>> -------------------------------------------------------------------------- >>> 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 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 > -- ---------------------------------------------------------------------------------- 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
