Шестнадцатеричные числа слайдов в PowerPoint - PullRequest
Новая
       82

Шестнадцатеричные числа слайдов в PowerPoint

0 голосов
/ 29 февраля 2012

Возможно ли, чтобы мои слайды Power Point были пронумерованы в шестнадцатеричном формате?Я знаю, это звучит безумно, но я хотел придать этому тонкому чувству.

1 Ответ

0 голосов
/ 07 марта 2012

Вы не могли бы, чтобы 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

Отредактировано: Теперь он помечает фигуру номера страницы при ее создании, но перед тем, как создать ее, он ищет любые существующие фигуры страницы (проверяя совпадение тегов) и сначала удаляет их.

...