文本框赋值长字符串问题

chenjyjustin

此文本框不是那种控件文本框，就是普通文本框，03版的excel在往里面赋值短字符串的时候是可以的，但是字符串超出某个长度，赋值的时候会自动截断纸保留一部分赋值。但是在07版本里面就没有这个问题。
有没有办法能解决03版出现的这个问题

蓝桥玄霜

改用07版本或者不用文本框。

chenjyjustin

Sub testtttt()
Dim wkst  As Worksheet
Set wkst = ActiveSheet
Dim tb As Shape
Set tb = wkst.Shapes("test")
MsgBox Len(textboxread(tb))

End Sub

Function textboxread(ByRef tb As Shape) As String
    Dim s As String
    Dim numChars As Integer
    s = ""
    numChars = 255
    If tb.TextFrame.Characters.Count < 255 Then
    numChars = tb.TextFrame.Characters.Count
    Else
    Do While tb.TextFrame.Characters.Count > 0
        s = s & tb.TextFrame.Characters(1, numChars).text
        tb.TextFrame.Characters(1, numChars).Delete
        If tb.TextFrame.Characters.Count < 255 Then
        numChars = tb.TextFrame.Characters.Count
        End If
    Loop
    textboxread = s
    End If
     textboxwrite tb, s
    Set tb = Nothing
    Set wkst = Nothing

End Function

Function textboxwrite(ByRef tb As Shape, s As String)
    Dim numChars As Integer, addnum As Integer
    numChars = 0
    addnum = 255
    If Len(s) < 255 Then
    tb.TextFrame.Characters.text = s
    Else
    Do While Len(s) > 0
        If numChars < 32767 - addnum Then
        tb.TextFrame.Characters(numChars + 1, addnum).Insert (left(s, addnum))
        
        Else
        tb.TextFrame.Characters(numChars + 1, 32767 - numChars).Insert (left(s, 32767 - numChars))
        GoTo endfunction
        End If
        numChars = numChars + addnum
        s = Right(s, Len(s))
        If Len(s) < 255 Then
        addnum = Len(s)
        End If
    Loop
    End If
endfunction:
    Set tb = Nothing
    Set wkst = Nothing

End Function

chenjyjustin

蓝桥玄霜 发表于 2012-6-11 14:47
改用07版本或者不用文本框。

找到解决办法了，谢谢你的回复，我就是希望程序能同同时在03版和07版本上使用

ning84

1.     Dim oChart As Chart, ObjChart As ChartObject
   
2.         Set ObjChart = Sheet1.ChartObjects(1)
   
3.         Debug.Print ObjChart.Name
   
4.         Set oChart = ObjChart.Chart
   
5.         With oChart.ChartTitle
   
6.              .Tex = " 学习Ppt-Ms Graph太难 "
   
7.              .Font.Name = "黑体"
   
8.              .Font.FontStyle = "加粗"
   
9.              .Font.Size = 25
   
10.              .Font.Strikethrough = False
    
11.              .Font.Superscript = False
    
12.              .Font.Subscript = False
    
13.              .Font.OutlineFont = False
    
14.              .Font.Shadow = True
    
15.              .Font.Underline = xlUnderlineStyleNone
    
16.              .Font.ColorIndex = xlAutomatic
    
17.              .Font.Background = xlAutomatic
    
18.              .Border.Weight = xlThin
    
19.              .Shadow = True
    
20.              .Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=4, _
    
21.                     Degree:=0.231372549019608
    
22.              .Fill.Visible = True
    
23.              .Fill.ForeColor.SchemeColor = 15
    
24.         End With

复制代码