自己解决！vba ppt如何把文本框图形第3行第4个字符黑色改成红色

banjinjiu

ppt的文本框图形中，请问：文本框有10行字符，每行大概有12个字符，如何把文本框图形第3行第4个字符黑色改成红色，前面代码我已写好，把第n行，或者第n行后面几行改成颜色都可以，其中读取MsgBox Mid(trng.Characters.Lines(3), 4, 1) '第3行第4个字符可以，但是给第3行第4个字符改变颜色，做不到，恳求各位大侠帮助，谢谢。
原代码：

1. Sub h() '文本框行字符读取
   
2. Dim s As Slide
   
3. Dim shp As Shape
   
4. Dim trng As TextRange
   
5. Dim i As Integer
   
6. For Each s In ActivePresentation.Slides '遍历活动窗口中打开的演示文稿中的幻灯片
   
7. For Each shp In s.Shapes '遍历当前幻灯片中的形状对象
   
8. If shp.HasTextFrame Then '当前幻灯片中的当前形状含有文本框架
   
9. If shp.TextFrame.HasText Then '当前幻灯片中的当前形状包含文本
   
10. Set trng = shp.TextFrame.TextRange '引用文本框架中的文本
    
11. 'trng.Characters.Lines(2).Font.Color.SchemeColor = ppAccent2'第2行字符
    
12. trng.Characters.Lines(2, 3).Font.Color.SchemeColor = ppAccent3 '第2行起的3行字符
    
13. 'm = Mid(trng.Characters.Lines(3), 4 1)
    
14. 'trng.Characters.Lines(m).Font.Color.SchemeColor = ppAccent4'第3行第4个字符
    
15. End If
    
16. End If
    
17. Next
    
18. Next
    
19. End Sub

复制代码

等待。

banjinjiu

成功了！
文本框图形第2行第3个字符改变颜色slide代码：

1. sub m()
   
2. Shapes("Text Box 6").TextFrame.TextRange.Lines(2).Characters(3).Font.Color.SchemeColor = ppAccent1
   
3. End Sub

复制代码

或者

1. Sub n()
   
2. Shapes("Text Box 6").TextFrame.TextRange.Lines(2).Characters(3).Font.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0)
   
3. End Sub

复制代码

IVYQQQQQ

banjinjiu 发表于 2013-11-29 21:20
成功了！
文本框图形第2行第3个字符改变颜色slide代码：或者

我有个关于文本框的问题请教你一下，下面的链接，谢谢！
http://club.excelhome.net/thread-1182369-1-1.html

dongdonggege

IVYQQQQQ 发表于 2015-1-27 21:00
我有个关于文本框的问题请教你一下，下面的链接，谢谢！
http://club.excelhome.net/thread-1182369-1-1 ...

模块代码

1. Sub 文本替换()
   
2. Dim i As Integer, r As Integer
   
3. Dim arr
   
4. Dim rng As Range
   
5.     x = Range("A65536").End(xlUp).Row
   
6.     arr = Range("a1:d" & x)
   
7.     r = InputBox("请输入要替换文本的行号:", "对话框", 1)
   
8. 
   
9. For i = 1 To 4
   
10.     ActiveSheet.Shapes("TextBox " & i).TextFrame.Characters.Text = arr(r, i)
    
11. Next
    
12. End Sub

复制代码

dongdonggege

模块或slide1均可：

1. Sub m()
   
2. ActivePresentation.Slides(1).Shapes("Text Box 4").TextFrame.TextRange.Text = ""
   
3. ActivePresentation.Slides(1).Shapes("Text Box 4").TextFrame.TextRange.Lines(1).Characters(3).Text = "456" & Chr(13)
   
4. ActivePresentation.Slides(1).Shapes("Text Box 4").TextFrame.TextRange.Lines(2).Characters(3).Text = "789"
   
5. End Sub

复制代码

dongdonggege

'文本框控件

1. Private Sub CommandButton1_Click()
   
2. For i = 1 To 3
   
3. ActivePresentation.Slides(1).Shapes("TextBox" & i).OLEFormat.Object = 10 + i
   
4. Next
   
5. End Sub

复制代码