我的电脑是用WPS生成的PPT文件,经测试,还是不能跳转到第30页.

这个是生成的PPT文件

超连接没有写入到指定的页框哈，当然不会跳转的。可能是软件不同造成的哈。
这个是微软的生成的哈

[此贴子已经被作者于2025-2-18 16:55编辑过]

恶心的wps！找了台电脑，手工修改 ppt 的超链接设置，却找不到录制 ppt 宏的按钮，只好手工读出来，结果是个奇怪的字符串，用它作为 SubAddress 的值，确实可以跳转到第三十页 恶心的是第一个参数的数值不知道代表什么？

WITH oShape.ActionSettings(1)
    .Action = 7
    .Hyperlink.Address = ''
    .Hyperlink.SubAddress = '150995229,30,第30页'
ENDWITH

非常感谢,在WPS测试成功了.

老师,经测试，如果要跳转到第5页，用那串数字则不行。
另外,.Hyperlink.SubAddress = "150995229,30,第30页",后面的两个参数只需1个即可,但没有又不行.还可以省略为
Hyperlink.SubAddress = "150995229,,"
或 Hyperlink.SubAddress = "150995229,0"
Hyperlink.SubAddress = "150995229,A"
甚至Hyperlink.SubAddress = "150995229,"
都可以转到30页,说明150995229是第30页转换成的代码

问题是,如果转到其他页,那代码又是多少呢,转换规则是怎样的呢?

大致推测了一下
150995229 > Transform(150995229, '@0') > 0x0900011D > 0x09000000 + 0x100 + 0x1D
而 0x1D == 29 == 30-1
因此这个数可能是这样的公式：0x09000000 + (255 + 要跳转的页号)，要调到第五页就是 0x09000000 + (255 + 5) = 150995204
按这个公式我试了一下是对的，因纯粹是猜测，没官方资料来证实，所以无法知道是否适合其他版本的 wps
我这测试用的版本

[此贴子已经被作者于2025-2-18 21:46编辑过]

谢谢老师.我测试了一下300页以内,运行没问题.那串数字为 150995199+n ,n为要跳转的页码
.代码修改如下:
* oPPT = CREATEOBJECT("PowerPoint.Application") && 适用微软OFFice

  oPPT = CREATEOBJECT("KWPP.Application")     && 适用WPS office版
oPres = oPPT.Presentations.Add()
LOCAL cID, cTitle
n=210  && 跳转到第210页
* 创建幻灯片并设置标题
FOR i = 1 TO 300
    oSlide = oPres.Slides.Add(i, 1)  && 使用标题布局
    oSlide.Shapes(1).TextFrame.TextRange.Text = "第" + ALLTRIM(STR(i)) + "页"
ENDFOR

* 在第2页添加跳转按钮

oSlide2 = oPres.Slides(2)
oShape = oSlide2.Shapes.AddShape(1, 100, 100, 200, 50)
oShape.TextFrame.TextRange.Text = "跳转到第"+ALLTRIM(STR(n))+"页"

WITH oShape.ActionSettings(1)
    .Action = 7
    .Hyperlink.Address = ''
    .Hyperlink.SubAddress = ALLTRIM(STR(150995199+n))+",0"

ENDWITH
oPres.SaveAs("D:\cs.pptx")

oPres.Close()
oPPT.Quit()
RELEASE ALL
=MESSAGEBOX('文件保存在D盘')
* QUIT