word批量插入照片

wyx615

请教各位老师如何批量将照片插入到对应文档“图像描述”相应的位置上
要求：1、不改变表格单元格大小及位置
          2、更改照片大小使其充满整个单元格

kuangben8

估计罗刚君的word百宝箱可以满足你的要求。

约定的童话

这个难度不小啊......
Sub VBA批量插入图片到Word()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim i, m As String, arr, Word As Object, F
    Set Word = VBA.CreateObject("word.application")
    Word.Visible = 0
    F = Dir(ThisWorkbook.Path & "\" & "*.doc")
    Do While F <> ""
        Set MyWord = Word.Documents.Open(ThisWorkbook.Path & "\" & F)
        For n = 4 To 7 '根据word实际表格来
            m = Replace(Replace(Replace(Split(MyWord.Tables(n).Cell(2, 1).Range, ":")(1), "", ""), " ", ""), Chr(13), "") '提取图片名称
            t = ThisWorkbook.Path & "\图片\" & m & ".jpg" '获得图片路径
            MyWord.Tables(n).Cell(1, 1).Range.InlineShapes.AddPicture Filename:=t, LinkToFile:=False, SaveWithDocument:=True '直接插入            Myword.InlineShapes(n - 3).Height = 280 '调整图片高度
        Next
        Word.Documents.Close True
        F = Dir
    Loop
    Word.Application.Quit
    Set MyWord = Nothing
    MsgBox "插入完毕！", 48, "提示！"
End Sub

Moneky

做图的时候就应该保证图片大小，而不是靠程序去调整。

sirsunny

究竟图片插入到哪里？

wyx615

sirsunny 发表于 2020-8-27 15:15
究竟图片插入到哪里？

C:\Users\lenovo\Desktop\1115.png

wyx615

约定的童话 发表于 2020-8-27 13:23
这个难度不小啊......
Sub VBA批量插入图片到Word()
    Application.ScreenUpdating = False

谢谢老师辛苦付出，照片已经实现批量插入，但美中不足，照片没有充满整个单元格，是否可以帮修改一下，万分感激

wyx615

kuangben8 发表于 2020-8-27 13:07
估计罗刚君的word百宝箱可以满足你的要求。

谢谢，可否告知百宝箱地址啊

kuangben8

wyx615 发表于 2020-8-27 17:13
谢谢，可否告知百宝箱地址啊

我也没有，不过百度搜搜，应该能找到的。或者淘宝里找找

约定的童话

wyx615 发表于 2020-8-27 16:54
谢谢老师辛苦付出，照片已经实现批量插入，但美中不足，照片没有充满整个单元格，是否可以帮修改一下，万 ...

在直接插入那里换行插入这一句即可Myword.InlineShapes(n - 3).Height = 280 '调整图片高度