Okay,
I have a textbox + command button. Texbox = my text and command button adds text to page. But how can I reverse that? Get text from page back to my textbox??
Maybe Active Select text I just added to page and press a "get text command button" & have it return text back to my text box.
Private Sub cmdTextToPage_Click()
Dim txtShape as Shape
Set txtShape = ActiveLayer.CreateArtisticText(ActiveLayer.Page.CenterX, 5.5, TextBox.Text, 0, cdrCharSetMixed, , 34) txtShape.Text.Story.Font = ListAllFonts
end sub
Whoa, I think I did it. Dim s As Shape, sr As ShapeRange Set sr = ActiveSelectionRange For Each s In sr.Shapes TextBox.Text = s.Text.Story Next s
I guess I need help with this...
Now that my textbox.text can be added to my page as well as my activepage.text be returned back to my textbox. The issue I'm encountering now is = when i return the text from my page back to my text box ( to make the appropriate changes as if i'm "revising" the text) and send it back to my page (when im done "revising" text) it does not return to its original location on the page or the original font size. *sighs*
This one is tricky for me.
Okay, my "get text from page" button should get xy location.. My "add text to page" button should place it at that location. hmm..