请问如何将word文档中的图片移动到表格中

etoxp

word文档中有一些图片，现在我想在该文档中新生成一个n行x2列的表格，把图片转放到表格第1列中。该怎么用vba实现啊？谢谢大家

LangQueS

仅供参考：

★利用有效性信息批量调用信息和图片★        http://club.excelhome.net/thread-529975-1-1.html

etoxp

自己上网摸索了一下，下面的代码可以实现我想要的功能：


Sub f()
    Dim apic As InlineShape   
    Dim tableNew As Table   

    imgNum = ActiveDocument.InlineShapes.Count
    Set tableNew = ActiveDocument.Tables.Add(Selection.Range, imgNum, 2)
    With tableNew
        .Borders.InsideLineStyle = wdLineStyleSingle
        .Borders.OutsideLineStyle = wdLineStyleSingle
    End With
    i = 0
    For Each apic In ActiveDocument.InlineShapes
        i = i + 1
        With apic
            .LockAspectRatio = msoFalse               
            If i <= tableNew.Rows.Count Then
                apic.Select
                Selection.Cut
                tableNew.Cell(i, 1).Select
                Selection.Paste
            End If
        End With
    Next

End Sub

ww0000

etoxp 发表于 2013-1-29 20:08
自己上网摸索了一下，下面的代码可以实现我想要的功能：

不错，很好的代码