EXCEL批l量插入图片-多种图片格式

stbiao

现在我用的代码如下，但是只能插入一种格式jpg ，现在我想是否可以改一下，能插入常用或者是所以图片格式

希望大神能帮帮我，附上附件 批量插入图片常用照片格式.rar (407.36 KB, 下载次数: 48)

2018-7-20 10:48 上传

点击文件名下载附件

Sub AAA()
    On Error Resume Next
    Dim t As String, fd
    Dim MR As Range
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)    '允许用户选择一个文件夹
    If fd.Show = -1 Then
        t = fd.SelectedItems(1)    '选择之后就记录这个文件夹名称
    Else
        Exit Sub    '否则就退出程序
    End If
    p = InputBox("请选择图片插入位置，上，下，左，右依次用1，2，3，4代替", "请选择位置")
    Set fso = CreateObject("scripting.filesystemobject")
    For Each MR In Selection
    If Not IsEmpty(MR) Then
        pic = t & "\" & MR.Value & ".jpg"
        If fso.fileexists(pic) Then
            MR.Select
            If (p = 1) Then '上
                ML = MR.Left
                MT = MR.Top - MR.Height
                MW = MR.Width
                MH = MR.Height
            ElseIf (p = 2) Then '下
                ML = MR.Left
                MT = MR.Top + MR.Height
                MW = MR.Width
                MH = MR.Height
            ElseIf (p = 3) Then '左
                ML = MR.Left - MR.Width
                MT = MR.Top
                MW = MR.Width
                MH = MR.Height
            ElseIf (p = 4) Then '右
                ML = MR.Left + MR.Width
                MT = MR.Top
                MW = MR.Width
                MH = MR.Height
            End If
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
            Selection.ShapeRange.Fill.UserPicture pic     '当前文件所在目录下以当前单元内容为名称的.jpg图片
        End If
    End If
    Next
End Sub

stbiao

顶上去。没人来帮忙么

bet007

stbiao 发表于 2018-7-20 14:47
顶上去。没人来帮忙么

批量插入图片常用照片格式.zip (411.62 KB, 下载次数: 101)

2018-7-20 15:29 上传

点击文件名下载附件

用自定义函数做了一个，比起你的代码更加方便。

stbiao

bet007 发表于 2018-7-20 15:30
用自定义函数做了一个，比起你的代码更加方便。

方便是方便，可是我的代码是可以选择上下左右的，你的函数这个就需要改了吧

bet007

stbiao 发表于 2018-8-7 15:25
方便是方便，可是我的代码是可以选择上下左右的，你的函数这个就需要改了吧

不明白你的意思？？？

stbiao

bet007 发表于 2018-8-7 15:38
不明白你的意思？？？

就是选择插入图片的位置

bet007

stbiao 发表于 2018-8-7 16:43
就是选择插入图片的位置

你在代码的 rg.Offset(0, 1)，修改offset里面的参数即可。

stbiao

bet007 发表于 2018-8-7 17:12
你在代码的 rg.Offset(0, 1)，修改offset里面的参数即可。

这个有点麻烦，但还是谢谢

bet007

stbiao 发表于 2018-8-7 17:17
这个有点麻烦，但还是谢谢

你可以上传附件，完全表达你的需求。我尝试做一下

chenjx80

批量插入图片，可递归查找子目录中的图片，并支持多种图片格式。
动态图已高度压缩，不甚清晰。高清版在这：
链接: https://pan.baidu.com/s/17DVBX_FGTG1aZKLrNg8gsg 密码: 7fv1