用PPT代替我的XL

Question

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

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

感谢您的帮助

小号

Answer 1

像这样的东西应该让你开始;该代码的写在PPT运行瓦特/ /，将需要一些MODS让你运行它从W /在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