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