宏定义批量改图片_后续再完善

最新推荐文章于 2024-05-21 23:35:35 发布
最新推荐文章于 2024-05-21 23:35:35 发布
阅读量1k 收藏 1
点赞数 2
分类专栏： word
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/sugar_master/article/details/115709688
版权
这段宏代码用于批量修改Word文档中的图片格式，包括设置图片的固定高度和宽度，保持纵横比，以及选择性地将图片居中或转换为不同版式的非嵌入式图片。适用于需要统一文档中图片样式的情况。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Sub 批量设置图片格式()
'
' 批量设置图片格式 宏
'
'

'定义变量
Dim picwidth
Dim picheight

On Error Resume Next '忽略错误

'按照固定大小缩放，保持比例
picheight = 5  '单位厘米，可修改
'picwidth = 2.5  '单位厘米，可修改


''类型1：嵌入式图形 InlineShapes类型图片
For Each Shape In ActiveDocument.InlineShapes
'msoFalse是不锁定纵横比，msoTrue是锁定（默认）。
Shape.LockAspectRatio = msoTrue

'按照固定大小缩放, 两行删一行即可
Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
'Shape.Width = picwidth * 28.35 '设置图片宽度8cm

Next


''类型2：非嵌入式图形，Shapes类型图片
For Each Shape In ActiveDocument.Shapes

'按照固定大小缩放, 两行删一行即可
Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
'Shape.Width = picwidth * 28.35 '设置图片

