如果不是菜单的一部分，如何在powerpoint中插入特殊字符作为项目符号？

Question

我想使用字符代码25B0（Unicode为9648）制作特殊字符，成为我在PowerPoint中的子弹点。但它似乎不是PowerPoint中特殊字符菜单的一部分 - 我在Arial，Webdings，Wingdings 1-3上找不到它......有没有办法找到/得到它？在我的特殊情况下，将其作为图片导入是没有用的替代方法。谢谢你的任何想法。 （我使用PowerPoint 2010。）

以上是我最喜欢的解决方案。如果不可能这样，我可以通过VBA考虑解决方案。有没有可能让身体文本占位符知道，我想在第二个子弹级别使用特殊字符9648和在第三级别使用字符9649？

这是我在给史蒂夫的第一个答案中提到的代码：

Sub Bullets()
Dim Shp As Shape
Dim sld As Slide
Dim i As Integer
Set sld = Application.ActiveWindow.View.Slide
Set Shp = sld.Shapes.AddShape(Type:=msoShapeRectangle, Left:=416.97612, Top:=160.44084, Width:=323.9998, Height:=283.46439)
With Shp
.Fill.Visible = msoFalse
.Line.Visible = msoFalse
With .TextFrame
.TextRange.Text = "Text 1" & vbCrLf & "Text 2" & vbCrLf & "Text 3"
.VerticalAnchor = msoAnchorTop
.MarginBottom = "10"
.MarginLeft = "10"
.MarginRight = "10"
.MarginTop = "10"
.WordWrap = msoTrue
With .TextRange
.Font.Size = 14
.Font.Name = "Arial"
.Font.Color.RGB = RGB(0, 0, 0)
.ParagraphFormat.Alignment = ppAlignLeft
.ParagraphFormat.Bullet.UseTextColor = msoFalse
.ParagraphFormat.Bullet.UseTextFont = msoFalse
.ParagraphFormat.Bullet.Font.Color.RGB = RGB(9, 91, 164)
.Characters(1, 6).Font.Bold = msoTrue
            For i = 2 To 3
With .Paragraphs(i).ParagraphFormat.Bullet
.Visible = msoTrue
End With
            Next
With .Paragraphs(2)
.IndentLevel = 2
.ParagraphFormat.Bullet.Character = 9648
.ParagraphFormat.Bullet.RelativeSize = 1
End With
With .Paragraphs(3)
.IndentLevel = 3
.ParagraphFormat.Bullet.Character = 9649
.ParagraphFormat.Bullet.RelativeSize = 1
End With
End With
With .Ruler
 .Levels(2).FirstMargin = 14.173219
 .Levels(2).LeftMargin = 28.346439
 .Levels(3).FirstMargin = 28.346439
 .Levels(3).LeftMargin = 42.519658
End With
End With
.Select (msoFalse)
End With
End Sub

Answer 1

并非所有字体都占用整个Unicode空间中的所有字形。有一个VBA解决方案，但是您应该可以通过打开“插入/符号”对话框来选择一个体面的人工智能，而不是例如。 Arial Unicode并在字符字段中输入字形代码。

在VBA中，您可以使用以下内容设置项目符号字符：

 TextRange.Paragraphs(1).ParagraphFormat.Bullet.Character

但您也需要设置相关字体。

如果使用UI，则在左上角的下拉菜单中设置字体（在所示示例中为Arial Unicode MS），然后在右下角的字符代码字段中键入十六进制的字形代码（屏幕截图中为25D5） ）。

Answer 2

设置幻灯片母版中第一段的项目符号字符：

With ActivePresentation.Designs(1).SlideMaster.Shapes("Text Placeholder 2")
    With .TextFrame2.TextRange.Paragraphs(1)
        .ParagraphFormat.Bullet.Font.Name = "Arial"
        .ParagraphFormat.Bullet.Character = 1234
    End With
End With

如果有多个母版（母版，而不是版面），您可以根据需要更改.Designs（1）来选择所需的母版。

您可以通过更改.Paragraphs（x）值来设置不同段落的项目符号。