求教：ppt怎么获取选定文本

nowisthebest

老师好！请教一下怎么获取选定的文本的属性（不是整个文本框），比如字体、大小、颜色，谢谢！

饮冰e士

1. Sub test()
   
2.   MsgBox "你相中的对象是：" & ActiveWindow.Selection.ShapeRange(1).Name
   
3. End Sub
   

复制代码

饮冰e士

1. Sub GetSelectedTextFont()
   
2. Dim shp As Shape
   
3. Dim rng As TextRange
   
4. Dim strFont$, c&
   
5. 
   
6.   Set shp = ActiveWindow.Selection.ShapeRange(1)
   
7.   Set rng = shp.TextFrame.TextRange.Characters(ActiveWindow.Selection.TextRange.Start, ActiveWindow.Selection.TextRange.Length)
   
8.   strFont = rng.Font.Name
   
9.   c = rng.Font.Color
   
10.   MsgBox "选中了“" & rng & "”，字体：" & strFont & " ；颜色是：" & c & " 。", vbInformation, "提醒"
    
11. 
    
12. End Sub

复制代码

nowisthebest

饮冰e士 发表于 2024-7-23 18:13

谢谢大神！太厉害了