最低0.47元/天 解锁文章
word中用宏批量修改图片大小
m0_54267904的博客
04-29 2054
请记住，这是一个近似值，实际转换可能会因屏幕设置和设备的实际像素密度而略有不同。1 厘米 = (1 英寸 / 2.54) = 0.3937 英寸 1 像素 = (1 英寸 / 96) = 0.0104 英寸。像素和厘米的换算单位取决于屏幕分辨率和设备的像素密度。这是基于标准屏幕设置的近似值，其中屏幕分辨率设置为 96 像素每英寸（ppi）。菜单栏=》视图=》宏=》查看宏，然后输入名字，新建，代码复制进行，然后执行就可以了。1 英寸 = 2.54 厘米 1 英寸 = 96 像素。
Word利用VBA批量修改图片格式为嵌入式
等等等等等再等
10-19 3192
word批量转图片为嵌入型
word文档批量选中图片宏代码
yanwuyan_的博客
03-18 3085
全选选中word中的所有图片的VBA代码。
WPS批量修改图片尺寸的JSA宏程序：最新版本WPS嵌入的宏编译器只支持JSA宏，要使用VBA宏需要重新安装VBA宏编译器插件，或者重新安装2021年之前的WPS版本。
z20131410的博客
05-14 1671
从 WPS 2021 版本开始，WPS 正式支持使用 JS 作为宏语言，官方称 JSA（报错时，用得就是这个名称），亦即 JS for Application 的缩写。最新版本WPS嵌入的宏编译器只支持JSA宏，要使用VBA宏需要重新安装VBA宏编译器插件，或者重新安装2021年之前的WPS版本。//JSA的API请参考 https://open.wps.cn/docs/office;
word文档自动调节图片大小-宏制作
低调D树苗的博客
02-28 2360
本文档旨在提升文档图片编辑效率，是不是每次粘贴大量图片总是不按照规则排列，很是混乱，那么可以录制编辑一个宏，来替我们进行操作，只需点击一下，图片便乖乖按照我们设置的高宽进行规则排列啦。
WinCC批量修改图形变量：快速精通与应用分析
然后深入探讨了WinCC图形变量的理论基础，包括变量的定义、作用以及与画面逻辑的关系，并分析了批量操作的原理和风险。接下来，详细阐述了通过WinCC标准工具、外部工具以及自定义脚本实现批量修改图形变量的操作方法...
【VBA图片管理高手】：一文掌握Excel工作表图片批量导出
![【VBA图片管理高手】：一文掌握Excel工作表图片批量导出]...本文旨在提供一个系统化的VBA图片管理解决方案，从基础知识到高级技巧，详细介绍了在Excel环境下进行图片批量管理
VBA批量图片操作：流程自动化中的图像管理策略
本文全面介绍了VBA在批量图片操作中的应用，涵盖了基础知识、理论原理、实践技巧、自动化流程集成以及案例分析。首先介绍了VBA处理图片的基础理论，包括图像对象模型、文件系统对象的使用和图片处理的逻辑设计。接着...
Excel数据批量导入Word表格工具介绍
- 技术实现的核心在于制作一个映射文件，映射文件类似于数据转换的规则集，用来定义从Excel表格到Word表格的对应关系。 - 映射文件可能包含源Excel文件的具体路径、需要读取的工作表、特定的数据范围，以及在Word...
word宏命令批量修改图片大小
weixin_63418212的博客
02-07 1831
word宏批量修改图片大小
用word宏命令批量修改图片尺寸大小（亲测好用！）
weixin_40901505的博客
04-28 8324
w Sub setpicsize() '设置图片尺寸 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).Height = 27.31 * 28.35 '设置图片高度为 27.31cm '1cm等于28.35px（像素） ActiveDocument.InlineShapes(
Word工程师之使用宏命令批量修改word中图片大小并保持纵横比
weixin_43657383的博客
10-08 1054
Word工程师之使用宏命令批量修改word中图片大小并保持纵横比
OFFICE | word 图片颜色统一处理
@范恒宾的博客
07-12 1481
一、需求背景   由于投标文件的需求，需要把文件中的所有图片变成“冲蚀”，即看起来是黑白的样子，由于网上的教程大多数是针对于单个图片，或者把图片变成非“嵌入式”的，再做统一调整。   投标文件中涉及到的图片较多，且不可能一一进行单独处理，所以考虑使用对应的批量工具或者脚本。然而工具没有找到（如果大家有，可以推荐一下），查看一些英文资料，发现如下的VB脚本。 二、冲蚀处理 1.调用VB宏   打开word，快速调用 “ALT+F11” 调出VB工具，进行运行 Sub Macro1() ' 图片处理 宏 '
VBA-EXCEL：控制WORD指定位置，插入图片并调整在大小，高低，环绕
鞠勇鸿的技术专栏
08-09 9893
Dim WordApp As Object Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Dim WordDoc As Object Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\TEST.docx") PicPath="图片地址" WordApp.ActiveDocument.Bookmarks("BM1_1").Range.Se.
pands 画图 调整大小_用宏命令对word里的图片尺寸大小进行批量修改的方法
weixin_39527078的博客
10-28 530
我们在office软件里使用Word编辑图片时，文档里有特别多的图片这时需要进行尺寸修改，倘若一个文档里有几百张图片，一张一张进行调整工作量是巨大的，下面说下用宏命令对word里的图片尺寸进行批量快速处理调整的方法，免得手动去调制（除非你要特立独行，那另当别论）。1.打开Word文档，选择视图菜单里的查看宏命令打开，选择创建命令，新建一个宏，在里面输入以下代码，之后点击上方窗口三角图标的运行按钮（...
宏命令对word里的图片尺寸大小进行批量修改（按比例修改）
sprvast的博客
12-22 2534
Word批量调整图片尺寸（按比例调整）
wps js宏一键修改文章格式
最新发布
fjwangxi的博客
05-21 2521
一键规范含图片、表格文件样式，
word下图片格式批量设置
热门推荐
tomelrg的专栏
05-30 1万+
本文介绍三种方法。 一、利用软件，如BatchDoc，可以快速批量的设置图片格式。 二、word自带功能 1.将word格式另存为97-2003的格式，即后缀名为doc，非docx。 2.打开word“文件”-中的“选项”卡，选择“自定义功能”，设置为“所有命令”，选择“选择多个对象”，自定义功能区在“开始”面板下“新建组”，将“选择多个对象”添加至此。 3.在“开始”选项卡下，...
word文档批量选中图片宏代码怎么写？
weixin_42579969的博客
02-11 4301
以下是 Word 文档中批量选中图片的 VBA 宏代码： Sub SelectAllPictures() Dim oShape As Shape For Each oShape In ActiveDocument.Shapes If oShape.Type = msoPicture Then oShape.Select msoTrue End If Next...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值