通过VBA/C# COM对象添加PowerPoint注释时触发非法值错误

问题核心原因 #

这个错误确实和PowerPoint的**Modern Comments（现代注释）**机制直接相关。微软在新版Office中彻底替换了旧版注释系统，传统的Comments.Add()方法（无论VBA还是Interop场景）未适配新的注释线程化结构，导致参数不兼容触发非法值报错。

可行解决方案 #

1. 临时回退旧版注释（仅用于验证问题） #

在PowerPoint中关闭现代注释：

• 打开PowerPoint选项 → 高级 → 找到“注释”区域
• 取消勾选“使用现代注释”
• 重启PowerPoint后运行原有代码，验证是否能正常添加注释

2. 适配现代注释的代码写法 #

VBA版本

现代注释基于线程结构，需先创建注释线程，再添加具体内容：

Sub AddModernComment()
    Dim targetSlide As Slide
    Dim commentThread As CommentThread
    Dim newComment As Comment
    
    Set targetSlide = ActivePresentation.Slides(1)
    ' 创建注释线程（指定幻灯片上的位置、作者信息）
    Set commentThread = targetSlide.CommentThreads.Add(Left:=100, Top:=100, Author:="测试用户", AuthorInitials:="TU")
    ' 向线程中添加注释内容
    Set newComment = commentThread.Comments.Add(Text:="这是一条适配现代注释的内容")
End Sub

C# Interop版本

对应Interop代码需调用CommentThreads.Add方法实现：

using Microsoft.Office.Interop.PowerPoint;

public void AddModernComment()
{
    Application pptApp = new Application();
    Presentation presentation = pptApp.Presentations.Open(@"C:\你的演示文稿路径.pptx");
    Slide targetSlide = presentation.Slides[1];
    
    // 创建注释线程
    CommentThread commentThread = targetSlide.CommentThreads.Add(Left: 100, Top: 100, Author: "测试用户", AuthorInitials: "TU");
    // 添加具体注释内容
    Comment newComment = commentThread.Comments.Add(Text: "这是一条适配现代注释的内容");
    
    presentation.Save();
    presentation.Close();
    pptApp.Quit();
}

关键注意事项 #

• 现代注释采用**线程（CommentThread）**结构，单条线程可包含多条回复，旧版直接操作单条注释的方式已被废弃
• 确保Office Interop库为最新版本（对应Office 365/2021及以上），否则可能无CommentThreads对象
• 批量添加注释时，避免短时间内创建过多线程，防止触发Office性能限制

内容的提问来源于stack exchange，提问作者JGeorge