ATL 获取PPT控件内容

最新推荐文章于 2021-12-06 11:54:28 发布

河豚

最新推荐文章于 2021-12-06 11:54:28 发布

阅读量442

点赞数

本文链接：https://blog.youkuaiyun.com/wang773294330/article/details/42125565

版权

ATL OFFICE 开发日记2_ppt 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种在PPT全屏模式下通过特定函数获取当前页面标题和其他文本内容的方法，并简要提及了非全屏模式下的实现差异。

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

全屏模式下获取数据

GetTitleNameWithSlide(strTitleName,m_spApp.p->ActivePresentation->SlideShowWindow->View->Slide);

BOOL MyPptTest::GetTitleNameWithSlide(char *sOutTitleName, _SlidePtr Sld)
{
char strTmp[256] = {0};
int nIndex = Sld->GetSlideIndex();   //当前第几页
int ncount = 0;   //本页总共有几个对象，对象ID从1开始,包括所有对象
MSPPT::Shapes* pShapes = NULL;
Sld->get_Shapes(&pShapes);
ncount = pShapes->GetCount();
if (pShapes)
{
  int i = 0;
  BOOL bIsHave = FALSE;
  MSPPT::Shape *pItemFrist = NULL;
  int nMinIndex = 1;

  for (i = 1;i <=ncount;i++)
  {
   MSPPT::Shape *pItem1 = NULL;
   pShapes->raw_Item(_variant_t((long)i),&pItem1);
   Office::MsoShapeType shapeType ;
   pItem1->get_Type(&shapeType);
   if (shapeType != msoPlaceholder &&
    shapeType != msoAutoShape &&
    shapeType != msoTextBox &&
    shapeType != msoFreeform )
   {

//PPT页面中对象类型不为上述类型的时候，执行下面的一些函数的时候造成ppt内部崩溃，其他变量需要进一步测试
continue;
}

pShapes->raw_Item(_variant_t((long)i),&pItemFrist);

MSPPT::TextFrame *pTextframe = NULL;
  pItemFrist->get_TextFrame(&pTextframe);
  if (pTextframe)
  {
   MSPPT::TextRange* pRange = NULL;
   pTextframe->get_TextRange(&pRange);

   char szText[255];

   BSTR bstrText = NULL;
   pRange->get_Text(&bstrText);      //bstrText就是ppt当前页的各个可读取对象的文本内容
   }

  }
}
return TRUE;
}