在wps(excel、ppt、word)文件中插入网页地址

一、操作流程

在wps(excel、ppt、word)中插入网页,并且可以保存到文件内,再次打开可以直接使用。

以ppt为例:

打开ppt文件-点击 工具-点击 开发工具-点击 wps宏编辑-粘贴代码-返回文件-点击 运行宏-找到名为 InsertWeb 的宏,运行宏。

打开文件,点击 工具,点击 开发工具

在wps(excel、ppt、word)文件中插入网页地址

点击 wps宏编 粘贴代码

在wps(excel、ppt、word)文件中插入网页地址

右上角关闭,回到文件,点击 运行宏,找到名为 InsertWeb 的宏,运行宏。

在wps(excel、ppt、word)文件中插入网页地址

注:

代码在代码详解和代码总结(文末),择其一即可。 代码中的网址可以自己修改,网址一些定要填全。

二、代码详解

Excel 代码详解

function InsertWeb() {
ActiveWorkbook.Sheets.Item(1).Shapes.AddWebShapeEx("https://www.pmtemple.com")
}

  • ActiveWorkbook: 引用当前激活的 Excel 工作簿
  • Sheets.Item(1): 访问工作簿中的第一个工作表(索引从1开始),PPT的话就是第几页,比如你要将网页插入到第8页,那就把Sheets.Item(1)改成Sheets.Item(8)。
  • Shapes: 获取该工作表的形状集合对象
  • AddWebShapeEx("https://www.baidu.cn"): 调用 WPS 扩展方法添加网页形状,参数为百度官方网站 URL
  • 在 Excel 中,这将在第一个工作表中插入一个可显示网页内容的形状对象

PowerPoint 部分详解

function InsertWeb() {
ActivePresentation.Slides.Item(1).Shapes.AddWebShapeEx("
https://www.pmtemple.com")
}
  • ActivePresentation: 引用当前激活的 PowerPoint 演示文稿
  • Slides.Item(1): 访问演示文稿中的第一张幻灯片
  • Shapes: 获取该幻灯片的形状集合
  • AddWebShapeEx("https://www.baidu.com"): 添加指向百度网站的网页形状
  • 在 PowerPoint 中,这将在第一张幻灯片中插入网页内容显示区域

Word 部分详解

function InsertWeb() {
ActiveDocument.Shapes.AddWebShapeEx("
https://www.pmtemple.com")
}
  • ActiveDocument: 获取当前激活的文档
  • Shapes: 访问文档中的形状集合
  • AddWebShapeEx("https://www.pmtemple.com"): 添加指向百度网站的网页形状
  • 在 Word 中,这将在当前文档中插入网页形状对象

三、方法功能特性

AddWebShapeEx 方法特点:

  1. WPS 扩展功能: 这是WPS Office 的扩展
  2. 网页嵌入: 允许在 Office 文档中嵌入网页内容显示
  3. 交互性: 插入的形状通常可以点击访问目标网站
  4. 实时显示: 某些情况下可以显示网页的实时内容

参数说明:

  • 接收一个字符串类型的 URL 参数
  • URL 必须是完整格式(包含 http:// 或 https://)
  • 支持各种网页地址

四、适用场景

  • 在文档中添加可点击的网站链接
  • 嵌入网页内容作为文档的一部分
  • 创建交互式文档或演示文稿
  • 展示实时网页信息

五、对象模型层次结构

Excel: Application → Workbook → Worksheet → Shapes → AddWebShapeEx()
PPT:   Application → Presentation → Slide → Shapes → AddWebShapeEx()
Word:  Application → Document → Shapes → AddWebShapeEx()

这种设计遵循了各 Office 应用程序的对象模型结构,确保在相应上下文中正确插入网页形状。

六、代码总结

js体验AI代码助手代码解读复制代码

Excel:

function InsertWeb() {
  ActiveWorkbook.Sheets.Item(1).Shapes.AddWebShapeEx("https://www.pmtemple.com") }

ppt:

function InsertWeb() {
  ActivePresentation.Slides.Item(1).Shapes.AddWebShapeEx("https://www.pmtemple.com")}

Word:

function InsertWeb() {
  ActiveDocument.Shapes.AddWebShapeEx("https://www.pmtemple.com")}

原创文章,作者:产品大法师VIP Plus,如若转载,请注明出处:https://www.pmtemple.com/pm/pm-box/17689/

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2025年7月17日 下午4:34
下一篇 2025年9月13日 上午10:49

相关推荐

发表回复

登录后才能评论
微信公众号
微信公众号
edgesensor_high 小程序
小程序
分享本页
返回顶部