当前位置:首页经验技巧Ppt经验ppt课件

如何将自己电脑中的图片应用到PowerPoint幻灯片中作背景阿?

2024-07-29 08:46:16

1.如何将自己电脑中的图片应用到PPT中作背景阿?

将图片设置为背景填充即可。

操作步骤:

1、选择“幻灯片母版”;

2、右键菜单“设置背景格式“。弹出对话框如下;

3、选”填充“,”图片或纹理填充“,点按钮”文件“,定位想要的图片后应用即可。

2.ppt中怎么将图片设置为背景

一、在PPT母版中插入。打开PPT2007,单击视图----幻灯片母版------右击左边幻灯片浏览窗格第一张母版幻灯片------设置背景格式-----填充------图片或纹理填充-----插入自:文件-------查找路径,插入收藏的图片------全部应用------关闭“设置背景格式”------关闭母版视图。这样,插入的图片就成了所有幻灯片的背景。

二、直接在页面中插入。PPT2007中,打开第一张幻灯片——右击空白处——设置背景格式——填充——图片或纹理填充——插入自:文件——找到并选择保存的第一张背景图片——插入——全部应用——关闭即可。

3.如何将一组照片分别作为PPT的背景

在我们制作PowerPoint课件的过程中,一个课件常常包含多张幻灯片,而且为了课件的美观,几乎每张幻灯片中都会插入不同的图片作为背景。同样的插入背景图操作重复N次,实在是太累人了。其实可以通过“宏”来快速完成这一工作。

在硬盘的任意位置(如F盘根目录)新建一个名为“Background”的文件夹,然后将需要插入到PPT课件中的背景图片复制到该文件夹,并对所有的背景图片进行重命名,图片文件名的格式为“1.jpg”、“2.jpg”、“3.jpg”……

启动PowerPoint 2003/2007,然后单击“工具→宏→Visual Basic 编辑器”命令,打开“Visual Basic 编辑器”窗口,然后右击该窗口左边的“VBAProject”,选择“插入→模块”命令,插入一个代码模块,然后在右边的代码窗口中输入相应代码,关闭“Visual Basic编辑器”窗口,上边输入的模块代码就会自动保存,最后单击菜单“文件→保存”命令,将PPT演示文稿保存到“F:\Background”目录下,文件名为“批量插入背景图片.ppt”。

小提示:在我们提供的代码中,“ .Background.Fill.UserPicture "F:\Background\" & i & ".jpg"”表示插入到幻灯片中的背景图片保存在“F:\Background”目录下,背景图片的格式为jpg,如有不同,请自行更改。

接着单击菜单“工具→自定义”命令,打开“自定义”对话框并切换到“命令”选项卡,然后选中“类别”下边列表框中的“宏”选项,这时在“命令”下边的列表框中就会出现我们刚才新添加的宏了(如图)。

在如图界面中将“命令”下边列表框中的“CharuPic”宏拖动到工具栏中的任意位置,松开鼠标后,在工具栏上就会出现一个名为“CharuPic”的按钮,右击该按钮,在出现的右键菜单中,将按钮的名称修改为“批量插入背景图片”;在“更改按钮图像”子菜单中选择自己喜欢的图片作为按钮的背景,最后关闭“自定义”对话框。

以后只需要单击工具栏上的“批量插入背景图片”按钮,稍等片刻, PPT课件中的所有幻灯片就自动完成背景图片的插入工作了。

小提示:如果单击工具栏上的“批量插入背景图片”按钮不能完成幻灯片背景图片的插入工作时,可单击菜单“工具→宏→安全性”命令,打开“安全性”对话框并切换到“安全级”选项卡,将安全等级设置为“中”,就可以了。

代码如下:

Sub 批量作为背景() ' ' 宏由 CHH 记录' picurl = "" '请在上面的引号内输入图片存放的文件夹名称,要用“\”结尾。 picname = "1" '请在上面的引号内输入图片文件名前缀。 picnum1 = "200" '请在上面的等号后输入图片的数量。 pictype = ".jpg" '请在上面的引号内输入图片的类型,例如:.JPG。注意点不能省略。 For i = 1 To picnum1 all = picurl & picname & i & pictype With ActiveWindow.Selection.SlideRange . = msoFalse .DisplayMasterShapes = msoTrue With .Background .Fill.Visible = msoTrue .Fill.ForeColor.RGB = RGB(255, 255, 255) .Fill.BackColor.SchemeColor = ppAccent1 .Fill.Transparency = 0# .Fill.UserPicture all End With End With ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutText).SlideIndex Next i End Sub

资料来自网络


电脑版

免责声明:本站信息来自网络收集及网友投稿,仅供参考,如果有错误请反馈给我们更正,对文中内容的真实性和完整性本站不提供任何保证,不承但任何责任,谢谢您的合作。
版权所有:五学知识网 Copyright © 2015-2024 All Rights Reserved .