基于Visual C++2010 与office2010开发办公自动化(22)- 动态创建播放幻灯片

VS2010新特性：

 

 

Office Excel 2010
Office Excel 2010 新增了 Sparklines 特性，可根据用户选择的数据直接在单元格内画出折线图、柱状图等，并配有 Sparklines 设计面板供自定义样式。

 

好了不多说了，我们进入正题，看看在我们的应用程序中如何动态创建播放幻灯片

1.启动VS2010

 

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

 

3.添加下列引用

4.在Form1.h中插入以下代码，具体各按钮消息响应事件见如下代码，详细见代码分析与注释

#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;
	/// <summary>
	/// Form1 摘要
	///
	/// 警告: 如果更改此类的名称，则需要更改
	///          与此类所依赖的所有 .resx 文件关联的托管资源编译器工具的
	///          “资源文件名”属性。否则，
	///          设计器将不能与此窗体的关联
	///          本地化资源正确交互。
	/// </summary>
	public ref class Form1 : public System::Windows::Forms::Form
	{
	public:
		Form1(void)
		{
			InitializeComponent();
			//
			//TODO: 在此处添加构造函数代码
			//
		}
	protected:
		/// <summary>
		/// 清理所有正在使用的资源。
		/// </summary>
		~Form1()
		{
			if (components)
			{
				delete components;
			}
		}
	private: System::Windows::Forms::Button^  button1;
	protected: 
	private:
		/// <summary>
		/// 必需的设计器变量。
		/// </summary>
		System::ComponentModel::Container ^components;
#pragma region Windows Form Designer generated code
		/// <summary>
		/// 设计器支持所需的方法 - 不要
		/// 使用代码编辑器修改此方法的内容。
		/// </summary>
		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<System::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<System::Drawing::Image^  >(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<System::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.启动调试运行后浏览图片如下：

点击”导入到Excel文件“按钮启动Excel后，显示如下，自动插入了程序中要求的图片：

实际应用还需读者自行研究揣摩，以实现更为复杂高效的功能。

原文链接： http://blog.csdn.net/yincheng01/article/details/5670390