精华内容
下载资源
问答
  • 使用vb 编写批量设置图片大小的源代码
  • word 批量设置图片大小

    万次阅读 2010-03-06 17:27:00
    word批量修改图片大小——固定长宽篇方法一:这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起...

    word批量修改图片大小——固定长宽篇

    方法一:

    这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!
    1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的 界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!

    宏

    2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存
    Sub setpicsize() '设置图片大小
    Dim n ' 图片个数
    On Error Resume Next ' 忽略错误

    For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
    ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
    ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
    Next n

    For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
    ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
    ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
    Next n
    End Sub

    3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时, 可能会花一些时间)

     

    方法二:

    1、在word中按alt+f11组合键,进入VBA模式
    2、在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
    3、把下面代码复制,粘贴进去.
    4、更改数值, 改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片

    Sub Macro()
    Mywidth=10 ‘10为图片宽度(厘米)
    Myheigth=10 ‘10为图片高度(厘米)
    For Each iShape In ActiveDocument.InlineShapes
    iShape.Height = 28.345 * Myheigth
    iShape.Width = 28.345 * Mywidth
    Next iShape
    End Sub

     

    word批量修改图片大小——按比例缩放篇

    这部分要说的是把word中的所有图片按比例缩放!
    具体操作同上,只是代码部分稍做修改,代码如下:
    Sub setpicsize() '设置图片大小
    Dim n '图片个数
    Dim picwidth
    Dim picheight
    On Error Resume Next '忽略错误

    For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
    picheight = ActiveDocument.InlineShapes(n).Height
    picwidth = ActiveDocument.InlineShapes(n).Width
    ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍
    ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
    Next n
    For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
    picheight = ActiveDocument.Shapes(n).Height
    picwidth = ActiveDocument.Shapes(n).Width
    ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍
    ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
    Next n
    End Sub

    展开全文
  • 易语言批量修改图片大小V1.0源码,批量修改图片大小V1.0,批量查找,修改图片
  • 批量改变图片大小

    2016-10-14 12:32:23
    批量改变图片大小
  • 批量修改图片大小

    2014-10-16 16:42:46
    批量修改图片大小
  • 批量修改图片分辨率,图片尺寸,图片大小,保持图片比例。
  • 批量调整图片大小.mdb

    2021-09-08 19:33:28
    批量调整图片大小
  • 深度学习读取数据集时,批量更改图片名和大小,方便为图片作标记。
  • 批量改图片 批处理图片大小图片大小。选择文件夹,写好要生成的大小。就可快速批量处理图片大小
  • 批量修改图片大小工具
  • 批量调整图片大小

    2018-10-16 16:08:11
    在word里面批量调整图片大小的脚本,测试可以使用的。
  • 易语言源码易语言批量修改图片大小V1.0源码.rar 易语言源码易语言批量修改图片大小V1.0源码.rar 易语言源码易语言批量修改图片大小V1.0源码.rar 易语言源码易语言批量修改图片大小V1.0源码.rar 易语言源码易语言...
  • 主要为大家详细介绍了python批量修改图片大小的方法,具有一定的参考价值,感兴趣的小伙伴们可以参考一下
  • 通过右键批量改变图片大小 支持GIF.BMP.JPG.TIF等目前主流的图片格式 不支持动画 使用方法: 双击可自动加入右键,选中图片后可随意设置图片大小
  • 批量修改图片大小.zip

    2021-09-29 08:14:06
    批量修改图片大小.zip
  • 批量图片大小工具

    2017-11-20 12:12:36
    批量修改图片大小工具,具备一键导入和导出功能,一键修改文件名。
  • word批量修改图片大小

    2014-04-14 13:12:41
    教你如何批量修改图片大小,简单便捷,一看就会
  • 批量更改图片大小.zip

    2019-11-18 09:51:18
    高效批量处理图片的软件,无需安装,非常好用,压缩后文件清晰度仍然保持,但是体积变小很多。非常适合经常上传图片,处理图片的朋友。
  • vb 图片类 批量修改图片大小

    热门讨论 2010-08-24 22:02:10
    vb 图片类 批量修改图片大小批量改名,方便网站用的大图转小图
  • Word批量修改图片大小

    2019-04-18 14:51:54
    Word批量修改图片大小 本篇介绍把word中的所有图片按固定的长和宽进行修改。
  • world图片批量设置大小

    千次阅读 2018-05-22 16:12:43
    Alt + F11 -----> Miscrosoft Visual Bsic -------&...插入模块粘贴下面代码 调整自己大小Sub Macro() Mywidth = 4.13 Myheigth = 5.48 For Each iShape In ActiveDocument.InlineShapes iShape.Heigh...

    Alt + F11  -----> Miscrosoft Visual Bsic  ------->Miscrosoft word对象---->插入模块

    粘贴下面代码 调整自己大小

    Sub Macro()

     Mywidth = 4.13
     Myheigth = 5.48
     For Each iShape In ActiveDocument.InlineShapes
     iShape.Height = 35 * Myheigth
     iShape.Width = 70 * Mywidth
     Next iShape

     End Sub


    F5执行代码,查看结果

    展开全文
  • 怎么设置文章中所有图片width大小批量设置方法?这在实际应用中很常见,下面有一段示例,希望对大家有所帮助
  • Word中批量设置全部图片大小

    千次阅读 2012-05-18 00:49:39
    要弄移动标书时,需把大量的图片插入到office WORD中指定表格内,由于图片大小不同,一张一张调整很慢,查询了下,有以下这个方法可以快速批量改变图片大小。 版本要求是word2003等: 一,在word中按alt+f11组合键,...

    本文转载于  http://www.ssbbcc.com/725.html




    要弄移动标书时,需把大量的图片插入到office WORD中指定表格内,由于图片大小不同,一张一张调整很慢,查询了下,有以下这个方法可以快速批量改变图片大小。

    版本要求是word2003等:
    一,在word中按alt+f11组合键,进入VBA模式
    二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
    三,把下面代码复制,粘贴进去.
    四,更改数值, 改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片

    Sub Macro()
    Mywidth=10 ’10为图片宽度(厘米)
    Myheigth=10 ’10为图片高度(厘米)
    For Each iShape In ActiveDocument.InlineShapes
    iShape.Height = 28.345 * Myheigth
    iShape.Width = 28.345 * Mywidth
    Next iShape
    End Sub



    展开全文
  • word批量设置图像大小

    千次阅读 2018-11-30 11:17:04
    当word文档中需要批量设置几十幅乃至更多图片大小时,逐个设置费时费力,本文介绍了一种使用宏操作实现图片大小批量设置的简单方法。当然,除此之外,也可以通过宏代码实现一些其他功能,如[1]所述的修改第x张图片到...

    当word文档中需要批量设置几十幅乃至更多图片大小时,逐个设置费时费力,本文介绍了一种使用宏操作实现图片大小批量设置的简单方法。当然,除此之外,也可以通过宏代码实现一些其他功能,如[1]所述的修改第x张图片到第y张图片的大小、把某些字加粗和改变颜色、所有的图片保存在一个文件夹下,或转移图片到另外一个word文档等等,但要求对编程语言有更深入一步的了解。

    软件:word 2013, 操作系统:Windows 10

    1、按视图->宏->查看宏,输入一个宏名setFigSize,按创建,如下:

    2、在代码编辑框输入如下代码,保存后退出代码编辑页面,可通过快捷键Ctrl+s和Alt+F4实现保存和退出。其中本例中高度和宽度单位为px,也可将之转换为cm,1cm等于28.35px,如[2]所述。

      Weight = 600   '设置的图片宽度
          Height = 400  '设置的图像高度
          On Error Resume Next '忽略错误
          For i = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
                  ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px
                 ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px
         Next i
         For i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
                 ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
                 ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
    
         Next i

    3、运行宏setFigSize。如步骤1方式查看宏,输入setFigSize找到该宏名后,选中,再选择“运行”按键。

    4、宏代码修改编辑。如果需要再次修改编辑setFigSize宏代码,如步骤1方式查看宏,输入setFigSize找到该宏名后,选中,再选择“编辑”按键可弹出宏代码编辑框。

    参考:

    [1] http://www.cnblogs.com/cmyg/p/6708441.html word中批量修改图片大小的两个方法

    [2] https://blog.csdn.net/zhaoshuzhaoshu/article/details/77528179 使用宏的方式, 批量修改word中图片的大小

     

    展开全文
  • 一款方便的批量改片图片大小的软件,我本人亲自用过的啊
  • 内容索引:VB源码,图形处理,批量转换 VB批量转换图片大小和图片格式源代码,程序有些粗糙,不少小地方没顾上完善,先将就吧。在原路径和新路径中输入好参数,设定缩放比率,点确定就可实现批量转换图片大小,不过...
  • 批量处理图片大小

    2017-11-13 19:44:01
    最近在学习基础Opencv,趁工作时间比较充裕,做了个小项目。在利用Opencv学习机器学习过程中,我们难免需要去获取一些机器...为了能够在较短时间内得到“性价比”相对较合适的图片,我们需要对图片大小进行集中处理。

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 50,789
精华内容 20,315
关键字:

怎么批量设置图片大小