怎么将本身电脑中的图片应用到PowerPoint幻灯片中作配景阿?

1.怎么将本身电脑中的图片应用到PPT中作配景阿?

将图片配置为配景填充即可。

操纵步调：

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

2、右键菜单“配置配景名目“。弹出对话框如下；

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

一、在PPT母版中插入。打开PPT2007，单击视图----幻灯片母版------右击左边幻灯片欣赏窗格第一张母版幻灯片------配置配景名目-----填充------图片或纹理填充-----插入自：文件-------查找路径，插入保藏的图片------全部应用------封锁“配置配景名目”------封锁母版视图。这样，插入的图片就成了所有幻灯片的配景。

二、直接在页面中插入。PPT2007中，打开第一张幻灯片——右击空缺处——配置配景名目——填充——图片或纹理填充——插入自：文件——找到并选择生存的第一张配景图片——插入——全部应用——封锁即可。

在我们建造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