My file contains various text boxes, shapes (rectangle, call out etc), comments and grouped shapes in the second sheet that is named "Original sheet". Extraction of text is successful for the stand alone shapes and it is not extracting the grouped items. You can find out by running the macro named "ExtractTextfromShapes". This macro will create a new sheet and dump all the datas along with the ID of the shape to send it back. I have started the code for returning it back but got stuck. Some sort of Find and replace code needs to be written and Vlookup may also be helpful. There is a small piece of code for ungrouping the shapes but I am not able to integrate it with the main code.
Thanks Chandru On Mon, Sep 20, 2010 at 11:21 PM, Paul <schreiner_p...@att.net> wrote: > 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 > -- ---------------------------------------------------------------------------------- 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
