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