放大图片全屏的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的详细资料）