找回密码
 立即注册
搜索

PPT可以对每次从其他位置复制的图片进行位置固定吗?

3
回复
268
查看
[复制链接]

16

主题

510

帖子

333

幻币

豪侠武师

Rank: 4

积分
859
QQ
2016-4-12 13:35:56 显示全部楼层 |阅读模式
因为每天早上都要对 PPT 进行更新[size=13.63636302948px],每张PPT上都有两张图片,图片从Excel 中复制的然后让:
1.每张图片大小固定
2.每张图片位置固定
是否可以实现?
图片的大小,我现在可以通过调整 Excel 中图片的大小,进行调整; 图片的位置固定能实现吗?
还请高手帮忙
PPT学习论坛
回复

使用道具 举报

11

主题

193

帖子

32

幻币

一流武者

Rank: 3Rank: 3

积分
228
QQ
2016-4-12 14:39:39 显示全部楼层
用模板可以 固定位置和大小
”鼠标右键“点 PPT页面 选择 ”板式“ 选择你要贴照片的样式
然后在PPT外复制照片  进 PPT 选择带虚线的框框 粘贴 这样 照片的大小和位置就会固定住的了
PPT学习论坛
回复 支持 反对

使用道具 举报

8

主题

225

帖子

26

幻币

一流武者

Rank: 3Rank: 3

积分
254
QQ
2016-4-12 16:41:26 显示全部楼层
能说的在详细么?谢谢    啊
PPT学习论坛
回复 支持 反对

使用道具 举报

11

主题

203

帖子

42

幻币

一流武者

Rank: 3Rank: 3

积分
254
QQ
2016-4-12 17:06:55 显示全部楼层
Sub adjust()
  Dim mySlide As Slide
  Dim myShape As Shape, i_Temp As Integer
  On Error Resume Next
  For Each mySlide In ActivePresentation.Slides
     For Each myShape In mySlide.Shapes
       If myShape.Type = msoPicture Then
          With myShape
            .Left = 35.7
            .Top = 50
            .Height = 432
            .Width = 648
          End With
       End If
    Next
  Next
End Sub
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册