怎么把代码弄成PowerPoint
如何用vappt
首先，新建一个PPT文档，并复制这段代码。点击“开发工具”→VisualBasic或查看代码
Su一键EMF()
ActiveWindow.View.PasteSpecial(ppPasteEnancedMetafile)
ActiveWindow.Selection.SapeRange.Ungroup.Ungroup.Select
ActiveWindow.Selection.SapeRange(msoAutoSape).Delete
ActiveWindow.Selection.SapeRange.Regroup
EndSu
请点击输入图片描述
如果没有开发工具选项卡，请点击文件→选项→自定义功能区→主选项卡→勾选“开发工具”→确定。然后根据第一步继续。如果已经有开发工具选项卡，跳过此步。
请点击输入图片描述
进入VBA界面后，点击插入→模块→在新建的空白区域按Ctrl+V粘贴复制好的代码→关闭窗口，返回PPT界面。
请点击输入图片描述
请点击输入图片描述
先记得复制元素（无论是AI还是PPT都记得先复制元素）→Alt+F8打开宏→点击“一键EMF”运行。PS：图中左侧矩形组合是PPT中制作的，右侧的是经过一键处理后的。
请点击输入图片描述
请点击输入图片描述
我们也可以把宏放到快速访问工具栏中，方法是：文件→选项→“从下列位置选择命令”下面选择“宏”→将一键EMF添加到对话框右侧的快速访问工具栏里。此时宏就出现在了快速访问工具栏上。复制素材后点击此按钮，就到了一键导入。经常从AI往PPT导素材的朋友，不妨试试。
PS：
1.建议将好的宏处理文档单独保存为pptm格式，使用时打开导入素材，然后把处理后的素材再复制到需要的ppt里，此pptm只作为中转。
2.使用一键前，请注意先复制元素，否则VBA会报错。?
3.代码在PPT2010、2013中测试无误。
请点击输入图片描述
如何在Excel中用VBA代码创建一个PPT文件？Su?aa()
???? Set?s?=?CreateOject("powerPoint.application")
???? '创建PPT应用程序
???? Set?pp?=?s.Presentations.Add
???? '增加一个空白文档
???? pp.SeAs?TisWorkook.Pat?&?"\"?&?Left(TisWorkook.Name,?InStr(TisWorkook.Name,?".")?-?1)?&?".ppt"
???? '保存到当前路径
???? pp.Close
???? '关闭文件
???? s.Quit
???? '退出程序
End?Su
在WIN7——64Bit下测试已通过
如何使用VBA调用EXCEL里面的图片和数据生成PPT里面的图片和数据？本次案例来自网友提问:需要从600个Excel文件中导出每个文件中的2个图片，之前由于时间原因，回复比较简单没有给出具体实现方法，今天花时间整理写成图文，希望小伙伴们都可以学会。
一、数据模拟
为了更加真实的还原提问者遇到的问题，我们需要准备600个且都包含有2个图片的Excel文件。一两个文件我们可以手动新建就可以了，这可是600个文件呐！
别担心，既然我们是用VBA来解决问题，解决这种事重复机械的劳动，当然不是什么难事。图片我们用以下两个代替，放到当前文件目录下，分别命名为test1.png和test2.png，模拟数据时将test1.png插入到第一个表,test2.png插入到第二个工作表。
test1.png
test2.png
分步作过程:
第一步:新建一个Excel文件，将它另存为.xl格式。
启用宏工作簿
第二步:打开新建好的.xl文件，按快捷键ALT+F11进入VBE界面。
进入VBE界面
第三步:在VBE工程种插入一个模块。
插入模块
第四步:在刚刚新建的模块中粘贴以下代码。
Su生成600个含图片的Excel文件()
'关闭刷新，防止屏幕抖动
Application.ScreenUpdating=False
'定义变量i
DimiAsInteger
'定义i从1循环到600
Fori=1To600
'新增一个工作簿
Workooks.Add
'往工作簿的第一个工作表中插入图片test1.png
ActiveWorkook.Seets(1).Pictures.Insert(TisWorkook.Pat&"\test1.png").Select
'往工作簿的第二个工作表中插入图片test2.png
ActiveWorkook.Seets(2).Pictures.Insert(TisWorkook.Pat&"\test2.png").Select
'将工作簿存储到当前路径下
ActiveWorkook.SeAsTisWorkook.Pat&"\"&i&".xlsx"
'关闭工作簿
ActiveWorkook.Close
'继续循环新建其他工作簿
Next
'恢复屏幕刷新
Application.ScreenUpdating=True
'处理完成给出提示
MsgBox"600个含图片的Excel文件生成完成！",vInformation,"提示信息"
EndSu
第五步:执行VBA代码，生成我们需要的600个Excel文件。
执行VBA代码
连贯作演示:
作演示
二、图片导出
600个案例文件已经准备好了，接下来就是导出文件中的图片。
解决思路:
1.一个个的找出当前目录下的所有Excel文件。
2.打开找到的Excel文件。
3.一个个的找出Excel文件中的工作表。
4.找出工作表中的所有图片对象。
5.把找到的每一个图片导出到当前目录下。
如果文件不多的况下，按上面的思路手动作导出也是可以的，其实通过VBA来解决问题也是要先把复杂问题进行简单化，一步步进行分解问题，最终形成完整解决方案。VBA代码使用方式在上面数据准备过程中已经有详细描述了，本次我们直接来运行下代码，实现导出文件中的图片。
Su导出当前路径下工作簿中的图片()
Dimwk$'定义为工作簿文件
DimiAsInteger'定义工作簿中的工作表数量
DimiiAsInteger'定义为工作表中的对象个数
'关闭刷新，防止抖动
Application.ScreenUpdating=False
'遍历第一个工作簿文件
wk=Dir(TisWorkook.Pat&"\*.xlsx")
'遍历到的文件名不等于空的况下
DoWilewk<>""
'如果文件名称和当前的名称是不一样的。
Ifwk<>TisWorkook.NameTen
'打开遍历到的工作簿
Workooks.Open(TisWorkook.Pat&"\"&wk)
'对打开的工作簿文件进行以下作
WitActiveWorkook
'循环出工作簿中的每一个工作表
Fori=1To.Seets.Count
'循环出工作表中的每一个对象sape
Forii=1To.Seets(i).Sapes.Count
'临时变量，统计sape的个数
k=k+1
'复制sape对象
.Seets(i).Sapes(ii).Copy
'创建一个图表对象，宽高与与对象保持一致
Wit.Seets(i).CartOjects.Add(0,0,.Seets(i).Sapes(ii).Widt,.Seets(i).Sapes(ii).Heigt).Cart
'把图片插入进去
.Paste
'通过图表对象的导出方法，把图片导出到当前目录下
.ExportTisWorkook.Pat&"\"&wk&"_"&k&".png"
'删除图表
.Parent.Delete
EndWit
Next
Next
'关闭打开的工作簿
.CloseFalse
EndWit
EndIf
'继续遍历下一个工作簿
wk=Dir
Loop
'开启屏幕刷新
Application.ScreenUpdating=True
EndSu
图片导出演示
PPT中怎么插入代码？？按ALT+F11打开VBE窗口，菜单“插入”选择要插入模块，窗体还是类模块，之后写代码
HTML插入代码在ppt中怎么用？（高分求）先给20既然提供的Flas地址,就把它下载下来先.然后按照下面的方法插入到PPT中.
一、利用ActiveX控件插入动画
---选择“视图”－>“工具栏”－>“控件工具箱”
---点击“其它工具图标”，从下拉列表中选择“SockWeFlasOject”选项，鼠标变成“＋”形状，将其拖动即出现Flas控件图形。
---单击“控件工具箱”上的“属”按钮，打开属对话框。
---选择“自定义”，单击“浏览”按钮，在弹出的对话框中的“MovieURL”中输入.swf文件路径及名称，并调整“play”，“quality”，“loop”等其它属。
二、利用插入超链接
1.运行PowerPoint程序，打开要插入动画的幻灯片。
2.在其中插入任意一个对象，比如一段文字、一个图片等。目的是对它设置超链接。最好这个对象与链接到的动画的内容相关。
3.选择这个对象，点击“插入”菜单，在打开的下拉菜单中单击“超级链接”。
4.弹出的窗口中，“链接到”中选择“原有文件或We页”，点击“文件”按钮，选择到想插入的动画，点击“确定”完成。播放动画时只要单击设置的超链接对象即可。
第一种方法最为直观，可直接播放。第二种方法最简单，适合初学者。
ppt代码编程入口在哪1、打开ppt，在上面的工具栏中找到【开发工具】并点击。
PPT使用VBA代码编程的教程PPT使用VBA代码编程的方法
2、点击过后就可以看到VBA命令按钮了。
PPT使用VBA代码编程的教程PPT使用VBA代码编程的方法
3、点击VBA命令按钮，会弹出一个窗口。
PPT使用VBA代码编程的教程PPT使用VBA代码编程的方法
4、单击【演示文稿】找到【插入】中的【用户窗体】并点击，在这里就可以加入各种类型了。
PPT使用VBA代码编程的教程PPT使用VBA代码编程的方法
5、完成后，我们就可以找到工具栏中的“||”图标进行运行测试。
PPT使用VBA代码编程的教程PPT使用VBA代码编程的方法
6、测试过后，我们就可以在工具栏中找到各种命令了。
ppt如何触发代码用vim打开代码文件，注意一定要设置成显示行号
2.复制代码，这时一定是带行号的
3.找一个在线的代码高亮网站，生成高亮的代码
4.粘贴到ppt
希望对你有所帮助