精华内容
下载资源
问答
  • 当你的word文档中有大量图片,需要批量统一修改图片大小时,可以在你的word文档中新建里一个宏,把资料里的代码复制到你所建立的宏的代码区,运行代码即可批量修改图片尺寸
  • Sub 批量调整图片大小() ' ' 批量调整图片大小 宏 ' ' Dim n ' 图片个数 On Error Resume Next ' 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n...

    word中选择宏,查看宏或者创建宏,不同版本的略有区别

    在这里插入图片描述
    输入宏名称,默认也可
    在这里插入图片描述
    在相应位置粘贴如下代码
    在这里插入图片描述

    Sub 批量调整图片大小()
    '
    ' 批量调整图片大小 宏
    '
    '
    Dim n ' 图片个数
    On Error Resume Next ' 忽略错误
    For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
        ActiveDocument.InlineShapes(n).Height = 3 * 28.345 '图片高度3cm
        ActiveDocument.InlineShapes(n).Width = 4.5 * 28.345 '图片宽度4.5cm
        Next n
    For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
        ActiveDocument.Shapes(n).Height = 3 * 28.345 '图片高度3cm
        ActiveDocument.Shapes(n).Width = 4.5 * 28.345 '图片宽度4.5cm
        Next n
    End Sub
    展开全文
  • 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

    行了。

    展开全文
  • 在该页面上不能复制、也不能另存为,为了打破这种限制,可通过页面缩略图将pdf的每一个页面进行批量选择复制,再粘贴到word中,由于图片数量多,大小word窗口不匹配,一张一张手工调整图片至合适的大小非常费事。...

    有些网站为了对PPT资源进行保护,经常将PPT转换为pdf在web上逐页进行展示,在该页面上不能复制、也不能另存为,为了打破这种限制,可通过页面缩略图将pdf的每一个页面进行批量选择复制,再粘贴到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 * 0.74 '设置高度为0.74倍
    ActiveDocument.InlineShapes(n).Width = picwidth * 0.74 '设置宽度为0.74倍
    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 * 0.74 '设置高度为0.74倍
    ActiveDocument.Shapes(n).Width = picwidth * 0.74 '设置宽度为0.74倍
    Next n
    End Sub
    

    word中的图片有两种:InlineShapes和Shapes,程序会根据不同的图片进行识别。我这里是设置缩小74%,可以根据自己情况进行修改。

    在当前word页面运行以上宏,则所有图片大小都自动修稿好,节省了大量时间。

    展开全文
  • 利用宏统一更改word图片大小的完整代码,只要打开宏,输入我上传的代码,并且更改纵横属性及高和宽的属性,就可以批量更改word图片大小
  • 这是利用AHK实现一键调整Word中所有图片大小,方便批量打印图片。 ;----------------------------------------- ; 一键调整Word中所有图片大小 By FeiYue ; ; 用法:为了方便图片打印,可以先限定最长的宽度或...

    这是利用AHK实现一键调整Word中所有图片的大小,方便批量打印图片。

    ;-----------------------------------------
    ; 一键调整Word中所有图片的大小  By FeiYue
    ;
    ; 用法:为了方便图片打印,可以先统一调整大小,再手动微调旋转
    ;-----------------------------------------
    
    
    ; 热键左Win键启动
    LWin::
    SetBatchLines, -1
    
    ; 获取COM对象,图片类型为InlineShapes,1cm等于28.35px
    doc:=Word_Get().ActiveDocument
    
    Loop % doc.InlineShapes.Count
    {
      r:=doc.InlineShapes(A_Index), r.LockAspectRatio:=0
      if (r.Height > r.Width)
        r.Height := 12 * 28.35, r.Width := 7 * 28.35
      else
        r.Width := 12 * 28.35, r.Height := 7 * 28.35
    }
    MsgBox, 4096,, 执行完毕!, 1
    return
    
    
    ;======== 下面是函数 ========
    
    
    ;-- 获取Word窗口的COM对象
    Word_Get(WinTitle="Microsoft Word")
    {
      static obj
      Try
        if (obj.Version)
          return obj
      return obj:=Office_Get(WinTitle)
    }
    
    ;-- 获取Excel窗口的COM对象
    Excel_Get(WinTitle="Microsoft Excel")
    {
      static obj
      Try
        if (obj.Version)
          return obj
      return obj:=Office_Get(WinTitle)
    }
    
    ;-- 获取PowerPoint窗口的COM对象
    PowerPoint_Get(WinTitle="Microsoft PowerPoint")
    {
      static obj
      Try
        if (obj.Version)
          return obj
      return obj:=Office_Get(WinTitle)
    }
    
    
    ;-- 获取所有Office窗口的COM对象  By FeiYue
    Office_Get(WinTitle="")
    {
      static h:=DllCall("LoadLibrary", "Str","oleacc", "Ptr")
      SetTitleMatchMode, 2
      WinGet, idlist, List, % WinTitle ? WinTitle : "A"
      Loop, % idlist
      {
        id:=idlist%A_Index%
        WinGet, ControlList, ControlListHwnd, ahk_id %id%
        For i,hWnd in StrSplit(ControlList, "`n")
        {
          ControlGetPos, x, y, w, h,, ahk_id %hWnd%
          if (w<100 or h<100)
            Continue
          if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd
          , "UInt", 0xFFFFFFF0, "Ptr", 0*(VarSetCapacity(IID,16)
          +NumPut(0x0000000000020400,IID,"Int64")
          +NumPut(0x46000000000000C0,IID,8,"Int64"))+&IID, "Ptr*", pacc)=0
          {
            Acc:=ComObject(9, pacc, 1)
            Try
              if (Acc.Application.Version)
                return Acc.Application
          }
        }
      }
      MsgBox, 4096,, Error: Can't Get Object From ACC !
      Exit
    }
    
    
    展开全文
  • Word中有多个图片,需要调整大小一致,可是拉动、或者设置图片大小后,图片会自动改变,始终无法将所有图片调到大小一致。
  • C#在Word表格中插入图片调整大小Debug一、C#在Word表格中插入图片调整大小二、设置单元格大小图片大小变化 一、C#在Word表格中插入图片调整大小 C#编程中在word中和Word表格中插入图片是使用InlineShapes....
  • Sub tongyixiugaichicun() Dim oInlineShape As InlineShape For Each oInlineShape In ActiveDocument.InlineShapes With oInlineShape .LockAspectRatio = msoFalse '不锁定纵横比 ' .ScaleHeight = 10 ...
  • word图片统一调整大小的方法:首先在word插入几张图片,并选中其中的一张图片;然后点击鼠标右键,并点击“大小和位置”选项;接着在“布局”设置窗口中设置大小;最后点击下一张图片,并按“F4”键即可重复图片的...
  • Word批量修改图片大小

    2019-04-18 14:51:54
    Word批量修改图片大小 本篇介绍把word中的所有图片按固定的长和宽进行修改。
  • 放大DIDN'T改变文字大小,刚开始的时候。它只是炸毁了网页,video knowledge,使你可以看到它更好。Methinx实际HTML是太多文字和数据,而不是规模。显然,有一个上限多少空间您有您的网站上。您的问题应该是如何做...
  • 通常,在调整word图片大小的时候是锁定纵横比的,但是有些时候我们需要设置图片的长宽,就需要把锁定纵横比的对勾勾掉。
  • 如何在word调整公式大小

    千次阅读 2021-02-11 16:27:06
    公式是以图片形式插入word文档的,可以使用缩放图片的形式来调整公式的大小。以下步骤教您如何在word调整公式大小:第一步 在文档中需要插入公式的地方用Mathtype公式编辑器插入需要的公式,可以参考下图在文...
  • Word中使用MathType批量调整文档字母公式大小 背景:论文写作需要撰写大量的字母和数学公式,但是在协作撰写及内容中英文翻译过程中,字母和数学公式容易变形,因此Word中使用MathType批量调整文档公式的大小非常有...
  • 在我们使用Word编辑时会插入大量的图片文件,当然这些图片大小一般是不一致的,通常插入到文档后都需要手动调整,如果说这些图片调整统一大小,如何理解批量的调整大小呢?1、打开插入图片的文档,点击切换到...
  • 我们在office软件里使用Word编辑图片时,文档里有特别多的图片这时需要进行尺寸修改,倘若一个文档里有几百张图片,一张一张进行调整工作量是巨大的,下面说下用宏命令对word里的图片尺寸进行批量快速处理调整的方法...
  • 注意:全文档的图片都会被统一修改大小。请谨慎操作或备份后操作!!!!! Sub 批量设置图片大小() ' ' Macro 宏 ' ' Myheigth = 12 Mywidth = 8 On Error Resume Next '忽略错误 For Each iShape In ...
  • word中如何将大量图片批处理统一的尺寸大小
  • word如何快速统一图片大小

    千次阅读 2021-07-30 15:55:23
    我们经常会在word中插入多张图片,而图片的来源大小不一,插入时如果一张一张的设置相同大小很浪费时间,今天小编跟大家教一招快速统一图片大小的方法。 1.我们打开word文档工作界面,在word插入几张图片,选中其中...
  • 自动调节图片大小(限word使用),批量修改大小
  • word用宏修改文档中图片大小

    千次阅读 2018-10-09 09:26:54
    记录一下,批量改图是一个很好的思路.早就听说了word宏,一直没有用过.今天(20171207)用了下,觉得的确不错. 操作步骤: 1 ALT+F8 进入宏编辑模式,输入name-... 3 宏代码中调整要设置的大小 Mywidth ,Myhe...
  • Dim WordApp As Object Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Dim WordDoc As Object ...PicPath="图片地址" WordApp.ActiveDocument.Bookmarks("BM1_1").Range.Se.
  • 我就教大家一个好方法,既能保存图片,又能缩小图片大小(是指所占空间)。首先,在word中点击图片,复制一下,然后返回桌面,粘贴到桌面就行了。如果还要继续保存图片,只需在桌面刷新一下,否则会出现一个粘贴后的...
  • 如何批量调整Word中mathtype公式的大小

    千次阅读 多人点赞 2020-04-10 15:53:31
    最近在写大论文,在导师给得众多的反馈之中,有一点就是:“要求将word中由...通过一番探索与时间,答案是肯定的,所以下面我就把批量调整Word中mathtype公式大小的经验和大家分享一下吧。 1、首先在word的菜单栏...
  • 本文对应的软件是word2013版。 具体步骤: 1.新建一个能够用宏的文档类型:dotm。 2.一次插入所有的图片 3.点击“宏” 在弹出的窗口中输入宏名“图片排版”; 选择该宏使用的位置,此处是选择的只...
  • visio画的图怎么导入word步骤如下:1、先用word做好一个流程图模板,空出一行作为之后插入visio图形的地方。2、将visio文件直接拖到word空行的位置。...visio绘图插入word后如何调整大小一、visio绘图插入w...
  • 使用宏批量修改word图片大小

    万次阅读 2018-02-07 11:49:09
    word中使用宏修改图片大小图片大小相同 1、打开word中视图选项卡,选择“宏”->“输入宏名”->“创建” 2、编辑宏 输入下面代码 Sub FormatPics()  Dim iSha As InlineShape  For Each iSha In ...
  • 批量调整图片大小

    2018-10-16 16:08:11
    word里面批量调整图片大小的脚本,测试可以使用的。
  • 打开文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的Sub Macro()For Each iShape In ActiveDocument.InlineShapesiShape.Height = iShape.Height * 0.25iShape.Width = iShape.Width ...

空空如也

空空如也

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

word调整全部图片大小