zoukankan      html  css  js  c++  java
  • word2013怎样批量重设图片和大小?(转)

    https://www.zhihu.com/question/52908434/answer/132934213

    点击视图,宏,查看宏,任意输入一个宏名,创建,
    清空框内内容,复制以下代码粘贴,保存。

    Sub 批量图片大小()
     Dim iSha As InlineShape
     For Each iSha In ActiveDocument.InlineShapes
       If iSha.Type = wdInlineShapePicture Then
         iSha.LockAspectRatio = msoFalse '不锁定纵横比
         iSha.Width = CentimetersToPoints(21) '宽21CM
         iSha.Height = CentimetersToPoints(29.7) '高29.7CM
       End If
     Next
    End Sub

    Sub 批量图片大小()
     Dim iSha As InlineShape
     For Each iSha In ActiveDocument.InlineShapes
       If iSha.Type = wdInlineShapePicture Then
         iSha.LockAspectRatio = msoFalse '不锁定纵横比
         iSha.Width = CentimetersToPoints(21) '宽21CM
         iSha.Height = CentimetersToPoints(29.7) '高29.7CM
       End If
     Next
    End Sub

    保存,回到word界面,点击宏,查看宏,运行。

    完美~

  • 相关阅读:
    lists 函数整理
    orddict 练习
    github 的使用
    wxListCtrl 例子 二
    Erlang eunit
    Erlang 中 Tuple 使用 以及 List 模块意外
    Erlang Json
    模块和包
    Mysql作为zabbix数据库ibdata1文件太高解决
    用户管理和数据库安全
  • 原文地址:https://www.cnblogs.com/quietwalk/p/6663652.html
Copyright © 2011-2022 走看看