课外天地 李树青学习天地清心茶舍 → [推荐]放大图片全屏的PowerPoint宏


  共有18062人关注过本帖树形打印复制链接

主题:[推荐]放大图片全屏的PowerPoint宏

帅哥哟,离线,有人找我吗?
admin
  1楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 管理员
等级:管理员 帖子:1939 积分:26594 威望:0 精华:34 注册:2003/12/30 16:34:32
[推荐]放大图片全屏的PowerPoint宏  发帖心情 Post By:2009/3/17 13:01:43 [只看该作者]

该宏可以自动将复制到Powerpoint中的图片自动缩放和窗口一样大,并左上角对齐

方法是直接在Powerpoint中选择“工具”-“宏”-“Visual Basic编辑器”,右击“工程”窗格选择“插入”-“模块”

复制下面的代码,并保存
Sub ScalingImageFullScreen()
    ActiveWindow.Selection.ShapeRange.Top = 0
    ActiveWindow.Selection.ShapeRange.Left = 0
    ActiveWindow.Selection.ShapeRange.LockAspectRatio = msoFalse
    
    ActiveWindow.Selection.ShapeRange.Width = 720
    ActiveWindow.Selection.ShapeRange.Height = 540
      
    ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank
End Sub

此时即可选中图片,选中“工具”-“宏”-“宏”,选择ScalingImageFullScreen运行即可
值得推荐的一个站点,内容为Powerpoint中VBA编程方法简介,很详细,也很清楚
http://www.rdpslides.com/pptlive/

另外,相关资源也可以使用Office自带的VBA帮助(在使用VBA编辑器时按下F1键,它会自动提示安装,安装后即可查看所有API的详细资料)

[此贴子已经被作者于2010-12-13 20:10:07编辑过]

 回到顶部