WORD 怎么批量插入照片并在照片底部命名?

ww0000

不错,谢谢了!

ww0000

白月清风 发表于 2011-10-24 02:26
Sub 插入图片()
Dim myfile As FileDialog
    Set myfile = Application.FileDialog(msoFileDialogFileP ...

请问,如何在表格中根据左边的名字,在右边插入相应的图片?

xifeng116

geoqiang 发表于 2014-4-25 17:41
挺方便的，设置图片宽度可用inputbox就更加灵活了，可以替代word自身的插入图片了

Sub 插入图片()
    Dim myfile As FileDialog
    Z = InputBox("请输入插入图片的宽度：", "厘米单位", 14) * 28.35
        Set myfile = Application.FileDialog(msoFileDialogFilePicker)
        With myfile
             .InitialFileName = "E:\"
                If .Show = -1 Then
                For Each fn In .SelectedItems
               
               Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
                pw1 = mypic.Width
                ph1 = mypic.Height
                mypic.Width = Z
                mypic.Height = ph1 * Z / pw1
                 If Selection.Start = ActiveDocument.Content.End - 1 Then  '如光标在文末
                    Selection.TypeParagraph '在文末添加一空段
                    Else
                    Selection.MoveDown
                 End If
                  Selection.Text = Basename(fn) '函数取得文件名
                  Selection.EndKey
                  
                  If Selection.Start = ActiveDocument.Content.End - 1 Then  '如光标在文末
                    Selection.TypeParagraph '在文末添加一空段
                    Else
                    Selection.MoveDown
                   End If
                Next fn
                Else
               End If
        End With
        Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Basename = Left(CreateObject("Scripting.FileSystemObject").getfile(FullPath).Name, InStr(CreateObject("Scripting.FileSystemObject").getfile(FullPath).Name, ".") - 1)
End Function

13907933959

xifeng116 发表于 2016-11-2 16:37
Sub 插入图片()
    Dim myfile As FileDialog
    Z = InputBox("请输入插入图片的宽度：", "厘米单位 ...

前辈好！
如要在Word文档内，一行中并排插入多张照片，如：2、3、4、5、6张照片，该代码要怎样修改？请前辈赐教！谢谢！

13907933959

szqhb 发表于 2011-10-24 09:00
经测试   
将
        mypic.Width = 400 '根据需要设置

前辈好！
如要在Word文档内，一行中并排插入多张照片，如：2、3、4、5、6张照片，该代码要怎样修改？请前辈赐教！谢谢！

ammyc

13907933959 发表于 2016-11-5 06:49
前辈好！
如要在Word文档内，一行中并排插入多张照片，如：2、3、4、5、6张照片，该代码要怎样修改？请 ...

插入照片后分栏

13907933959

ammyc 发表于 2016-11-17 19:30
插入照片后分栏

前辈好！

文档内的照片，通过文档上面的“格式”→“分栏”，也可让照片分栏，这个我知道，我是问：如要在Word文档内，一行中并排插入多张照片，如：2、3、4、5、6张照片，代码要怎样修改？

前辈可否帮忙修改代码！谢谢！

小辨子

也许会用到^_^

ammyc

13907933959 发表于 2016-11-18 07:06
前辈好！文档内的照片，通过文档上面的“格式”→“分栏”，也可让照片分栏，这个我知道，我是问：如要在 ...

这里有你想要的：http://club.excelhome.net/thread-1048572-1-1.html     6. 每行插入表格n个图

13907933959

ammyc 发表于 2016-12-8 09:35
这里有你想要的：http://club.excelhome.net/thread-1048572-1-1.html     6. 每行插入表格n个图

前辈好！
感谢回复！
您提供的这个链接内的代码6，好象是将照片插入到表格中的，我也试了、好象也不能将照片插入到表格中。
我是想要将照片插入到Word文档内，一行中并排插入多张照片，如：2、3、4、5、6张照片，前辈可否再帮忙！谢谢！