以文本方式查看主题

-  课外天地 李树青  (http://njcie.com/bbs/index.asp)
--  清心茶舍  (http://njcie.com/bbs/list.asp?boardid=21)
----  [推荐]放大图片全屏的PowerPoint宏  (http://njcie.com/bbs/dispbbs.asp?boardid=21&id=662)

--  作者:admin
--  发布时间:2009/3/17 13:01:43
--  [推荐]放大图片全屏的PowerPoint宏

该宏可以自动将复制到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编辑过]