学破解论坛

 ★找回密码★
 ★免费注册★

QQ登录

绑定QQ,免密登录

查看: 179|回复: 0

word宏求助(图片批量改大小)

[复制链接] |关注本帖

签到天数: 20

该用户今日未签到




101HB
本帖最后由 2014218866 于 2019-11-19 21:17 编辑

哪位大佬精通word宏,帮忙改一下面的代码:
将所选(不是文档中所有的图片而是当前所选的图片)图片批量改大小(在不改变图片版式的情况下


  1. Sub统一大小()
  2. On Error Resume Next
  3. Dim mywidth
  4. Dim myheight
  5. Application.ScreenUpdating = False '关闭屏幕更新
  6. mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0,则图片保持原始纵横比,宽度根据输入的高度数值自动调整;", Title:="请输入图片宽度", Default:="0")) * 28.35
  7. myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0,则图片保持原始纵横比,高度根据输入的宽度数值自动调整;", Title:="请输入图片高度", Default:="0")) * 28.35
  8. '------------------------------------------------------------------
  9. '调整嵌入式图形
  10. <font color="#ff0000">Dim pic As InlineShape
  11. For Each pic In Selection.InlineShapes</font>
  12. If mywidth = "0" Then
  13. pic.Height = myheight
  14. pic.ScaleWidth = pic.ScaleHeight
  15. ElseIf myheight = "0" Then
  16. pic.Width = mywidth
  17. pic.ScaleHeight = pic.ScaleWidth
  18. Else
  19. pic.LockAspectRatio = msoFalse
  20. pic.Width = mywidth
  21. pic.Height = myheight
  22. End If
  23. Next
  24.   Application.ScreenUpdating = True '恢复屏幕更新
  25. End Sub
复制代码




学破解论坛关注PC软件安全与移动软件安全领域。学习破解方法,使软件开发者能够更好的弥补软件缺陷,修复软件漏洞,提升软件安全,将损失降为最低。大量的软件加密解密教程,使软件开发者与代码逆向分析爱好者受益颇多,因此被连连称赞。保护开发者的利益与版权是我们持之以恒的动力!学破解论坛将竭尽全力为软件安全领域献出微薄之力!
您需要登录后才可以回帖 登录 | 立即注册

获得更多积分,阅读本版加分规则

免责声明

本站中所有被研究的素材与信息全部来源于互联网,版权争议与本站无关。本站所发布的任何软件的逆向分析文章、逆向分析视频、补丁、注册机和注册信息,仅限用于学习和研究软件安全的目的。全体用户必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。学习逆向分析技术是为了更好的完善软件可能存在的不安全因素,提升软件安全意识。所以您如果喜欢某程序,请购买注册正版软件,获得正版优质服务!不得将上述内容私自传播、销售或者其他任何非法用途!否则,一切后果请用户自负!

站长邮箱:SharkHeng#iCloud.com


站长微信号:SharkHeng|联系Email|鲨鱼逆向|无图版|手机版|小黑屋|FAQ|VIP破解教程|学破解论坛 ( 京公网安备 11011502002737号 | 京ICP备14042738号 ) 

GMT+8, 2019-12-14 20:52

快速回复 返回顶部 返回列表