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
Okay I added
sr.GetPosition X, Y to my "get text from page" button.
Then my "add to page" button i replaced below
Set txtShape = ActiveLayer.CreateArtisticText(ActiveLayer.Page.CenterX, 5.5, TextBox.Text, 0, cdrCharSetMixed, , 34)
with
Set textShape = ActiveLayer.CreateArtisticText(X, Y, TextBox.Text, 0, cdrCharSetMixed, , 34)
Now it gets position and places it back. but I have NO clue how return text back to page w/it's original font size.
I bet i can change
to nothing?