QT下操作word插入图片并可设置图片大小

QT选操作word的插入指定大小图片
搜索很久,并未发现相关解决方法,大部分博主提供的方法并不能解决设置大小的问题,于是自己查看了微软的office接口方法
直接上代码,中间省略部分内容,阅读时注意哦

 ///初始化QAxObject//
    HRESULT r = OleInitialize(0);
    if (r != S_OK && r != S_FALSE){
        qCritical("Qt: Could not initialize OLE (error %x)", (unsigned int)r);
        return false;
    }

	//office或者wps
    QAxObject * word = new QAxObject();
    bool opFlag = word->setControl("Word.Application");
    if(!opFlag)
        opFlag = word->setControl("kwps.Application");
    if(!opFlag){
        qWarning()<<"新建word应用程序失败!";
        OleUninitialize();
        return false;
    }
    //设置不可见
    word->setProperty("Visible",false);

    //获取所有的工作文档
    QAxObject *documents = word->querySubObject("Documents");
    if (!documents){
        OleUninitialize();
        return false;
    }
    
    //以szdotfile.doc为模板新建一个文档
    documents->dynamicCall("Add(QString)", szdotfile);
    
    //获取当前激活的文档
    QAxObject *document = word->querySubObject("ActiveDocument");
    
    //获取word中书签对象
    QAxObject *bookmark_code = document->querySubObject("Bookmarks(QVariant)", szMarkCode);
    
    //选中书签
	bookmark_code->dynamicCall("Select(void)");
	
	//获取ranged对像
    QAxObject *range = bookmark_code->querySubObject("Range");

   //存储图片方法1  不需要设置图片大小 直接填充的
    QVariant tmp;
    QList<QVariant> qList;
    if(!range->isNull()){
       tmp = range->asVariant();
       qList<< QVariant(szContent) << QVariant(false) << QVariant(true) << tmp;
    }
    
    QAxObject *Inlineshapes = document->querySubObject("InlineShapes");
    if(!Inlineshapes->isNull())
        Inlineshapes->dynamicCall("AddPicture(const QString&, QVariant, QVariant ,QVariant)",qList);
        
  //存储图片方法2  设置图片大小  
  QVariant tmp;
  QList<QVariant> qList;
  if(!range->isNull()){
      tmp = range->asVariant();
      qList<< QVariant(szContent);
      qList<< QVariant(false);
      qList<< QVariant(true);
      qList<< QVariant(2);   //top 起始点上方距离,像素点
      qList<< QVariant(6);   //left  
      qList<< QVariant(280); //width
      qList<< QVariant(140); //height
      qList<< tmp;
   }
   QAxObject *shapes = document->querySubObject("Shapes");
   if(!shapes->isNull())
       shapes->dynamicCall("AddPicture(const QString&, QVariant, QVariant, "\
                                      "QVariant, QVariant, QVariant ,QVariant, "\
                                      "QVariant)",
                                      qList);

附上微软的接口链接,可以找到对应的属性、对象和方法

方法说明-> https://learn.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa171535(v=office.11)?redirectedfrom=MSDN

属性、对象-> https://docs.microsoft.com/zh-cn/office/vba/api/word.wdprotectiontype

可以先使用office的宏录制,查看大概得属性和方法,再去文档中查找具体使用方法

  • 12
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值