Question

是否可以让我的电源点幻灯片以十六进制编号？我知道这听起来很疯狂，但我想给它带来一种狡猾的书呆子感觉。

Answer 1

您无法让PPT自动为您执行此操作，但您可以运行一些代码，为每张幻灯片添加一个文本框，并在文本框中放置幻灯片的编号，转换为十六进制。

像这样：

Dim oSl as Slide
Dim oSh as Shape

For each oSl in ActivePresentation.Slide
  Call DeleteHexNumber(oSl)
  ' change coordinates to suit:
  Set oSh = oSl.Shapes.AddTextbox(msoTextOrientationHorizontal,10,10,200,50)
  Osh.Tags.Add "HexNumber", "Whatever"
  With oSh.TextFrame.TextRange
    .Text = Cstr(Hex(oSl.SlideNumber))
  End With
Next

Sub DeleteHexNumber(oSl as Slide)
  Dim oSh as Shape
  Dim x as Long 
  For x = oSl.Shapes.Count to 1 Step -1
    if Len(oSl.Shapes(x).Tags("HexNumber")) > 0 Then
        oSl.Shapes(x).Delete
    End If
  Next
End Sub

正如编辑：现在它在创建页面编号形状时标记它，但在创建它之前，它会查找任何现有的页码形状（通过检查匹配的标记）并首先删除它们。

PowerPoint中的十六进制幻灯片编号

1 个答案: