批量修改批注尺寸失败，求助原因

Grusna · 发表于 2023-1-8 20:34

新手求助，我在网上找到了操作方法，请各位老师帮忙看看我错在哪一步了
第一步：
按下ALT+F11，打开VBE编辑器，插入——模块

第二步：
输入下面的代码（在网上找到的）

Sub 批量修改批注()
Dim cm As Comment
For Each cm In Sheet1.Comments 'sheet1是我们要批量修改批注的工作表，可以按需改变。
      With cm.Shape.TextFrame.Characters.Font
         .Name = "楷体"
         .Size = 14
         .ColorIndex = 3
      End With
Next
End Sub

第三步
按F5，为程序建立一个名字，我取名为“批量修改批注尺寸”

第四步
运行（我依然按的F5）

第四步就出现了问题！

我找了好多不同的代码，每次都是在这里卡住了，请问各位老师我在哪一步做错了？

蓝桥玄霜 · 发表于 2023-1-9 09:50

1，你的工作簿中有没有Sheet1?
2，工作表中有没有批注存在？
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

shenjianrong163 · 发表于 2023-1-9 11:31

闻启学 · 发表于 2023-1-9 12:22

楼主与你代码无关，WPS 运行环境问题，无估计错的现在环境是JS 的代码是VBA 代码当然运行不了，估计无WPS VBA 插件

Grusna · 发表于 2023-1-9 14:55

闻启学发表于 2023-1-9 12:22
楼主与你代码无关，WPS 运行环境问题，无估计错的现在环境是JS 的代码是VBA 代码当然运行不了，估 ...

感谢老师！确实是这个原因，我买了一个office，一切顺利！

Grusna · 发表于 2023-1-9 14:55

shenjianrong163 发表于 2023-1-9 11:31

感谢老师解答，是我WPS的原因，运行不了VBA代码

Grusna · 发表于 2023-1-9 14:56

蓝桥玄霜发表于 2023-1-9 09:50
1，你的工作簿中有没有Sheet1?
2，工作表中有没有批注存在？
没有附件不能测试代码。

感谢老师解答，是我WPS的原因，运行不了VBA代码！已解决

闻启学 · 发表于 2023-1-11 11:58

Grusna 发表于 2023-1-9 14:55
感谢老师！确实是这个原因，我买了一个office，一切顺利！

安装一个WPS VBA 插件就可以在wPS 运行代码

nicleyuan · 发表于 2023-1-11 13:19

多少钱买的？啥版本？

opiona · 发表于 2023-1-11 14:24

免费的微云下载: https://share.weiyun.com/BW0JxC6s

		自动登录	找回密码
密码			免费注册

[求助] 批量修改批注尺寸失败，求助原因