Resource.Notes 属性 (Project)

获取或设置资源的备注。 读/写 String。

语法

expression。 Notes

表达 一个代表 Resource 对象的变量。

备注

说明 属性不接受字符的 ASCII 值小于 32，回车符 (ASCII 13) 和换行符 (ASCII 10) 除外。

示例

下面的示例将一条注释添加到活动单元格中的资源备注。

注意

[!注释] 如果未选定资源，该代码会产生运行时错误 1004。

Sub AddStatusNote() 
 Dim noStatus As String 
 noStatus = "No status report yet." 
 
 If ActiveCell.Resource.Notes = "" Then 
 ActiveCell.Resource.Notes = noStatus 
 Else 
 ActiveCell.Resource.Notes = ActiveCell.Resource.Notes _ 
 & vbCrLf & vbCrLf & noStatus 
 End If 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。