学步园

VS2010新特性：

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

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

1.启动VS2010

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

3.添加下列引用

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

#pragma once<br /> namespace Yincheng{<br /> using namespace System;<br /> using namespace System::ComponentModel;<br /> using namespace System::Collections;<br /> using namespace System::Windows::Forms;<br /> using namespace System::Data;<br /> using namespace System::Drawing;<br /> /// <summary><br /> /// Form1 摘要<br /> ///<br /> /// 警告: 如果更改此类的名称，则需要更改<br /> /// 与此类所依赖的所有 .resx 文件关联的托管资源编译器工具的<br /> /// “资源文件名”属性。否则，<br /> /// 设计器将不能与此窗体的关联<br /> /// 本地化资源正确交互。<br /> /// </summary><br /> public ref class Form1 : public System::Windows::Forms::Form<br /> {<br /> public:<br /> Form1(void)<br /> {<br /> InitializeComponent();<br /> //<br /> //TODO: 在此处添加构造函数代码<br /> //<br /> }<br /> protected:<br /> /// <summary><br /> /// 清理所有正在使用的资源。<br /> /// </summary><br /> ~Form1()<br /> {<br /> if (components)<br /> {<br /> delete components;<br /> }<br /> }<br /> private: System::Windows::Forms::Button^ button1;<br /> protected:<br /> private:<br /> /// <summary><br /> /// 必需的设计器变量。<br /> /// </summary><br /> System::ComponentModel::Container ^components;<br /> #pragma region Windows Form Designer generated code<br /> /// <summary><br /> /// 设计器支持所需的方法 - 不要<br /> /// 使用代码编辑器修改此方法的内容。<br /> /// </summary><br /> void InitializeComponent(void)<br /> {<br /> System::ComponentModel::ComponentResourceManager^ resources = (gcnew System::ComponentModel::ComponentResourceManager(Form1::typeid));<br /> this->button1 = (gcnew System::Windows::Forms::Button());<br /> this->SuspendLayout();<br /> //<br /> // button1<br /> //<br /> this->button1->Font = (gcnew System::Drawing::Font(L"SimSun", 12, System::Drawing::FontStyle::Bold, System::Drawing::GraphicsUnit::Point,<br /> static_cast<System::Byte>(134)));<br /> this->button1->Location = System::Drawing::Point(138, 207);<br /> this->button1->Name = L"button1";<br /> this->button1->Size = System::Drawing::Size(288, 59);<br /> this->button1->TabIndex = 0;<br /> this->button1->Text = L"演示使用自动化插入Word图表";<br /> this->button1->UseVisualStyleBackColor = true;<br /> this->button1->Click += gcnew System::EventHandler(this, &Form1::button1_Click);<br /> //<br /> // Form1<br /> //<br /> this->AutoScaleDimensions = System::Drawing::SizeF(6, 12);<br /> this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;<br /> this->BackColor = System::Drawing::Color::Black;<br /> this->BackgroundImage = (cli::safe_cast<System::Drawing::Image^ >(resources->GetObject(L"$this.BackgroundImage")));<br /> this->ClientSize = System::Drawing::Size(567, 433);<br /> this->Controls->Add(this->button1);<br /> this->Name = L"Form1";<br /> this->StartPosition = System::Windows::Forms::FormStartPosition::CenterScreen;<br /> this->Text = L"CSDN著名技术专家尹成-演示使用自动化生成Word图表";<br /> this->ResumeLayout(false);<br /> }<br /> #pragma endregion<br /> //演示使用自动化插入Word图表<br /> private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {<br /> Microsoft::Office::Interop::Word::ApplicationClass^ MyWord;<br /> Object^ MyMissing;<br /> Object^ MyEndOfDoc;<br /> Microsoft::Office::Interop::Word::Range^ MyRange;<br /> Microsoft::Office::Interop::Word::_Document^ MyDoc;<br /> Microsoft::Office::Interop::Word::InlineShape^ MyShape;<br /> Object^ MyClassType;<br /> Object^ MyChart;<br /> Object^ MyChartApp;<br /> array<System::Object^>^ MyArray;<br /> try<br /> {<br /> MyMissing=System::Reflection::Missing::Value;<br /> // endofdoc 是一个预定义的书签<br /> MyEndOfDoc="//endofdoc";<br /> MyWord=gcnew Microsoft::Office::Interop::Word::ApplicationClass();<br /> MyWord->Visible= true;<br /> MyDoc=MyWord->Documents->Add(MyMissing,MyMissing,MyMissing, MyMissing);<br /> //插入图表<br /> MyClassType="MSGraph.Chart.8";<br /> MyRange=MyDoc->Bookmarks[MyEndOfDoc]->Range;<br /> System::Reflection::Binder^ MyBinder;<br /> MyShape=MyRange->InlineShapes->AddOLEObject(MyClassType,MyMissing, MyMissing, MyMissing,MyMissing,MyMissing, MyMissing, MyMissing);<br /> MyChart=MyShape->OLEFormat->Object;<br /> MyChartApp=MyChart->GetType()->InvokeMember("Application",System::Reflection::BindingFlags::GetProperty,MyBinder, MyChart,MyArray);<br /> MyShape->Width=MyWord->InchesToPoints((float)5.50);<br /> MyShape->Height=MyWord->InchesToPoints((float)2.57);<br /> MyRange=MyDoc->Bookmarks[MyEndOfDoc]->Range;<br /> MyRange->InsertParagraphAfter();<br /> this->Close();<br /> }<br /> catch(Exception^ MyEx)<br /> {<br /> MessageBox::Show(MyEx->Message,"信息提示", MessageBoxButtons::OK, MessageBoxIcon::Information);<br /> }<br /> }<br /> };<br /> }<br />  

5.启动调试运行后浏览图片如下：

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

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