-
vba调整word里面图片大小
2020-11-28 10:33:37Sub tongyixiugaichicun() Dim oInlineShape As InlineShape For Each oInlineShape In ActiveDocument.InlineShapes With oInlineShape .LockAspectRatio = msoFalse '不锁定纵横比 ' .ScaleHeight = 10 ...Sub tongyixiugaichicun()
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape
.LockAspectRatio = msoFalse '不锁定纵横比
' .ScaleHeight = 10
.Width = CentimetersToPoints(8)
.Height = CentimetersToPoints(6)
' .ScaleWidth = 10
End With
Next
End Sub
-
Excel VBA 根据合并单元格大小调整图片大小
2013-08-26 22:50:15Sub adjustpic() '根据合并单元格大小调整图片大小 Dim Pic As Shape For Each Pic In ActiveSheet.Shapes If Pic.TopLeftCell.MergeCells = True Then Set cc = Pic.TopLeftCell.MergeArea Pic.LockAspecSub adjustpic() '根据合并单元格大小调整图片大小
Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes
If Pic.TopLeftCell.MergeCells = True Then
Set cc = Pic.TopLeftCell.MergeArea
Pic.LockAspectRatio = msoFalse
Pic.Top = cc.Top + 5
Pic.Left = cc.Left + 5
Pic.Height = cc.Height - 10
Pic.Width = cc.Width - 10
End If
Next
End Sub -
vba 保存word里面的图片_Word中调整图片大小用这 4 招,一分钟搞定200张图片!
2020-12-05 00:54:46点击上方[word精品教程]-右上角[...]-[设为星标⭐]即可第一时间获取最新办公资讯如果你的Word中插入了几十甚至上百张图片,而且大小都不一样,为了美观,需要将所有的图片统一调整成相同的大小,你该不会一张张的...点击上方[word精品教程]-右上角[...]-[设为星标⭐]
即可第一时间获取最新办公资讯
如果你的Word中插入了几十甚至上百张图片,而且大小都不一样,为了美观,需要将所有的图片统一调整成相同的大小,你该不会一张张的调整吧?
其实你完全可以不必这样,一起来看看下面4个解决方法:
方法1
当文档中插入多张图片时,如果想快速调统一图片的大小,我们可以通过【F4】快速调整。
(1)选择某一张图片,在【格式】-【大小】组或打开【布局】-【大小】对话框,设置图片的“高度”和“宽度”值。
(2)当这张图片大小设置好以后,依次选择其他图片,再按【F4】键,即可快速统一图片大小。
方法2(1)添加命令。选择【文件】-【选项】-【自定义功能区】命令,在“从下列位置选择命令”下拉菜单中选择“所有命令”,然后在下方的列表框中选择“选择多个对象”。然后在“主选项卡”列表框的“开始”栏下“新建组”,单击中间的“添加”按钮将命令添加到新建组中。
(2)设置图片插入的环绕方式。再次选择【文件】-【选项】-【高级】命令,在右侧的“剪切、复制和粘贴”栏中的“将图片插入/粘贴为”设置为“四周型”。
由于批量处理操作是早期office版本的功能,所以我们需要更改文件格式,即将文档格式【.docx】更改为【.doc】。(3)更改文档格式。选择【文件】-【另存为】命令,打开“另存为”对话框,将“保存类型”更改为“Word 97-2003文档”,再点击“保存”按钮,即将文档格式【.docx】改为【.doc】。
(4)一次性选择多张图片。点击【开始】-【新建组】中的“选择多个对象”按钮,在打开的对话框中点击“全选”按钮,勾选所有图片对象,再点击“确定”按钮,此时,即可看到文档中的所有图片都被选中。(说明,这里选择的图片可以是原文档中已有的图片,也可以是新插入图片)。
(5)设置图片大小值。在【格式】-【大小】组中设置宽度或高度值即可。
除了上述方法,我们还可以通过调整页面宽度,Word就会自动调整插入图片的大小,这样也能实现了统一图片大小的目的。
方法3
(1)设置页边距。点击【布局】-【页面设置】组右下角的按钮,打开“页面设置”对话框,选择“页边距”选项。在“左”和“右”数值框中输入页面左、右边距值(这边距值就是将要调整图片的宽度大小)。比如,这里将“左”和“右”页边距都设置为”6厘米“,然后点击“确定”按钮,你会发现,页面版心已变小。(2)插入图片。点击【插入】-【插图】-【图片】按钮,然后插入需要调整大小的多张图片,Word就会自动以版心大小对图片大小进行调整。
(3)保存图片。选择【文件】-【另存为】命令,打开“另存为”对话框,将“保存类型”设置为“网页”,再点击“保存”按钮。
(4)查看图片。此时,在Word文档中或打开保存为网页后的图片文件夹,会看到所有图片大小相同。
此后,利用这个技巧在编辑文档时,插入的图片,就不需要再调整图片大小了。方法4
打开VBA编辑器(也可直接按【Alt+F11】快捷键),新建模块,然后将下面的代码复制粘贴到窗口中。
Sub FormatPics()
Dim Shap As InlineShape
For Each Shap In ActiveDocument.InlineShapes
If Shap.Type = wdInlineShapePicture Then
Shap.LockAspectRatio = msoFalse '不锁定纵横比
Shap.Width = CentimetersToPoints(10) '宽10CM
Shap.Height = CentimetersToPoints(7) '高7CM
End If
Next
End Sub然后保存宏,关闭窗口。再运行宏即可批量调整图片大小:
▼ 附GIF:
怎么样?觉得赞的小伙伴们欢迎点♥在看♥转发♥留言 呀!么么哒~
近期热文推荐:
Word表格快速填充到底是有多牛?这3个操作简直逆天了
一学就会!让老板大呼惊喜的Word文档,到底出众在哪里?
10个小技巧,干掉Word中「闹心」的小问题!
低效人士的救赎,Word 中英文智能排版 3 大招,最后一种会的人不到1%!
我敢打赌,学会这招Office加密技巧,你的文件绝对不会丢!
想学习更多Word的知识,欢迎加入部落窝教育Word学习群。
群号:816626786
哎呀!来都来了,点个【在看】再走呗~
-
VBA_批量调整图片宽度
2017-04-09 15:54:58'版心尺寸大小(假设 Word 2003 中,A4纵向纸张,宽度已知是21厘米,左边距2.5厘米,右边距2.5厘米,所以,版心尺寸=宽度-左边距-右边距=16厘米) Dim Width As Single, Left As Single, Right As Single Width = ...'版心尺寸大小(假设 Word 2003 中,A4纵向纸张,宽度已知是21厘米,左边距2.5厘米,右边距2.5厘米,所以,版心尺寸=宽度-左边距-右边距=16厘米) Dim Width As Single, Left As Single, Right As Single Width = Round(ActiveDocument.PageSetup.PageWidth / 28.35) Left = Round(ActiveDocument.PageSetup.LeftMargin / 28.35, 1) Right = Round(ActiveDocument.PageSetup.RightMargin / 28.35, 1) MsgBox "版心尺寸是 " & (Width - Left - Right) & " 厘米" Sub 图片宽度批量调整() Dim i Dim j Dim oldHeight Dim oldWidth Dim newHeight Dim newWidth Dim docWidth docWidth = 15 * 28.345 On Error Resume Next For i = 1 To ActiveDocument.InlineShapes.Count oldWidth = ActiveDocument.InlineShapes(i).Width oldHeight = ActiveDocument.InlineShapes(i).Height '如果长度大于内容区的长度则自动修改图片长度为内容区,图片高度按照比例压缩 If oldWidth > docWidth Then newWidth = docWidth newHeight = newWidth * oldHeight / oldWidth End If ActiveDocument.InlineShapes(i).Height = newHeight '修改为自己需要的值 ActiveDocument.InlineShapes(i).Width = newWidth '修改为自己需要的值 Next For j = 1 To ActiveDocument.Shapes.Count oldWidth = ActiveDocument.InlineShapes(i).Width oldHeight = ActiveDocument.InlineShapes(i).Height '如果长度大于内容区的长度则自动修改图片长度为内容区,图片高度按照比例压缩 If oldWidth > docWidth Then newWidth = docWidth newHeight = newWidth * oldHeight / oldWidth End If ActiveDocument.InlineShapes(j).Height = newHeight '修改为自己需要的值 ActiveDocument.InlineShapes(j).Width = newWidth '修改为自己需要的值 Next End Sub
-
VBA-EXCEL:控制WORD指定位置,插入图片并调整在大小,高低,环绕
2020-08-09 20:39:59Dim WordApp As Object Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Dim WordDoc As Object ...PicPath="图片地址" WordApp.ActiveDocument.Bookmarks("BM1_1").Range.Se. -
php批量处理图片大小,word图片怎么批量调整大小
2021-04-08 12:58:38在我们使用Word编辑时会插入大量的图片文件,当然这些图片大小一般是不一致的,通常插入到文档后都需要手动调整,如果说这些图片要调整统一大小,如何理解批量的调整大小呢?1、打开插入图片的文档,点击切换到... -
ffmpeg 调整相片大小_2019-07-10 用VBA在PPT批量插入幻灯片、图片,设置图片大小、位置、幻灯片切换方式及...
2021-01-07 06:34:36在B站看到几个用PPT播放BAD APPLE的示例,自己也做了一个https://www.zhihu.com/video/1132392042571067392示例中的代码:Sub PPT批量插入幻灯片及图片() Dim pptPre As Presentation Dim p As Integer Set pptPre... -
latex插入图片 维持图片原始大小_Excel VBA7.76插入图片,你是手动粘贴,手动改大小?VBA全自动...
2020-12-22 20:20:32比方说没有批量导入的功能,并且图片的大小无法在导入的时候调整,后期的调整比较的麻烦,非常的不利于操作,那么如何解决这个问题呢?场景说明这是我们今天的操作场景,我们电脑本地存在每个员... -
vba 压缩图片_300张Word图片,1键统一大小尺寸!学会了同事都叫你大神
2020-12-14 16:50:09今天一大早来到公司,脑残领导就来给我添堵:给了一份有几百张图片的Word文档,要我把这些图片统一大小、对齐...批量调整图片尺寸/图片居中1、按「Alt + F8」快捷键,创建宏,输入名称「setpicsize」,如图所示:2、... -
【办公-WORD】vba 统一改变word文档所有的图片大小 然后导出成PDF
2016-06-01 10:08:23如果您有一推图片且大小一样,想用word转成PDF,那么我推荐您使用VBA来调整图片大小,先给word设置 “页面布局-页边距”全部设置成0,再调整成合适的纸张大小,然后启动VBA 【Alt +F11】,粘贴如下代码,修改代码中... -
怎样批量调整word 图片大小?
2010-08-03 14:13:00这个要用到VBA的,打开你的文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的 Sub Macro() For Each iShape In ActiveDocument.InlineShapes iShape.Height = iShape.Height * 1.5 ... -
Excel2010VBA批量插入或导出图片
2016-09-16 15:07:236.图片的大小会自动适应你设定的第一行要插入图片的单元格,因此提前调整那个单元格的大小可以控制插入图片的大小。 ------------- 删除活动工作表中所有图片 Ctrl+d 删除活动工作表里所有的JPG图片,(不一定是本... -
excel插入图片(利用vba)
2019-02-19 10:00:183. 单元格的大小调整为照片插入的大小 4. 复制下面vba代码,红字前的属性注意修改,红字不需删除 -------------------------------------------------复制分割线以下内容----------------------------------------... -
在Word中调整所有图片的固定大小
2011-05-05 17:45:39在Office 2003中进行下面操作: 一,在word中按alt+f11组合键,进入VBA模式 二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块 三,把下面代码复制,粘贴进去. ... -
ExcelVBA使用Shape对象的AddPicture方法制作图片产品目录
2020-02-27 21:10:12如果需要制作如图1所示的产品目录,因为所需图片的尺寸通常并非完全一致,所以除了插入图片,还需要调整图片的尺寸以适应"图片"列单元格的大小。使用VBA可以快速完成这一系列繁杂的操作,示例代码如下。 Sub ... -
Word中批量设置全部图片大小
2012-05-18 00:49:39要弄移动标书时,需把大量的图片插入到office WORD中指定表格内,由于图片大小不同,一张一张调整很慢,查询了下,有以下这个方法可以快速批量改变图片大小。 版本要求是word2003等: 一,在word中按alt+f11组合键,... -
批量修改的后台代码_一小段Excel VBA代码013:批量修改表格中的图片图形方位和尺寸...
2020-12-06 18:10:42一段简单的VBA代码,让你自如操作Excel!抛砖引玉的场景需求:要求工作表中的所有...Sub 图片图形自动适应单元格调整大小()Dim sh As ShapeFor Each sh In ActiveSheet.Shapes sh.LockAspectRatio = False sh.Left ... -
VBA自定义方法 快捷键设置
2020-03-19 22:55:17这两天做截图操作,录了一段宏(调整大小,图片放到最后面显示), 保存到这段代码,到个人宏工作簿中,方便以后使用。 但是,在使用的时候,不想每次执行的时候去点击执行, 那么如果设置快捷键呢。 ■自定义... -
VBA常用技巧
2014-12-21 16:39:28技巧147 窗体运行时调整控件大小 12 技巧148 在用户窗体上添加菜单 12 技巧149 在用户窗体上添加工具栏 12 技巧150 使用代码添加窗体及控件 12 技巧151 用户窗体的全屏显示 12 151-1 设置用户窗体为应用程序的大小 ... -
VBA编程技巧大全
2013-08-05 09:03:19技巧147 窗体运行时调整控件大小 357 技巧148 在用户窗体上添加菜单 360 技巧149 在用户窗体上添加工具栏 364 技巧150 使用代码添加窗体及控件 369 技巧151 用户窗体的全屏显示 375 151-1 设置用户窗体为应用程序的... -
vba,excel,身份证,照片
2019-10-01 15:18:58Sub 插入图片() '调整单元格大小,以适应图片大小 功能 插入身份证照片打印 - 正面在单元格d6 反面单元格d10 ActiveSheet.Pictures.Delete '清理过期照片 Range("d6").Select Dim aa aa = ActiveSheet.... -
【VBA研究】打印银行对账单(套打)
2018-05-16 10:52:031)将对账单样式图片插入excel,略微调整大小为一张A4纸大小,插入图片的目的是为了准确定位套打位置,图片本身不用打印,需设置为不打印(套打需要先印刷,后打印)。如果不是套打,则打印图片本身。方法是右击图片... -
Excel VBA实用技巧大全 附书源码
2010-10-08 18:59:2404162自动调整工作表全部单元格的大小 04163设置单元格的大小(以磅为单位) 04164设置单元格的大小(以cm为单位) 04165设置单元格的大小(以in为单位) 04166锁定单元格、解除单元格锁定 04167隐藏单元格的公式 ... -
使用Python在Excel中展示图片
2018-11-19 19:44:13最近经常使用VBA调整表格的样式,像是调整单元格的大小和填充颜色之类的,于是产生了一个想法:用Excel展示图片。具体做法可以分为以下几步: 使用Python读取一张图片的RBG值 打开一张Excel表格 import xl... -
Excel百宝箱 9.0 破解版 批量导入图片等200种功能
2013-05-11 22:46:24【批量导入图片(精确匹配)】根据选区的文件名瞬间导入所有同名图片到单元格,可以自由设定图片的大小及格式 【批量导入图片(模糊匹配)】与上一工具基本一致,只是在确定图片名称时可以糊模匹配。即选择“张”... -
Excel百宝箱9.0无限制破解版
2012-02-03 19:05:29【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片到批注】:批量地将图片导入到批注中,可以自由设定图片显示大小 【删除所有图片】:删除当前表... -
Excel百宝箱
2012-10-27 17:09:21【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片到批注】:批量地将图片导入到批注中,可以自由设定图片显示大小 【删除所有图片】:删除当前表... -
Excel百宝箱8.0
2011-06-07 21:32:17【插入GIF动画】:将GIF动画插入工作表中并播放,自动获取图片大小,也可以手工定义动画的大小和位置 【插入Flash动画】:将Flash动画插入工作表中并播放,自动获取Flash大小,可以自定义Flash的大小和位置,Flash... -
Excel百宝箱9.0无限制破解版.rar
2012-09-05 09:31:51【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片到批注】:批量地将图片导入到批注中,可以自由设定图片显示大小 【删除所有图片】:删除...