求助各位老师图片插入的问题，谢谢，在线等~！

xinyuan8751

求助各位老师照片插入的问题：

1、电机按钮后能自主选择图片进行插入
2、插入位置如图，在合并的单元格内
3、照片 高度4厘米，宽度3厘米
4、照片插入后能够自动从左到右排列，位置顺序没有要求

感谢各位老师，在线等~！谢谢~！
万分感谢~！

xinyuan8751

在线等，请各位老师帮忙~谢谢~！

xinyuan8751

在线等，请各位老师帮忙~谢谢~！~

蓝桥玄霜

插入图片的例子：

xinyuan8751

蓝桥玄霜 发表于 2023-12-17 18:55
插入图片的例子：

老师您好，点击按钮选择不到桌面的文件夹，还有就是：不是文件夹内的所有图片都插入，能否实现自己想选几张就选几张

liulang0808

Sub 按钮6_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        .Title = "请选择对应图片文件"
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "JPG文件", "*.jpg"
        If .Show Then Set fs = .SelectedItems Else Exit Sub '
    End With
    For Each SHP In ActiveSheet.Shapes
        If SHP.Type = 13 And SHP.Top > [A98].Top Then
            SHP.Delete
        End If
    Next
    Set Rng = [a98:af139]
    t = [a97].Top + 20
    l = [a97].Left + 20
    For Each f In fs
        ActiveSheet.Shapes.AddPicture f, msoFalse, msoCTrue, l, t, 85.03937, 113.4302
        l = l + 85.03937 + 20
        If l > Rng.Width - 105 Then
            t = t + 20 + 113.4302
            l = [a97].Left + 20
        End If
    Next f
End Sub

liulang0808

求助.zip (1.44 MB, 下载次数: 24)

2023-12-17 21:20 上传

点击文件名下载附件

供参考。。。。。。

gwjkkkkk

参与一下。。。