Rss & SiteMap

课外天地 李树青 http://www.njcie.com

李树青 论坛 南京 财经 课外天地
共1 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
admin 发表于: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编辑过]
共1 条记录, 每页显示 10 条, 页签: [1]

Copyright ©2002 - 2016 课外天地.Net
Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.