XL 格式的 PPT 中的上标

Question

我正在尝试用 XL 创建一些幻灯片，但受到脚注的挑战。 我想要的是用多个脚注填充脚注部分，而每行都以上标数字开头。谁能告诉我如何才能做到这一点？

我尝试了一些在网上找到的解决方案，但我无法只上标一个字符。

感谢您的

帮助

Answer 1

像这样的事情应该可以帮助你开始；该代码是为了在 PPT 中运行而编写的，并且需要一些 mods 才能在 Excel 中运行它：

Dim oSl As Slide
Dim oSh As Shape
Dim oPres As Presentation
Dim x As Long

' for example purposes, we'll do this IN PPT
' and use the current presentation
Set oPres = ActivePresentation

' and we'll work with slide 1
Set oSl = oPres.Slides(1)

' rather than using PPT's own footnotes, I'd simply
' add my own text box ...
Set oSh = oSl.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 500, 500, 50)

' and work with it ...
With oSh
    ' add your text:
    .TextFrame.TextRange = "1One line of text" & vbCrLf _
        & "2Two lines of text, the second a bit longer" & vbCrLf _
        & "3New we are three lines of text"

    ' subscript the first character of each line up to 9
    On Error Resume Next    ' in case there are fewer lines
    For x = 1 To 9
        .TextFrame.TextRange.Paragraphs(x).Characters(1, 1).Font.Superscript = True
    Next
    ' and the first two characters of each line past that
    For x = 10 To .TextFrame.TextRange.Paragraphs.Count
        .TextFrame.TextRange.Paragraphs(x).Characters(1, 2).Font.Superscript = True
    Next
End With