InsertSymbol 方法 - Microsoft PowerPoint Visual Basic 参考 - 开发文档 - 文江博客 https://www.wenjiangs.com/doc/xacf1x8d
返回 TextRange 对象,该对象代表一个插入到指定文本范围的符号。 expression.InsertSymbol(FontName, CharNumber, UniCode) expression必选。该表达式返回一个TextRange 对象。 FontName必选。String 类型。字体名称。 CharNumber必选。Long 类型。Unicode 或 ASCII 字符编码。 Unicode可选。MsoTriState 类型。指定CharNumber 参数是代表 ASCII 字符还是 Unicode 字符。 MsoTriState 可以是下列 MsoTriState 类型常数之一。 | msoCTrue 不应用于此方法。 | msoFalse默认值。CharNumber 参数代表一个 ASCII 字符编码。 | msoTriStateMixed 不应用于此方法。 | msoTriStateToggle 不应用于此方法。 | msoTrueCharNumber 参数代表一个 Unicode 字符。 |
- ub Symbol()
- Dim txtBox As Shape
- 'Add text box
- Set txtBox = Application.ActivePresentation.Slides(1) _
- .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
- Left:=100, Top:=10, Width:=100, Height:=100)
- Debug.Print txtBox.Type
- 'Add symbol to text box
- For ii = 65 To 255
- txtBox.TextFrame.TextRange.InsertSymbol FontName:="Symbol", CharNumber:=ii
- Debug.Print txtBox.TextFrame2.TextRange.Text
- Next ii
- End Sub
复制代码
Debug.Print txtBox.TextFrame2.TextRange.Text结果是?,而不是Ascii码?
|