Excel插件获取单元格批注以及设置批注

最新推荐文章于 2024-07-23 10:37:44 发布

Simple Simple

最新推荐文章于 2024-07-23 10:37:44 发布

阅读量9.5k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Excel插件

本文链接：https://blog.youkuaiyun.com/bajianxiaofendui/article/details/82797873

Excel插件专栏收录该内容

5 篇文章

订阅专栏

本文详细介绍如何使用Excel VBA进行单元格批注的获取与设置。通过代码示例，展示了如何利用CComQIPtr与Excel::Range接口来访问活动单元格的批注，并实现批注的读取和写入功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Excel插件获取单元格批注以及设置批注

获取批注
设置批注

获取批注

CComQIPtr<Excel::Range> sRange(m_spExcelApp->GetActiveCell());
if(sRange)
{
	Excel::CommentPtr spComment(sRange->GetComment());
	if(spComment)
	{
		_bstr_t bstrText = spComment->Text(varEmpty, varEmpty, varEmpty,);
		CString strComment = bstrText ;
	}
}

设置批注

CComQIPtr<Excel::Range> sRange(m_spExcelApp->GetActiveCell());
if(sRange)
{
	CString strComment;
	VARIANT varComment;
	varComment.vt = VT_BSTR;
	varComment.bstrVal = (_bstr_t)strComment;
	varComment.bstrVal = strComment.AllocSysString();
	sRange->ClearComents();
	sRange->AddComent(varComment);
	SysFreeString(varComment.bstrVal);
}