求助：怎么在合并单格中插图，有图片地址

jjamxin

求助：怎么在合并单格中插图，有图片地址

3190496160

插入图片的帖子，论坛一搜一大把，自己搜搜看看，修修改改

3190496160

Sub charutupian()
For Each sp In ActiveSheet.Pictures
    sp.Delete
Next sp
r = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To r Step 3
    If Trim(ActiveSheet.Cells(i, 3)) <> "" Then
        f = Dir(ActiveSheet.Cells(i, 3))
        If f <> "" Then
            ActiveSheet.Range("e" & i & ":e" & i + 2).Select
            ActiveSheet.Pictures.Insert(ActiveSheet.Cells(i, 3)).Select
            With Selection.ShapeRange
                Selection.ShapeRange.LockAspectRatio = msoFalse
                .Top = ActiveSheet.Range("e" & i & ":e" & i + 2).Top + 1
                .Left = ActiveSheet.Range("e" & i & ":e" & i + 2).Left + 1
                .Width = ActiveSheet.Range("e" & i & ":e" & i + 2).Width
                .Height = ActiveSheet.Range("e" & i & ":e" & i + 2).Height
           End With
        End If
    End If
Next i
MsgBox "ok!"
End Sub

3190496160

停车场进出口升降柱.rar (166.82 KB, 下载次数: 12)

2021-4-29 10:12 上传

点击文件名下载附件

jjamxin

首先非常抱歉没有及时看到您的信息，感谢您的解答

jjamxin

3190496160 发表于 2021-4-29 10:11
Sub charutupian()
For Each sp In ActiveSheet.Pictures
    sp.Delete

非常感谢您的支持