OLEFormat.Object.Text 不能超过255怎么办

Select

我试的结果：

03返回的字符数是255
07或10返回的字符数是260

Select

用1楼代码，没修改，就可以完全得到了呀。

07或10中，比较 运行结果 和 输入值（如上图）。比较最后几位，不是一样的么？

Select

Private Sub CommandButton1_Click()
    For Each myShape In Sheets(1).Shapes
        ll = myShape.OLEFormat.Object.Text
        Cells(1, 1) = ll
        MsgBox myShape.OLEFormat.Object.Text = Cells(1, 1)
    Next
End Sub

加句msgbox（返回true），也证明两者值相等呀。

Select

我猜，1楼是你实际问题中的一个环节，是吗
说说你（整个）实际问题，看怎么办好

Select

由于所知不多，我还想不出直接的办法，所以建议上传你的实际问题附件，并说明。

看哪些条件可以变通，可修改，比如为什么要用很多文本框，别的方式能替代希望的效果吗？在了解你的实际问题后，才好提出。

上传实际问题的目的，有时就是求办法；有时是为作参考，好知道楼主究竟想实现什么，说不定找不着上策，中策或下策也能凑合解决问题。
明天高手们会来看的吧