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

【问题标题】：Hexadecimal Slide Numbers in PowerPointPowerPoint 中的十六进制幻灯片编号
【发布时间】：2012-03-19 06:42:47
【问题描述】：

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

【问题讨论】：

标签： ms-office powerpoint slide presentation

【解决方案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

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

【讨论】：

如果我再次运行该脚本，则会创建另一组文本框。有没有办法找到并删除所有现有的文本框或更新现有的文本框？