【 使用自动化生成Word图表】

最新推荐文章于 2023-09-18 07:49:35 发布
最新推荐文章于 2023-09-18 07:49:35 发布
阅读量168 收藏
点赞数

1.启动VS20109462618_201007032155471.jpg

 

2.创建一个CLR项目如下，在窗体中插入一个Button，插入背景，如下图所示：9462618_201007032155472.jpg

3.添加下列引用9462618_201007032155473.jpg

4.在Form1.h中插入以下代码，详细见代码分析与注释

 

 

view plaincopy to clipboardprint?

#pragma once  

 

namespace yincheng {  

    using namespace System;  

    using namespace System::ComponentModel;  

    using namespace System::Collections;  

    using namespace System::Windows::Forms;  

    using namespace System::Data;  

    using namespace System::Drawing;  

    ///   

    /// Form1 摘要  

    ///  

    /// 警告: 如果更改此类的名称，则需要更改  

    ///          与此类所依赖的所有 .resx 文件关联的托管资源编译器工具的  

    ///          “资源文件名”属性。否则，  

    ///          设计器将不能与此窗体的关联  

    ///          本地化资源正确交互。  

    ///   

    public ref class Form1 : public System::Windows::Forms::Form  

    {  

    public:  

        Form1(void)  

        {  

            InitializeComponent();  

            //  

            //TODO: 在此处添加构造函数代码  

            //  

        }  

    protected:  

        ///   

        /// 清理所有正在使用的资源。  

        ///   

        ~Form1()  

        {  

            if (components)  

            {  

                delete components;  

            }  

        }  

    private: System::Windows::Forms::Button^  button1;  

    protected:   

    private:  

        ///   

        /// 必需的设计器变量。  

        ///   

        System::ComponentModel::Container ^components; 

#pragma region Windows Form. Designer generated code  

        ///   

        /// 设计器支持所需的方法 - 不要  

        /// 使用代码编辑器修改此方法的内容。  

        ///   

        void InitializeComponent(void)  

        {  

            System::ComponentModel::ComponentResourceManager^  resources = (gcnew System::ComponentModel::ComponentResourceManager(Form1::typeid));  

            this->button1 = (gcnew System::Windows::Forms::Button());  

            this->SuspendLayout();  

            //   

            // button1  

            //   

            this->button1->Font = (gcnew System::Drawing::Font(L"SimSun", 12, System::Drawing::FontStyle.:Bold, System::Drawing::GraphicsUnit::Point,   

                static_cast<:byte>(134)));  

            this->button1->Location = System::Drawing::Point(138, 207);  

            this->button1->Name = L"button1";  

            this->button1->Size = System::Drawing::Size(288, 59);  

            this->button1->TabIndex = 0;  

            this->button1->Text = L"演示使用自动化插入Word图表";  

            this->button1->UseVisualStyleBackColor = true;  

            this->button1->Click += gcnew System::EventHandler(this, &Form1::button1_Click);  

            //   

            // Form1  

            //   

            this->AutoScaleDimensions = System::Drawing::SizeF(6, 12);  

            this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;  

            this->BackColor = System::Drawing::Color::Black;  

            this->BackgroundImage = (cli::safe_cast<:drawing::image style="mso-spacerun: yes">  >(resources->GetObject(L"$this.BackgroundImage")));  

            this->ClientSize = System::Drawing::Size(567, 433);  

            this->Controls->Add(this->button1);  

            this->Name = L"Form1";  

            this->StartPosition = System::Windows::Forms::FormStartPosition::CenterScreen;  

            this->Text = L"CSDN著名技术专家尹成-演示使用自动化生成Word图表";  

            this->ResumeLayout(false);  

        } 

#pragma endregion  

    //演示使用自动化插入Word图表  

    private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {  

            Microsoft::Office::Interop::Word::ApplicationClass^ MyWord;  

            Object^ MyMissing;  

            Object^ MyEndOfDoc;  

            Microsoft::Office::Interop::Word::Range^ MyRange;  

            Microsoft::Office::Interop::Word::_Document^ MyDoc;  

            Microsoft::Office::Interop::Word::InlineShape^ MyShape;  

            Object^ MyClassType;  

            Object^ MyChart;  

            Object^ MyChartApp;  

            array<:object>^ MyArray;  

            try 

            {  

                MyMissing=System::Reflection::Missing::Value;  

                // endofdoc 是一个预定义的书签  

                MyEndOfDoc="\\endofdoc";  

                MyWord=gcnew Microsoft::Office::Interop::Word::ApplicationClass();  

                MyWord->Visible= true;  

                MyDoc=MyWord->Documents->Add(MyMissing,MyMissing,MyMissing, MyMissing);  

                //插入图表  

                MyClassType="MSGraph.Chart.8";  

                MyRange=MyDoc->Bookmarks[MyEndOfDoc]->Range;  

                System::Reflection::Binder^ MyBinder;  

                MyShape=MyRange->InlineShapes->AddOLEObject(MyClassType,MyMissing, MyMissing, MyMissing,MyMissing,MyMissing, MyMissing, MyMissing);  

                MyChart=MyShape->OLEFormat->Object;  

                MyChartApp=MyChart->GetType()->InvokeMember("Application",System::Reflection::BindingFlags::GetProperty,MyBinder, MyChart,MyArray);  

                MyShape->Width=MyWord->InchesToPoints((float)5.50);  

                MyShape->Height=MyWord->InchesToPoints((float)2.57);  

                MyRange=MyDoc->Bookmarks[MyEndOfDoc]->Range;  

                MyRange->InsertParagraphAfter();  

                this->Close();  

            }  

            catch(Exception^ MyEx)  

            {  

                MessageBox::Show(MyEx->Message,"信息提示", MessageBoxButtons::OK, MessageBoxIcon::Information);  

            }  

        }  

    };  

} 

