VBA中使用CStr将Long类型整数转字符串赋值给PowerPoint标签失效

排查及修复步骤 #

• 先确认控件名称匹配
  检查你代码中的控件名lblTotalPts和实际幻灯片/用户窗体中的标签控件名称完全一致，没有拼写错误。
• 明确指定控件所属上下文
  PowerPoint中幻灯片上的ActiveX控件不能直接仅用控件名调用，必须指定所属的幻灯片对象，示例代码如下：

' 将数字1替换为标签控件所在的幻灯片序号，也可填写幻灯片名称
ActivePresentation.Slides(1).lblTotalPts.Caption = CStr(x)

如果标签是在用户窗体(UserForm)中，确认代码是写在对应窗体的代码模块内即可。

• 替代CStr转换方法测试
  如果确认是CStr转换异常，可以用两种方案替代：
  • 用Str()+Trim()组合转换，规避CStr的异常问题：
    lblTotalPts.Caption = Trim(Str(x))
  • 用字符串拼接隐式转换：
    lblTotalPts.Caption = "" & x
• 检查ActiveX控件运行权限
  打开「文件-选项-信任中心-信任中心设置-ActiveX设置」，选择「以最小限制启用所有控件」，保存设置后重启PowerPoint再测试。
• 重置控件
  如果以上操作都无效，删除原有标签控件，重新插入新的标签控件，保持名称和代码一致后再运行测试。

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