精华内容
下载资源
问答
  • Sub 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
     

    展开全文
  • Sub adjustpic() '根据合并单元格大小调整图片大小 Dim Pic As Shape For Each Pic In ActiveSheet.Shapes  If Pic.TopLeftCell.MergeCells = True Then  Set cc = Pic.TopLeftCell.MergeArea  Pic.LockAspec
    Sub 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
    展开全文
  • 点击上方[word精品教程]-右上角[...]-[设为星标⭐]即可第一时间获取最新办公资讯如果你的Word中插入了几十甚至上百张图片,而且大小都不一样,为了美观,需要将所有的图片统一调整成相同的大小,你该不会一张张的...

    点击上方[word精品教程]-右上角[...]-[设为星标⭐]

    即可第一时间获取最新办公资讯

    2428ca4b9d7af9f8cd33ce90df2e8941.png2428ca4b9d7af9f8cd33ce90df2e8941.png2428ca4b9d7af9f8cd33ce90df2e8941.pngf27a8cb871ee261c8ed29c6ecc71bdf0.png如果你的Word中插入了几十甚至上百张图片,而且大小都不一样,为了美观,需要将所有的图片统一调整成相同的大小,你该不会一张张的调整吧?

    其实你完全可以不必这样,一起来看看下面4个解决方法:

    方法1

    当文档中插入多张图片时,如果想快速调统一图片的大小,我们可以通过【F4】快速调整。

    (1)选择某一张图片,在【格式】-【大小】组或打开【布局】-【大小】对话框,设置图片的“高度”和“宽度”值。

    (2)当这张图片大小设置好以后,依次选择其他图片,再按【F4】键,即可快速统一图片大小。

    22b7a7b22f01cb80ac6e4cc43b2087db.gif方法2(1)添加命令。选择【文件】-【选项】-【自定义功能区】命令,在“从下列位置选择命令”下拉菜单中选择“所有命令”,然后在下方的列表框中选择“选择多个对象”。然后在“主选项卡”列表框的“开始”栏下“新建组”,单击中间的“添加”按钮将命令添加到新建组中。2ef6a7150d41621915c400a41263f139.gif(2)设置图片插入的环绕方式。再次选择【文件】-【选项】-【高级】命令,在右侧的“剪切、复制和粘贴”栏中的“将图片插入/粘贴为”设置为“四周型”。1fb5a116f55e3ff6167204129f46b433.gif由于批量处理操作是早期office版本的功能,所以我们需要更改文件格式,即将文档格式【.docx】改为【.doc】。(3)更改文档格式。选择【文件】-【另存为】命令,打开“另存为”对话框,将“保存类型”更改为“Word 97-2003文档”,再点击“保存”按钮,即将文档格式【.docx】改为【.doc】。aa3fc02c41e5085e3ce1d65b20d18751.png(4)一次性选择多张图片。点击【开始】-【新建组】中的“选择多个对象”按钮,在打开的对话框中点击“全选”按钮,勾选所有图片对象,再点击“确定”按钮,此时,即可看到文档中的所有图片都被选中。(说明,这里选择的图片可以是原文档中已有的图片,也可以是新插入图片)。d84c371a845e8e6a8ee31fd6a47b2920.gif(5)设置图片大小值。在【格式】-【大小】组中设置宽度或高度值即可。3fdbcb8712983a9b39cdd18c62023eb3.gif

    除了上述方法,我们还可以通过调整页面宽度,Word就会自动调整插入图片的大小,这样也能实现了统一图片大小的目的。

    方法3

    (1)设置页边距。点击【布局】-【页面设置】组右下角的按钮,打开“页面设置”对话框,选择“页边距”选项。在“左”和“右”数值框中输入页面左、右边距值(这边距值就是将要调整图片的宽度大小)。比如,这里将“左”和“右”页边距都设置为”6厘米“,然后点击“确定”按钮,你会发现,页面版心已变小。9c5175e995f72e65887877dda94e6210.gif(2)插入图片。点击【插入】-【插图】-【图片】按钮,然后插入需要调整大小的多张图片,Word就会自动以版心大小对图片大小进行调整。104582ad8d1ff345651a9ad52daccd79.gif(3)保存图片。选择【文件】-【另存为】命令,打开“另存为”对话框,将“保存类型”设置为“网页”,再点击“保存”按钮。22fba82ab0b57355cc497fa2424573ca.png(4)查看图片。此时,在Word文档中或打开保存为网页后的图片文件夹,会看到所有图片大小相同。5d1e24e7db2a027f87a7a48632423299.pngad84506e54c2f3fdcd5e6f3f6def0aeb.png此后,利用这个技巧在编辑文档时,插入的图片,就不需要再调整图片大小了。方法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:

    fec58f691710abc8450d5447ae078438.gif

    怎么样?觉得赞的小伙伴们欢迎点在看转发留言 呀!么么哒~

    近期热文推荐:

    Word表格快速填充到底是有多牛?这3个操作简直逆天了

    一学就会!让老板大呼惊喜的Word文档,到底出众在哪里?

    10个小技巧,干掉Word中「闹心」的小问题!

    低效人士的救赎,Word 中英文智能排版 3 大招,最后一种会的人不到1%!

    我敢打赌,学会这招Office加密技巧,你的文件绝对不会丢!

    7adf9250f498d7af62ad9215b3328751.png

    想学习更多Word的知识,欢迎加入部落窝教育Word学习群。

    群号:816626786

    ba9e4395c6f28a8365c995e0f6ce6fe9.png

    哎呀!来都来了,点个【在看】再走呗~

    展开全文
  • 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
    
    展开全文
  • 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编辑时会插入大量的图片文件,当然这些图片大小一般是不一致的,通常插入到文档后都需要手动调整,如果说这些图片要调整统一大小,如何理解批量的调整大小呢?1、打开插入图片的文档,点击切换到...
  • 在B站看到几个用PPT播放BAD APPLE的示例,自己也做了一个https://www.zhihu.com/video/1132392042571067392示例中的代码:Sub PPT批量插入幻灯片及图片() Dim pptPre As Presentation Dim p As Integer Set pptPre...
  • 比方说没有批量导入的功能,并且图片大小无法在导入的时候调整,后期的调整比较的麻烦,非常的不利于操作,那么如何解决这个问题呢?场景说明这是我们今天的操作场景,我们电脑本地存在每个员...
  • 今天一大早来到公司,脑残领导就来给我添堵:给了一份有几百张图片的Word文档,要我把这些图片统一大小、对齐...批量调整图片尺寸/图片居中1、按「Alt + F8」快捷键,创建宏,输入名称「setpicsize」,如图所示:2、...
  • 如果您有一推图片且大小一样,想用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 ...
  • 6.图片大小会自动适应你设定的第一行要插入图片的单元格,因此提前调整那个单元格的大小可以控制插入图片大小。 ------------- 删除活动工作表中所有图片 Ctrl+d 删除活动工作表里所有的JPG图片,(不一定是本...
  • excel插入图片(利用vba

    千次阅读 2019-02-19 10:00:18
    3. 单元格的大小调整为照片插入的大小 4. 复制下面vba代码,红字前的属性注意修改,红字不需删除 -------------------------------------------------复制分割线以下内容----------------------------------------...
  • 在Office 2003中进行下面操作: 一,在word中按alt+f11组合键,进入VBA模式 二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块 三,把下面代码复制,粘贴进去. ...
  • ​如果需要制作如图1所示的产品目录,因为所需图片的尺寸通常并非完全一致,所以除了插入图片,还需要调整图片的尺寸以适应"图片"列单元格的大小。使用VBA可以快速完成这一系列繁杂的操作,示例代码如下。 Sub ...
  • Word中批量设置全部图片大小

    千次阅读 2012-05-18 00:49:39
    要弄移动标书时,需把大量的图片插入到office WORD中指定表格内,由于图片大小不同,一张一张调整很慢,查询了下,有以下这个方法可以快速批量改变图片大小。 版本要求是word2003等: 一,在word中按alt+f11组合键,...
  • 一段简单的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:58
    Sub 插入图片() '调整单元格大小,以适应图片大小 功能 插入身份证照片打印 - 正面在单元格d6 反面单元格d10 ActiveSheet.Pictures.Delete '清理过期照片 Range("d6").Select Dim aa aa = ActiveSheet....
  • 1)将对账单样式图片插入excel,略微调整大小为一张A4纸大小,插入图片的目的是为了准确定位套打位置,图片本身不用打印,需设置为不打印(套打需要先印刷,后打印)。如果不是套打,则打印图片本身。方法是右击图片...
  • 04162自动调整工作表全部单元格的大小 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无限制破解版

    热门讨论 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...
  • 【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片到批注】:批量地将图片导入到批注中,可以自由设定图片显示大小 【删除所有图片】:删除...

空空如也

空空如也

1 2 3
收藏数 59
精华内容 23
关键字:

vba调整图片大小