import text to Text box
I would like import text from access to text box (text box from drawing tools)
using the following procedu
Sub Macro2()
Dim strText As String
Dim I As Long
Range("H7").Select
strText = Rs!cmts 'RS is a recordset from access
I = Len(strText)
Debug.Print I
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 10, 100, _
300, 200).Select
Selection.Characters.Text = strText
Range("H7").Select
End Sub
Remarks if I<=255 the code copy text from access to text box if I255 the
copy nothing to text box.
Question.
What can I do to copy long text from to Text Box?
Thanks for your suggestions
JCP
--
Jose
|