精华内容
下载资源
问答
  • 当你的word文档中有大量图片,需要批量统一修改图片大小时,可以在你的word文档中新建里一个宏,把资料里的代码复制到你所建立的宏的代码区,运行代码即可批量修改图片尺寸
  • word批量调整图片大小

    千次阅读 2020-04-19 02:02:52
    1.新建一个空白word文档 ...那么我们撤销,返回到文件夹,将文件的排序方式换成“名称,递减”,这样在文件夹中的顺序就调换了,我们再重复复制粘贴到word的操作,,我们就会惊奇的发现在word中的图片按顺...

    1.新建一个空白word文档

    2.选中一组图片(177张),按下ctr+c复制

    3.将这组图片复制到word中。

    (本来我们的图片在文件夹中的时候是排好序且是正序的,可是粘贴到word这里好像变成乱序即倒序了。那么我们撤销,返回到文件夹,将文件的排序方式换成“名称,递减”,这样在文件夹中的顺序就调换了,我们再重复复制粘贴到word的操作,,我们就会惊奇的发现在word中的图片按顺序排好了)

    4.在以打开的word中按下Alt+F8,在红框1输入宏名ctrPicSizeTest(自己取),然后点击红框2的创建

    4.注意红框1,一定要在自己刚建立的宏里面写代码,别张冠李戴。复制这段代码到红框1中

    Myheigth = 24
    Mywidth = 17.52
    On Error Resume Next '忽略错误
    For Each iShape In ActiveDocument.InlineShapes
    iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm
    iShape.Width = 28.345 * Mywidth '设置图片宽度
    Next
    For Each Shape In ActiveDocument.Shapes
    Shape.Height = 28.345 * Myheigth '设置图片高度为任意cm
    Shape.Width = 28.345 * Mywidth '设置图片宽度
    Next

    (可以参照红框1上面那个我已经创建好的宏,其中24是图片的高,17.52是图片的宽),然后红框2的保存

    5.按下Alt+F8,选中刚建立的那个宏ctrPicSizeTest,点击运行。然后你就会发现图片变“大”了。

    设置一下页边距是的看起来好看一些

    6.哒哒哒,完成了

    7.另存为.pdf

    行了。

    展开全文
  • Word2013批量修改图片尺寸

    千次阅读 2019-08-06 14:37:02
    保持图片原始比例(锁定横纵比例)的情况下,批量调整为适应页面尺寸图片大小。 名词 LockAspectRatio - 锁定横纵比例, MsoTrue if the specified shape retains its original proportions when you resize it. ...

    0x00 前言

    保持图片原始比例(锁定横纵比例)的情况下,批量调整为适应页面尺寸的图片大小。

    名词

    LockAspectRatio - 锁定横纵比例, MsoTrue if the specified shape retains its original proportions when you resize it. MsoFalse if you can change the height and width of the shape independently of one another when you resize it. Read/write MsoTriState.

    wdInlineShapeLinkedPicture - 嵌入式连接图片(一般浏览器复制过来的图片类型)

    wdInlineShapePicture - 嵌入式图片

    0x01 使用宏

    P.S. 2019.8.8 更新代码
    代码如下:

    Sub ResizePhotos()
    Dim Shap As InlineShape
    Dim maxWith
    maxWith = CentimetersToPoints(16.79)
    
    For Each Shap In ActiveDocument.InlineShapes
    
        Debug.Print Shap.Type; "Shap.Type"; wdInlineShapePicture
    
        If (Shap.Type = wdInlineShapeLinkedPicture) Or (Shap.Type = wdInlineShapePicture) Then
    
            If Shap.Width > maxWith Then
     
                ' Shap.LockAspectRatio = msoTrue
                Debug.Print "before width: "; Shap.Width
               Debug.Print "before Height: "; Shap.Height
               oW = Shap.Width
               oH = Shap.Height
               aspect = oH / oW 'aspect ratio
               nH = aspect * CentimetersToPoints(16.79) 'new width
               Shap.Width = CentimetersToPoints(16.79)
               Shap.Height = nH
               Debug.Print "after width: "; Shap.Width
               Debug.Print "after Height: "; Shap.Height
    
            End If
        End If
    
    Next
    
    End Sub
    
    

    其中, 16.79 为厘米单位的A4页面宽度,CentimetersToPoints为厘米转像素的函数

    1. 打开隐藏的宏工具

    点击左上角的文件-选项-自定义功能区,勾选左侧的"开发工具"
    在这里插入图片描述
    此时,文档功能区出现开发工具
    在这里插入图片描述

    2. 创建宏函数

    点击宏,或者使用快捷点Alt + F8,打开宏管理,创建名为ResizePhotos的宏函数
    在这里插入图片描述
    复制粘贴代码即可
    在这里插入图片描述

    运行宏函数

    方法一、 在编辑窗口按F5即可
    在这里插入图片描述
    方法二、在管理窗口选中函数,点击运行
    在这里插入图片描述

    0x02 使用F4重复上一次action

    1. 右击第一幅图片,打开"设置大小与位置"
    2. 调整宽度到16.79厘米,确定
      在这里插入图片描述
    3. 点击下一张图片,按F4键,图片即可被修改(MAC 使用command + Y)
    4. 依次修改后面的图片即可

    0x03 Tips

    1. 宏自带纵横比锁定变量,但是设置为True时,并没有生效,所以自己算了一遍
    2. 图片的类型需要注意,不确定的时候可以打印出来
    3. 宏是vb语言,之前没学过,但是上手还蛮快的

    0x04 参考文献

    https://superuser.com/questions/940771/how-can-i-resize-multiple-images-in-a-ms-word-document
    https://zhuanlan.zhihu.com/p/42588748
    https://answers.microsoft.com/en-us/office/forum/office_2010-word/creating-a-macro-for-resizing-several-photos-in/b251f117-8d17-4522-bac4-d128c32587ba
    https://docs.microsoft.com/en-us/office/vba/api/word.wdinlineshapetype

    展开全文
  • 我们在office软件里使用Word编辑图片时,文档里有特别多的图片这时需要进行尺寸修改,倘若一个文档里有几百张图片,一张一张进行调整工作量是巨大的,下面说下用宏命令对word里的图片尺寸进行批量快速处理调整的方法...

    23a9ec40e7afa8662b1922905d7e8287.png

    我们在office软件里使用Word编辑图片时,文档里有特别多的图片这时需要进行尺寸修改,倘若一个文档里有几百张图片,一张一张进行调整工作量是巨大的,下面说下用宏命令对word里的图片尺寸进行批量快速处理调整的方法,免得手动去调制(除非你要特立独行,那另当别论)。

    1.打开Word文档,选择视图菜单里的查看宏命令打开,选择创建命令,新建一个宏,在里面输入以下代码,之后点击上方窗口三角图标的运行按钮(快捷键F5)即可批量修改Word文档里所有的的图片大小(里面的数字要根据你的实际需要进行修改)。此方法尤其适用word转PDF文件时,若转换PDF前不调整图片尺寸适应页面大小,最后导出来的PDF文档,会因图片尺寸过大超出页面,查看PDF文件里面的图片会显示不全,像被截肢了一样。


    Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).Height = 10 * 28.35 '设置图片高度为 10cm (1cm=28.35px) ActiveDocument.InlineShapes(n).Width = 14 * 28.35 '设置图片宽度 14cm Next n End Sub


    Height = 10图片高度数值)* 28.35 Width = 14(图片宽度数值) * 28.35

    其中1cm=28.35px

    图像属性的宽和高实际大小数值,可以在运行宏命令之前,手动调整下图片到合适的大小,之后点击图片右键查看图片大小和位置选项属性,选择里面的大小选项,记住里面调整好的高和宽的数值设置,之后在打开的宏里进行高和宽数值的修改,再按上方三角形图标F5键运行宏命令,这样可以避免瞎操作,因为你不知道自己要把图片调整多大才合适。

    运行宏之前,建议先点击图片边缘边框鼠标手动调整一张照片到自己觉得合适的大小,接着右键查看图片大小属性,记住布局里面大小选项的高和宽的数值,输入到宏代码窗口中进行修改再运行宏。

    b8d0d68052a2c2ce1eb4de5acb12fc9b.png

    7d7418612ae9fed7637a8469c85e7994.png

    b38103d25ec69c5f0b44c486594850b4.png

    d17d5b5a0bff2a9fc8153bfd567913f0.png

    17c3434194fafd39d230991dedef63db.png
    展开全文
  • Word中有多个图片,需要调整到大小一致,可是拉动、或者设置图片大小后,图片会自动改变,始终无法将所有图片调到大小一致。

    在Word中调整图片大小会自动改变怎么办?

    在Word中有多个图片,需要调整到大小一致,可是拉动、或者设置图片大小后,图片会自动改变,始终无法将所有图片调到大小一致。

    别担心

    鼠标右键点击图片
    在这里插入图片描述
    选择大小和位置

    在这里插入图片描述
    取消勾选:锁定纵横比、相对原始图片大小!
    之后就可以正常修改图片大小,而且图片不会自动改变大小!!

    展开全文
  • word中如何将大量图片批处理统一的尺寸大小
  • Sub tongyixiugaichicun() Dim oInlineShape As InlineShape For Each oInlineShape In ActiveDocument.InlineShapes With oInlineShape .LockAspectRatio = msoFalse '不锁定纵横比 ' .ScaleHeight = 10 ...
  • 这是利用AHK实现一键调整Word中所有图片的大小,方便批量打印图片。 ;----------------------------------------- ; 一键调整Word中所有图片的大小 By FeiYue ; ; 用法:为了方便图片打印,可以先限定最长的宽度或...
  • 利用宏统一更改word图片大小的完整代码,只要打开宏,输入我上传的代码,并且更改纵横属性及高和宽的属性,就可以批量更改word图片大小
  • Sub setpicsize() '设置图片尺寸 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).Height = 27.31 *...
  • Word批量修改图片大小

    2019-04-18 14:51:54
    Word批量修改图片大小 本篇介绍把word中的所有图片按固定的长和宽进行修改。
  • 在你的iPad上调整图片尺寸

    千次阅读 2019-10-05 02:44:05
    在这种方式中,你把图片拉伸成不同的尺寸,然后把每个图片分割成一张张正方形的片段。通过使用Cocoa框架提供的CATiledlayer类,你可以在不同的缩放层级下,绘制所需要的图片片段。 但是,在i...
  • 通常,在调整word图片大小的时候是锁定纵横比的,但是有些时候我们需要设置图片的长宽,就需要把锁定纵横比的对勾勾掉。
  • word文档是文字、排版什么的都做完了,只想批量调一下图片尺寸。发现无论是word和还是wps都无法用快捷键选中所有图片。后面用宏解决了批量修改的问题。
  • 注意:全文档的图片都会被统一修改大小。请谨慎操作或备份后操作!!!!! Sub 批量设置图片大小() ' ' Macro 宏 ' ' Myheigth = 12 Mywidth = 8 On Error Resume Next '忽略错误 For Each iShape In ...
  • 以宽定长,保持长宽比不变,修改图片宽度为给定的厘米数。 自己摸索后修改得到。亲测可用。
  • Word】批量修改Word 图片大小

    千次阅读 2019-01-09 15:05:44
    偶然发现这个黑科技,word 居然可以写特么代码(宏 + VBA) 宏是什么鬼 玩过魔兽世界的小伙伴们指定不会陌生,那特么VBA是什么鬼,翻译成中文就是Visual Basic for Applications(VBA)是Visual Basic的一种宏语言 ...
  • 使用宏批量修改word图片大小

    万次阅读 2018-02-07 11:49:09
    word中使用宏修改图片大小,图片大小相同 1、打开word中视图选项卡,选择“宏”->“输入宏名”->“创建” 2、编辑宏 输入下面代码 Sub FormatPics()  Dim iSha As InlineShape  For Each iSha In ...
  • 选中要修改的图片,使用快捷键。Sub ResizeShape()'' ResizeShape Macro' Macro recorded 2010-3-25 by Kavin'Selection.InlineShapes(1).Fill.Visible = msoFalseSelection.InlineShapes(1).Fill....
  • 最近由于网站对图片尺寸的需要,用python写了个小脚本,方便进行图片尺寸的一些调整,特记录如下:# coding=utf-8import Imageimport shutilimport osclass Graphics:infile = 'D:\\myimg.jpg'outfile = 'D:\\adjust...
  • Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '...
  • 工作中我们经常遇到向Word文档中的表格插入图片的问题,一张张插入很麻烦,而且还需要手动调整尺寸格式,比较费时费力,下面介绍一种快速批量导入图片Word文档中的表格里并且自动排版调整尺寸!※操作步骤※:1、...
  • 参见:https://www.cnblogs.com/janwang/p/8289803.html 向大神致敬!!! 欢迎关注微信公众号“源起1024”或扫描下方二维码获取更多学习资源
  • 一、关于Edit —>...无论做过什么样的参数设定【包括File—Export setup—Size(包括width、height、units、expand axes to fill figure)—Apply to figure】,则copy figure到word得到的图片是所见即所得...
  • 打开含有要编辑图片word,快捷键:Alt+F8 调出宏窗口,输入宏名称:批量设置图片格式,点击创建。 第一步: 将下方的代码复制粘贴到编辑栏里,简单的编辑图片的宽和高,只要在 picheight = picwidth = 输入想要的...
  • 今天小编教大家如何调整图片大小的方法,使你的文章整洁美观: 第一步、创建一个新的WORD文档 第二步、打开新建的WORD文档 第三步、点击左上角主菜单栏里的“插入”选项 第四步、点击“图片”选项,会弹出“插入...
  • Word可能使它的大小合适的屏幕,但不是每个人都使用了同一决议你怎么做。 ) 我想知道如果任何人都熟悉的应用程序有这类似WordPress的,因为它易于使用,但具有灵活的功能,像Dreamweaver中的接口。 WordPress的...
  • Python 批量调整图片大小

    千次阅读 2019-09-19 11:01:34
    from PIL import Image import os.path import glob def convertjpg(jpgfile,outdir,width=576,height=384): img=Image.open(jpgfile) try: new_img=img.resize((width,height),Image.BILINEAR) ...
  • Sub 插入图片() Dim filenames As String  Dim filefilter1 As String  filefilter1 = ("所有图片文件(*.jpg;*.bmp;*.png;*.gif),*.jpg;*.bmp;*.png;*.gif") '所有图片文件后面的括号为中文括号 ...
  • 想发布已经写好的MarkDown文档,需要手动调整的地方只有图片。原因是默认插入的图片太大的话,图片会占满屏幕,导致浏览不便。 个人体验:常见的横屏情况下,一张图片不宜超过2/3屏幕高度,主体内容不宜超过2/3屏幕...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 9,559
精华内容 3,823
关键字:

word调整图片尺寸