精华内容
下载资源
问答
  • 这是利用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批量调整图片大小

    千次阅读 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图片大小
  • C#在Word表格中插入图片调整大小Debug一、C#在Word表格中插入图片调整大小二、设置单元格大小图片大小变化 一、C#在Word表格中插入图片调整大小 C#编程中在word中和Word表格中插入图片是使用InlineShapes....

    一、C#在Word表格中插入图片并调整大小

    C#编程中在word中和Word表格中插入图片是使用InlineShapes.AddPicture方法,方法官方微软说明如下:
    在这里插入图片描述
    具体示例代码见本博客下使用C#对Word进行读写、搜索、插入图片等操作文章。
    在Word中的表格单元格中插入图片后,可以设置图片宽度和高度,而经实际测试发现当设置文档可见时,更改图片大小后,所在的单元格大小会随之变化,而设置文档不可见时,则单元格大小可能不会随之变化,视Word版本不同而定。

    二、设置单元格大小随图片大小变化

    经过搜索和查找文档,发现解决方法如下:
    将Word中表格首先单击移动符号实现全选,然后右键选择自动调整——固定列宽,最后保存,这时插入的图片更改大小后,单元格大小也会随之变化。

    展开全文
  • word图片统一调整大小的方法:首先在word插入几张图片,并选中其中的一张图片;然后点击鼠标右键,并点击“大小和位置”选项;接着在“布局”设置窗口中设置大小;最后点击下一张图片,并按“F4”键即可重复图片的...
  • Word中使用MathType批量调整文档字母公式大小 背景:论文写作需要撰写大量的字母和数学公式,但是在协作撰写及内容中英文翻译过程中,字母和数学公式容易变形,因此Word中使用MathType批量调整文档公式的大小非常有...
  • 打开含有要编辑图片word,快捷键:Alt+F8 调出宏窗口,输入宏名称:批量设置图片格式,点击创建。 第一步: 将下方的代码复制粘贴到编辑栏里,简单的编辑图片的宽和高,只要在 picheight = picwidth = 输入想要的...
  • 放大DIDN'T改变文字大小,刚开始的时候。它只是炸毁了网页,video knowledge,使你可以看到它更好。Methinx实际HTML是太多文字和数据,而不是规模。显然,有一个上限多少空间您有您的网站上。您的问题应该是如何做...
  • 如何在word调整公式大小

    千次阅读 2021-02-11 16:27:06
    公式是以图片形式插入word文档的,可以使用缩放图片的形式来调整公式的大小。以下步骤教您如何在word调整公式大小:第一步 在文档中需要插入公式的地方用Mathtype公式编辑器插入需要的公式,可以参考下图在文...
  • 在我们使用Word编辑时会插入大量的图片文件,当然这些图片大小一般是不一致的,通常插入到文档后都需要手动调整,如果说这些图片调整统一大小,如何理解批量的调整大小呢?1、打开插入图片的文档,点击切换到...
  • 注意:全文档的图片都会被统一修改大小。请谨慎操作或备份后操作!!!!! Sub 批量设置图片大小() ' ' Macro 宏 ' ' Myheigth = 12 Mywidth = 8 On Error Resume Next '忽略错误 For Each iShape In ...
  • 我们经常会在word中插入多张图片,而图片的来源大小不一,插入时如果一张一张的设置相同大小很浪费时间,今天小编跟大家教一招快速统一图片大小的方法。 1.我们打开word文档工作界面,在word插入几张图片,选中其中...
  • 选中要修改的图片,使用快捷键。Sub ResizeShape()'' ResizeShape Macro' Macro recorded 2010-3-25 by Kavin'Selection.InlineShapes(1).Fill.Visible = msoFalseSelection.InlineShapes(1).Fill....
  • 我就教大家一个好方法,既能保存图片,又能缩小图片大小(是指所占空间)。首先,在word中点击图片,复制一下,然后返回桌面,粘贴到桌面就行了。如果还要继续保存图片,只需在桌面刷新一下,否则会出现一个粘贴后的...
  • visio画的图怎么导入word步骤如下:1、先用word做好一个流程图模板,空出一行作为之后插入visio图形的地方。2、将visio文件直接拖到word空行的位置。...visio绘图插入word后如何调整大小一、visio绘图插入w...
  • 如果您有一推图片且大小一样,想用word转成PDF,那么我推荐您使用VBA来调整图片大小,先给word设置 “页面布局-页边距”全部设置成0,再调整成合适的纸张大小,然后启动VBA 【Alt +F11】,粘贴如下代码,修改代码中...
  • 在Office 2003中进行下面操作: 一,在word中按alt+f11组合键,进入VBA模式 二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块 三,把下面代码复制,粘贴进去. ...
  • 很多朋友都想知道‘预览’如何批量调整图片的尺寸,下面我们分享如何使用预览批量调整图片大小。 1.首先,我们打开需要处理的图片所在的文件夹,如图,可以看到这些图片的尺寸大小都是400x300的。2.在文件夹上全选...
  • word里保存比较大的图片,都大得超出了word的边界了,也没有居中,数量又多,不可能手动一张张调整。 第一种方法经过测试,只是前面部分有效,后面部分无效。 Sub setpicsize() '设置图片尺寸 '第一种方法,经...
  • 针对Word文档中部分图片过宽,超出了页面的问题,可以通过宏脚本进行批量调整。 Sub PIC_SIZE() ' ' PIC_SIZE 宏 ' ' Dim n ' 图片个数 Dim sizeW '原始宽度 Dim sizeH '原始高度 On Error Resume Next ' 忽略...
  • 方法: 直接写html中设置图片大小的标签即可: <img src="图片地址" width="100px" height="100px"/> 通过width于height来调整图片大小
  • 随笔-Python批量调整图片大小 参考文档: https://pillow.readthedocs.io/en/stable/reference/Image.html#PIL.Image.Image.resize ... 自己的数据集比较凌乱,图片大
  • word改变图片像素大小的步骤如下:步骤一:打开Word,插入图片,将图大小调整到较合适的大小和清晰度,你在Word里看到的图片是多大的,最后保存出来的图片就是多大的,这里我插入一个824 kb 的图片。步骤二:我这里...
  • 今天小编教大家如何调整图片大小的方法,使你的文章整洁美观: 第一步、创建一个新的WORD文档 第二步、打开新建的WORD文档 第三步、点击左上角主菜单栏里的“插入”选项 第四步、点击“图片”选项,会弹出“插入...
  • word用宏修改文档中图片大小

    千次阅读 2017-12-07 18:25:13
    记录一下,批量改图是一个很好的思路....3 宏代码中调整要设置的大小 Mywidth ,Myheigth 4 F5 run it 5 对于单个或者范围内改图大小,最好添加一个自定义的快捷键.这样改起来操作流畅. 附相关宏代码VB
  • C#操作Word对象:指定位置: 设置书签。主要代码:Word.Application oWord;Word.Document oDoc;object name= "d:\\myfile.doc";object Range=System.Reflection.Missing.Value;object bookmarks="C2";oWord = new ...
  • Sub 批量调整图片大小()'' 批量修改图片 Macro' 宏由 zxz 录制,时间: 2014/10/29'批量调整图片大小,避免图片太大显示不完全'循环图片集合For Each iShape In ActiveDocument.InlineShapes'将高宽比还原为100%...
  • word 2013 粘贴的图片自适应大小

    千次阅读 2018-09-25 11:41:00
    2、粘贴图片进去,成功自适应,像素不变,可右键图片另存为图片,查看原始图片,或者ctrl+滚轮上放大。 3、在其他视图就会出现超出范围的情况,还要自己调整 转载于:...
  • visio如何固定地调整图片大小

    千次阅读 2020-03-31 22:13:25
    问题:visio内如果直接点击图片,其"图片工具"是非常简单的,并没有像PPT那样可以通过输入值大小调整图片大小。 解决方法:依次点击"视图->任务窗格->大小和位置",这个时候点击一张图片,其会有以下信息...

空空如也

空空如也

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

word调整所有图片大小