如何将多张图片制作成一个PPT?每个幻灯片放一个图片
这个可以用VBS来做。如下步骤可自动将某个文件夹下面的JPG图片按照每个图片一张幻灯片的形式生成一个PPT文件。
1、创建并保存一个VBS文件(比如“批量导入图片.vbs”)包含如下代码:
Option Explicit
Const strRootPath = "D:\Downloads\Pictures\"
Dim oApplication, oPresentation, oShape, fso, oFolder, oFile, oLayout, oSlide
Set oApplication = CreateObject("PowerPoint.Application")
oApplication.Visible = True
Set oPresentation = oApplication.Presentations.Add()
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(strRootPath)
For Each oFile In oFolder.Files
If LCase(fso.GetExtensionName(oFile.Path)) = "jpg" Then
Set oSlide = oPresentation.Slides.AddSlide(oPresentation.Slides.Count + 1, oPresentation.SlideMaster.CustomLayouts(1))
Set oShape = oSlide.Shapes.AddPicture(oFile.Path, 0, -1, 0, 0)
If oShape.Width < oPresentation.PageSetup.SlideWidth Then oShape.Left = (oPresentation.PageSetup.SlideWidth - oShape.Width) / 2
If oShape.Height < oPresentation.PageSetup.SlideHeight Then oShape.Top = (oPresentation.PageSetup.SlideHeight - oShape.Height) / 2
End If
Next
Set fso = Nothing
Set oFolder = Nothing
Set oSlide = Nothing
Set oLayout = Nothing
Set oShape = Nothing
Set oPresentation = Nothing
2、修改其中的图片文件夹路径为你存放图片的目录;
3、在资源管理器中双击这个vbs文件,PowerPoint将自动打开并把所有图片导入成一幅图片一张幻灯片。
1、创建并保存一个VBS文件(比如“批量导入图片.vbs”)包含如下代码:
Option Explicit
Const strRootPath = "D:\Downloads\Pictures\"
Dim oApplication, oPresentation, oShape, fso, oFolder, oFile, oLayout, oSlide
Set oApplication = CreateObject("PowerPoint.Application")
oApplication.Visible = True
Set oPresentation = oApplication.Presentations.Add()
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(strRootPath)
For Each oFile In oFolder.Files
If LCase(fso.GetExtensionName(oFile.Path)) = "jpg" Then
Set oSlide = oPresentation.Slides.AddSlide(oPresentation.Slides.Count + 1, oPresentation.SlideMaster.CustomLayouts(1))
Set oShape = oSlide.Shapes.AddPicture(oFile.Path, 0, -1, 0, 0)
If oShape.Width < oPresentation.PageSetup.SlideWidth Then oShape.Left = (oPresentation.PageSetup.SlideWidth - oShape.Width) / 2
If oShape.Height < oPresentation.PageSetup.SlideHeight Then oShape.Top = (oPresentation.PageSetup.SlideHeight - oShape.Height) / 2
End If
Next
Set fso = Nothing
Set oFolder = Nothing
Set oSlide = Nothing
Set oLayout = Nothing
Set oShape = Nothing
Set oPresentation = Nothing
2、修改其中的图片文件夹路径为你存放图片的目录;
3、在资源管理器中双击这个vbs文件,PowerPoint将自动打开并把所有图片导入成一幅图片一张幻灯片。
佚名
2024-06-01 04:41:05
类似问题(10)
-
佚名2024-06-01 17:08:59
问PS把一张图片放在一个展板里
答加QQ 你的QQ留下!
-
佚名2024-06-01 03:30:46
问用这张图片组成一个词语
答一心两用一心两用,成语,出自宋·朱熹《答人》意思是把注意力同时集中在两件事上,指思想不专一。
-
佚名2024-06-01 13:33:54
问给每一张图片取名字
答都市风景,云下舞者,朦胧剔透,海面晨曦,初春柳色,湖映双阳。
-
佚名2024-06-01 08:00:00
问如何用美图秀秀制作卡通图片
答你说的是像我这样的吗?美图无法制作,先用画图画出简笔,在用美图上色即可
-
佚名2024-06-01 08:00:00
问如何制作个性签名的图片?
答光影魔术手 nEO iMAGING V0.2.7.2 ( http://53.duote.net/neoimaging.exe )★下载方法★运行迅雷软件--...
-
佚名2024-06-01 08:00:00
问如何制作一张高档名片
答一般的名片的大小是91mm*55mm名片就是要用来介绍自己的,主要是想让对方对自己留下深刻的印像。如何留下深刻的印像,可以通过色彩的搭配(一般暖色调或者相对突兀...
-
佚名2024-06-01 08:00:00
问怎样把自己的照片制作成动图gif图片
答制作gif图片其实很简单。选择工具中的闪图,然后添加一张图片进去,接着选择自定义闪图,然后再把要制作gif的所有图片都添加到软件中,可以对添加的图片进行翻转、替...
-
佚名2024-06-01 08:00:00
问在ppt里如何使图片与字连在一起
答同时选中图和文字进行组合:先左键选中图片——再按ctrl左键选中文字,使图片和文字被同时选中(都有虚框)-----右键虚框---组合---组合。就把图和文字连一...
-
佚名2024-06-01 08:00:00
问如何设置PPT幻灯片单张循环播放演示,然后手动切换下一张?
答1、首先打开需要编辑的PPT,点击选择上方“幻灯片放映”按钮。2、然后在新的界面里点击选择“幻灯片切换”按钮。3、之后在新的界面里点击勾选“单击鼠标时”按钮。4...
-
佚名2024-06-01 08:00:00
问怎么设置只要单击一次让一张ppt幻灯片里所有图片显示出来
答给你提供思路,你可以在设置图片的放映显示连接到上一张,就是只要点第一张出来后,后面的就会接着第一张接二连三的自动出现
风水
- 1 做梦梦到修自己家的祖坟是什么意思
- 2 做梦梦到我在书里和墙里找到钱,是什么意思
- 3 做梦梦到被人追跑着跑着我变成了小燕子又变**代表什么意思呢?
- 4 梦到蛇跑到家里了,结果和弟弟亲戚们一起抓蛇,结果弟弟抓住蛇就咬住蛇头,我赶紧让他放开,他就放开了,
- 5 女子本命年梦见被蛇咬
- 6 昨晚我在梦中梦见我姐姐我死了,我伤心的哭着醒来了这意味着什么意思
- 7 梦见离婚了,同学又给介绍新的男朋友,可是我对他很反感什么意思
- 8 梦见熟人脸上遮了一块布看着我,是什么意思。
- 9 我是1987年4月2日17点整出生的,哪位**给我算一下生辰八字和五行
- 10 梦见一个弃婴被我从冷水中捡到,快死了,救下他,却和他肺部连一起使用了,不然他就会死。
起名
网名
- 1 霸气又伤感的女生网名
- 2 老公出轨了网名
- 3 小丸子的情侣网名
- 4 一首唐诗做情侣网名
- 5 嗜血网名带符号女
- 6 关于鲲的古风网名
- 7 贵州方言昵称
- 8 微信昵称加彩虹图标
- 9 昵称梅
- 10 在抖音上改b站的昵称
说说
- 1 关于盼个性签名
- 2 抖音签名可以放微信号吗
- 3 趁年轻旅游的说说
- 4 不想继续的婚姻说说
- 5 关于台风来临的说说
- 6 朋友圈精美的说说大全
- 7 忙完了歇下来的说说
- 8 防火工作取得好成绩的说说
- 9 羡慕鱼的记忆力的说说
- 10 超速行驶的搞笑说说