返回 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 不应用于此方法。 |
msoTrue CharNumber 参数代表一个 Unicode 字符。 |
本示例在当前演示文稿第一张幻灯片上的新文本框的第一段第一句后插入注册商标符号。
Sub Symbol()
Dim txtBox As Shape
'Add text box
Set txtBox = Application.ActivePresentation.Slides(1) _
.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=100, Height:=100)
'Add symbol to text box
txtBox.TextFrame.TextRange.InsertSymbol _
FontName:="Symbol", CharNumber:=226
End Sub