#pragma once

 

namespace yincheng {

      using namespace System;

      using namespace System::ComponentModel;

      using namespace System::Collections;

      using namespace System::Windows::Forms;

      using namespace System::Data;

      using namespace System::Drawing;

      ///

      /// Form1 摘要

      ///

      /// 警告: 如果更改此类的名称，则需要更改

      ///          与此类所依赖的所有 .resx 文件关联的托管资源编译器工具的

      ///          “资源文件名”属性。否则，

      ///          设计器将不能与此窗体的关联

      ///          本地化资源正确交互。

      ///

      public ref class Form1 : public System::Windows::Forms::Form

      {

      public:

           Form1(void)

           {

                 InitializeComponent();

                 //

                 //TODO: 在此处添加构造函数代码

                 //

           }

      protected:

           ///

           /// 清理所有正在使用的资源。

           ///

           ~Form1()

           {

                 if (components)

                 {

                      delete components;

                 }

           }

      private: System::Windows::Forms::Button^  button1;

      protected:

      private:

           ///

           /// 必需的设计器变量。

           ///

           System::ComponentModel::Container ^components;

#pragma region Windows Form. Designer generated code

           ///

           /// 设计器支持所需的方法 - 不要

           /// 使用代码编辑器修改此方法的内容。

           ///

           void InitializeComponent(void)

           {

                 System::ComponentModel::ComponentResourceManager^  resources = (gcnew System::ComponentModel::ComponentResourceManager(Form1::typeid));

                 this->button1 = (gcnew System::Windows::Forms::Button());

                 this->SuspendLayout();

                 //

                 // button1

                 //

                 this->button1->Font = (gcnew System::Drawing::Font(L"SimSun", 12, System::Drawing::FontStyle.:Bold, System::Drawing::GraphicsUnit::Point,

                      static_cast<:byte>(134)));

                 this->button1->Location = System::Drawing::Point(138, 207);

                 this->button1->Name = L"button1";

                 this->button1->Size = System::Drawing::Size(288, 59);

                 this->button1->TabIndex = 0;

                 this->button1->Text = L"演示使用自动化插入Word图表";

                 this->button1->UseVisualStyleBackColor = true;

                 this->button1->Click += gcnew System::EventHandler(this, &Form1::button1_Click);

                 //

                 // Form1

                 //

                 this->AutoScaleDimensions = System::Drawing::SizeF(6, 12);

                 this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;

                 this->BackColor = System::Drawing::Color::Black;

                 this->BackgroundImage = (cli::safe_cast<:drawing::image style="mso-spacerun: yes">  >(resources->GetObject(L"$this.BackgroundImage")));

                 this->ClientSize = System::Drawing::Size(567, 433);

                 this->Controls->Add(this->button1);

                 this->Name = L"Form1";

                 this->StartPosition = System::Windows::Forms::FormStartPosition::CenterScreen;

                 this->Text = L"CSDN著名技术专家尹成-演示使用自动化生成Word图表";

                 this->ResumeLayout(false);

           }

#pragma endregion

      //演示使用自动化插入Word图表

      private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {

                 Microsoft::Office::Interop::Word::ApplicationClass^ MyWord;

                 Object^ MyMissing;

                 Object^ MyEndOfDoc;

                 Microsoft::Office::Interop::Word::Range^ MyRange;

                 Microsoft::Office::Interop::Word::_Document^ MyDoc;

                 Microsoft::Office::Interop::Word::InlineShape^ MyShape;

                 Object^ MyClassType;

                 Object^ MyChart;

                 Object^ MyChartApp;

                 array<:object>^ MyArray;

                 try

                 {

                      MyMissing=System::Reflection::Missing::Value;

                      // endofdoc 是一个预定义的书签

                      MyEndOfDoc="\\endofdoc";

                      MyWord=gcnew Microsoft::Office::Interop::Word::ApplicationClass();

                      MyWord->Visible= true;

                      MyDoc=MyWord->Documents->Add(MyMissing,MyMissing,MyMissing, MyMissing);

                      //插入图表

                      MyClassType="MSGraph.Chart.8";

                      MyRange=MyDoc->Bookmarks[MyEndOfDoc]->Range;

                      System::Reflection::Binder^ MyBinder;

                       MyShape=MyRange->InlineShapes->AddOLEObject(MyClassType,MyMissing, MyMissing, MyMissing,MyMissing,MyMissing, MyMissing, MyMissing);

                      MyChart=MyShape->OLEFormat->Object;

                       MyChartApp=MyChart->GetType()->InvokeMember("Application",System::Reflection::BindingFlags::GetProperty,MyBinder, MyChart,MyArray);

                      MyShape->Width=MyWord->InchesToPoints((float)5.50);

                      MyShape->Height=MyWord->InchesToPoints((float)2.57);

                      MyRange=MyDoc->Bookmarks[MyEndOfDoc]->Range;

                      MyRange->InsertParagraphAfter();

                      this->Close();

                 }

                 catch(Exception^ MyEx)

                 {

                      MessageBox::Show(MyEx->Message,"信息提示", MessageBoxButtons::OK, MessageBoxIcon::Information);

                 }

           }

      };

}

 

