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
