学习Characters

ning84

1. Sub Macro1()
   
2. '
   
3.   Dim shp As Shape
   
4.       Dim Str, Str1, Str2
   
5.       Set shp = Sheet1.Shapes(1)
   
6.   Dim TxtRng As TextRange2
   
7.       With shp
   
8.           Debug.Print .Name, .Type, .TextEffect.Text
   
9.           Str = .TextEffect.Text
   
10.           nn = InStr(Str, vbCr)
    
11.           Set TxtRng = .TextFrame2.TextRange
    
12.           TxtRng.Characters(1, nn).Font.Size = 30
    
13.           TxtRng.Characters(nn + 1, Len(Str) - nn).Font.Size = 15
    
14.       End With
    
15.       
    
16. 
    
17. '
    
18. End Sub

复制代码