5.启动调试运行如下：9462618_201007032155474.jpg

点击”演示使用自动化插入Word图表“按钮启动word，显示如下，word中自动插入了一个图表：9462618_201007032155475.jpg

成功的演示了在word中插入图表的方法，实际应用还需读者自行研究揣摩，以实现更为复杂高效的功能。

 

fj.png1.JPG

fj.png2.JPG

fj.png3.JPG

fj.png4.JPG

fj.png5.JPG

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/9462618/viewspace-667111/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/9462618/viewspace-667111/

coffee2107
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
〖Python自动化办公篇⑧〗- word文件自动化 - 创建并生成 word 文档
易编橙 · 终身成长社群，相遇已是上上签！
05-12 4万+
上几章节我们主要学习了如何读取文章，而主要任务是读取文档中的文本信息，也就是字符串，而图片本身是不可读的文件所以并没有去读取图片。从今天开始将学习如何通过 python 脚本来自动生成一个 word 文档。...
Visual C++源代码 191 如何使用自动化生成Word图表
06-22
Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visual C++源代码 191 如何使用自动化生成Word图表Visua
Python办公自动化之Word文档自动化：全网最全，看这一篇就够了！
最新发布
cainiao_python的博客
09-18 1921
作者丨超级大洋葱806来源丨杰哥的IT之旅https://blog.csdn.net/u014779536/article/details/108418066环境安装 使用Python操作word大部分情况都是写操作，也有少许情况会用到读操作，在本次教程中都会进行讲解，本次课程主要用到以下4个库，请大家提前安装。升级pip（便于安装最新库）python-mpipinstall-Upip...
Python 自动化教程(5) : 自动生成Word文件
JoStudio
09-09 7361
本人用 python 写了一个 office库，用于办公自动化，功能是很强的,包括：PPT自动生成、Word自动生成、Excel数据处理、PPT转长图、PPT带语音播放、office文档转为PDF、PDF加解密、加水印等等，都是干货。使用方法极简，大多数功能只需一行代码。............
java生成word(报告报表)含统计图表图片、循环表格,Spring Boot整合word生成
qq_32352777的博客
07-03 2万+
先给大家一个效果图： 左侧是word模板，右侧是生成后的word文档。 在工作中经常用到会有一些生成统计报告、请假等word的功能需求，小编之前做了一些报表的生成，使用过freemarker和poi，但是使用freemarker生成word有一些麻烦的点： 需要先将模板word转化为xml，而且在模板word中写好的占位符${obj}也会在转化为xml后被拆分开，还需要人工处理一次...
使用自动化生成Word图表实例锦集
03-16
以上就是使用C++.NET和Visual Studio.NET自动化生成Word图表的基本流程。在实际应用中，你可能需要根据具体需求调整代码，比如处理更复杂的数据结构、自定义样式或者集成到其他系统中。通过不断地实践和学习，你将...
Java语言后台生成word图表
02-22
在Java后端开发中，生成Word文档并包含图表是一项常见的需求，特别是在数据分析、报告生成或者自动化文档处理场景中。Apache POI是一个强大的库，它允许开发者使用Java来操作Microsoft Office格式的文件，包括Word...
基于Python实现Excel数据处理自动化生成Word文档（含索引目录 分页）.zip
01-06
在本项目中，我们将探讨如何使用Python编程语言来自动化处理Excel数据，并将其转换为结构化的Word文档，同时包含索引目录和分页功能。这样的任务对于数据报告、数据分析或者日常办公自动化具有很高的实用价值。主要...
C#导出WORD动态图表
03-24
虽然这些文件不直接与生成Word图表有关，但它们是构建整个Web应用的基础设施。 综上所述，利用C#和DocX库，可以在ASP.NET Web应用程序中轻松地生成包含动态图表的Word文档，为用户提供自定义报告或分析结果的能力。...
使用自动化生成Word表格文件
11-27
使用自动化生成Word表格文件
C#动态生成含有图片、图标、表格的Word并保存
08-11
动态生成Word，此示例程序中的Word含有文字、图片、表格、图标、格式等元素。 生成完之后打印预览、保存到C盘根目录，最后退出。
.net生成word报表
08-08
在系统里，直接引用该文件，可以进行word报表的制作，往里面添加 文字、统计图表等。这条、引用的COM组件版本 C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Excel\14.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll
自动化生产word
12-28
 设计模板 1、点击“视图”菜单下的“页眉和页脚”子菜单，设置第一行、第二行为宋体一号，并在第二行输入“成员简历”。画一条粗线，然后输入： 姓 名： 性 别： 年 龄： 职 业： 生 日： 爱 好： 联系电话： EMAIL： 再画一条直线。
