【高分悬赏】帮忙编写ppt宏程序

来源：百度知道 编辑：UC知道 时间：2024/09/28 07:26:27
现在我上班做ppt的时候需要一次对上百张ppt在同一位置加入链接，并且每次链接的地址末尾数是累加1的。如：
第二张加入
http://www.XXXXXXXX/recordid=12568&pagenum=17
第三张就要加入
http://www.XXXXXXXX/recordid=12568&pagenum=18
以此类推一直加到最后一张为止

还有就是有时我要对所有的ppt标题（仅对标题）改变字体和字号，也是几十到上百张。

我希望能有懂宏程序的人帮下忙。

如果有能人可以帮我请在回答后留下联系方式（QQ最佳）

能告诉我更多的实用功能更佳》

此问高分悬赏，答得好再加50分

100分 不太高啊 问题有点复杂呢 不过vba应该能做
q80871835

alt+f11 插入-模块 粘贴下面代码，然后在ppt里 alt+f8 点击alllink 运行即可

Option Explicit
Dim iStart As Integer
Private Sub hypLink(path, index)
Dim tbox As Shape, box As Shape

ActivePresentation.Slides(index).Select
For Each tbox In ActiveWindow.Selection.SlideRange.Shapes
On Error GoTo errr
If (Trim(tbox.TextFrame.TextRange.Text) = "我要提问") Then
Set box = tbox
Exit For
End If
errr:
Next
With box.TextFrame.TextRange.ActionSettings(ppMouseClick).Hyperlink
.Address = path & iStart
.TextToDisplay = "我要提问"
End With
End Sub
Public Sub allLink()
Dim ippt As Integer
Dim i As Integer
iStart = 2 '起始链接编号,在此修改
ippt = 2 '起始幻灯片页码,在此修改
For i = 2 To ActivePresentation.Slides.Count
C