求助：通过vba把指定文件夹中的图片及图片名添加到word表格中制定位置

zx79173556

求助描述：通过vba把文件夹中图片添加到word制定位置，图片名添加到 问题描述 项对应位置，图片名前四个字填写到问题维度项内对应位置

jiminyanyan

用EXCEL 行吗？

duquancai

简单粗暴的写了一下，自己去加循环进行处理就行了：

Sub shishi()
    Dim ip As InlineShape, ph$, f$
    ph = ThisDocument.Path & "\问题清单照片存放处\"
    f = "安全文明 空间斤斤计较斤斤计较.jpg"
    Set rg1 = ActiveDocument.Tables(1).Range.Cells(6).Range
    rg1.End = rg1.End - 1: rg1.Delete: rg1.Text = Mid(f, 1, 4)
    Set rg2 = ActiveDocument.Tables(1).Range.Cells(8).Range
    rg2.End = rg2.End - 1: rg2.Delete: rg2.Text = Left(f, InStr(f, ".") - 1)
    Set rg3 = ActiveDocument.Tables(1).Range.Cells(7).Range
    rg3.End = rg3.End - 1: rg3.Delete
    w = ActiveDocument.Tables(1).Range.Cells(7).Width
    h = ActiveDocument.Tables(1).Range.Cells(7).Width
    Set ip = rg3.InlineShapes.AddPicture(ph & f, False, True)
    ip.Height = h: ip.Width = w
End Sub

zx79173556

duquancai 发表于 2017-3-9 20:19
简单粗暴的写了一下，自己去加循环进行处理就行了：

Sub shishi()

大神，是否能够把上边代码改成文件夹内图片自选形式，（就是在上述功能的基础上添加一个运行后弹出选择文件的步骤）

duquancai

肯定能啊，但是我没时间，我在楼上说了，我只写了核心的代码，自己在此基础上改嘛！

zx79173556

duquancai 发表于 2017-3-11 11:11
肯定能啊，但是我没时间，我在楼上说了，我只写了核心的代码，自己在此基础上改嘛！

好吧，我是小白一枚