C# 实现生成Word报表
08-05
本代码可以通过word模板生成word,代码会把模板里的$value$替换成目标字符串，然后生成文件到目标地方。
前端报表导出成word文档（含echarts图表）
热门推荐
朱晓龙的博客
06-23 3万+
前端报表导出成word文档（含echarts图表） 一、问题背景： 前端vue做的各种维度的报表，原来是通过前端整体截屏导出成PDF，但部分报表在遇到跨页时会被截断，客户体验极差。然后又考虑客户可能需要修改报表中的一些内容，因此需要导出成word文档解决跨页截断和满足修改报表内容的问题。前期解决方案预研时试过jacob、poi方案，但jacob只能用于windows平台（要引用一个dll文...
用Python三步生成带有图表的word报表，工作神技巧！
Python追梦
08-08 2218
最近在项目中做了一个生成并导出word报表的功能，在这里分享给大家。 经过查看ESPC原有的生成报表代码和网上查阅的一些方法，解决方案的思路如下： **1.**利用pychartdir库生成图表，保存图片，转成字节数据 **2.**然后使用office办公软件编写所需要的模板word,另存为xml文件 **3.**利用jinja2库渲染修改好的模板，然后写入.doc文件即可 那下面我将我实现的过程...
【Python数据自动化】批量生成word文件
小猪课堂的博客
09-16 4170
如果需要一些资源直接在博客留言，看到并且有我会给大家的 喜欢可以关注【小猪课堂】公众号了解更多内容 准备 import os import pandas as pd io=r'E:\工作\专项\法诉数据\起诉状数据\50份\截图-第二批次500条(1).xlsx' df=pd.read_excel(io,sheet_name='Sheet2') 重点来了 path='E:\\工作\\专项\\法诉...
使用自动化导出Excel表格文件
11-27
使用自动化导出Excel表格文件
第4章办公自动化基础.ppt
11-21
办公自动化基础的学习旨在提升工作效率，熟练掌握Word2003等基本工具的使用，将有助于在日常工作中更好地管理和处理各种信息。通过不断地实践和探索，可以进一步提升办公自动化技能，实现更高效、专业的工作流程。

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值