宏中内嵌Excel的动态图表.doc

《宏中内嵌Excel的动态图表.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、个人收集整理勿做商业用途PＰT宏中内嵌Ｅxｃel的动态图表在excel中可以通过窗体或AcｔiveX控件达到动态控制图表显示的目的，但当Excｅl图表作为对象内嵌到ＰPT后,在PPT播放模式下，所有在Exceｌ对象中的控件都是不可选的,只能在PPT的编辑模式下双击对象后在Apｐlｉcatiｏn.Excel中进行控制。那么怎样才能在PＰT播放模式下可以控制插入的Eｘｃel图表动态显示？一个方法是借助PPT中的ＶBA编程,用ＰＰT中的AcｔiｖｅX控件(注意在PＰT中没有窗体工具中的控件）控制内嵌的Ｅｘceｌ对象中的相关单元格区域，达到动态控制。　这里指的ActivｅX控件就是在“视图→工具栏→

2、控件工具箱”中的控件。下面是具体的步骤:　　①在PoｗerPoint的编辑模式下需要插入图表的页面中用“插入→对象→MicrosoｆtＥxｃｅｌ图表”插入一个内嵌的Exｃel图表,编辑数据及图表(最好是用一个图表工作表显示图表)，用一个工作表中的单元格放入数据作为控制图表显示的单元格（这个只是为了方便理解，其实用VBA不要辅助单元格也可以直接改变图表数据引用的)。②退出Excｅl编辑,在ＰPT选择“视图→工具栏→控件工具箱”打开“控件工具箱”,在图表所在页插入一个组合框。　插入“组合框”控件后，按Alt+Ｆ11就可以在ＶBＥ中看到工程中显示出了一个Sｌｉde对象(只有加入了ActiveＸ控件

3、后才能在工程资源管理器中出现Slide对象)，如下图:　③在VBＥ的Sｌidｅ对象相应的模块中加入如下代码OｐtｉｏｎExplicit'声明公共变量DiｍWbＡｓOｂjecｔ,ShAsObjeｃt,ＳoｕcｅＲｎgＡsObjecｔ,　TaｒCelｌAsOｂject'当控件获得焦点时运行Prｉｖate　SubCoｍbｏＢox1_ＧoｔFocｕs（)　DｉmiAs　Inｔeｇer'设置Wb为内嵌的Excel工作薄，Ｓh为指定工作表,SouceRng和ＴａrＣelｌ为指定单元格区域ＳeｔWb＝Ｍｅ.Ｓhaｐes(1).OLEＦormａt．Objｅcｔ　＇Mｅ表示正在播放的Sｌide　SｅｔSh=Ｗ

4、b.workｓｈeｅts(＂ｓheeｔ1")　　SetSｏｕceRng=　Sh．Raｎｇe("B１:D1＂)　SｅｔＴａrCｅll=Ｓh.Raｎge(＂F1"）个人收集整理勿做商业用途WitｈCombｏBｏx１　　'先清除列表　　Iｆ.ＬｉstCounｔ>0Then　　　．ListIndeｘ　=-1　　Forｉ=　.ListCoｕｎt－1　To0Sｔｅp－1　　　.RemoｖeIｔemi　　Nexｔｉ　　　EｎdＩf　　'加入列表项　Fｏri　＝1ToSoｕceRｎg.Count　　.AddIteｍSouceRｎg.offset(0,ｉ　-　1).Raｎge("A1")Ｎeｘti　　'选择第

5、一项．ＬiｓtIｎdｅx　=０　'修改TaｒＣell单元格中的值　TａrＣｅlｌ=．ＶalueEndWithEnd　Ｓub　④在VBE的Slidｅ对象相应的模块中再加入如下代码‘当控件失去焦点时运行释放对象变量Privａtｅ　Sub　ＣombｏBox1_ＬoｓtＦocｕs(）　　SeｔTarCｅll　=Nｏtｈｉｎg　　　SeｔSouｃeRｎg=Nothｉｎg　SｅｔSh=Noｔhing　SetWｂ=ＮoｔhingEnd　Suｂ‘当控件值改变时运行对内嵌工作薄单元格的改变PｒivatｅSｕbＣomboBoｘ1_Chａnge()'改变内嵌工作薄中相应单元格的值个人收集整理勿做商业用途　TａrC

6、elｌ=ComboBoｘ1.ValueEｎｄSub