zoukankan      html  css  js  c++  java
  • 利用vb进行word批量修改图片大小的实践

    word批量修改图片大小

    运行环境

    • win10
    • office2013

    用vb方法

    • 打开word-->视图-->宏-->查看宏-->创建名称为“tupian”的宏-->在编辑界面复制如下代码
    • 根据自己的需要进行修改相关地方即可
    Sub setpicsize()
    Dim n
    On Error Resume Next
    For n = 1 To ActiveDocument.InlineShapes.Count
    
    '使用注意事项
    '如果没有声明纵横比,将默认开启纵横比;根据代码从上往下运行顺序,只有最后一个生效,后面的会覆盖前面的
    '如果声明了LockAspectRatio,无论属性值为什么都是将纵横比关掉;此时高度和宽度将同时生效
    
    
    
    ActiveDocument.InlineShapes(n).Width = 3 * 28.35 '设置图片高度为5 cm  1cm = 28.35px
    ActiveDocument.InlineShapes(n).Height = 1 * 28.35 '设置图片高度为5 cm  1cm = 28.35px  ActiveDocument.InlineShapes(n).LockAspectRatio = msoTriStateToggle
    
    Next n
    
    End Sub
    
    

    其他方法

    待更新

  • 相关阅读:
    排序入门练习题3 谁考了第k名 题解
    排序入门练习题2 从大到小排序 题解
    排序入门练习题1 排序 题解
    关于这个博客
    Count Good Substrings
    Long Long Message
    Milk Patterns
    Musical Theme
    Life Forms
    New Distinct Substrings
  • 原文地址:https://www.cnblogs.com/albertshine/p/13871661.html
Copyright © 2011-2022 走看看