excel如何在一个工作簿的多个工作表中的同一个位置插入同一图片

zhibi90

excel 如何在一个工作簿的多个工作表中的同一个位置插入同一图片，把图1至图3，分别插入到所有表格中的试验、批准、监理那块，如表格001，跪求大佬！！！

zhibi90

谢谢了，求大佬帮忙

3190496160

插入图片的帖子一搜一大把，要善用搜索

zhibi90

3190496160 发表于 2020-12-3 18:26
插入图片的帖子一搜一大把，要善用搜索

大哥，我没搜到啊

3190496160

Sub 插入照片()
Application.ScreenUpdating = False
rr = Array(2, 6, 10)
For Each sh In Sheets
    For Each sp In sh.Pictures
        sp.Delete
    Next sp
    sh.Select
    n = 0
    For i = 0 To UBound(rr)
        n = n + 1
        f = Dir(ThisWorkbook.Path & "\" & n & ".png")
        If f <> "" Then
            r = rr(i)
            sh.Range(sh.Cells(34, r), sh.Cells(35, r + 1)).Select
            sh.Pictures.Insert(ThisWorkbook.Path & "\" & f).Select
            Selection.ShapeRange.LockAspectRatio = msoFalse
            With Selection.ShapeRange
              Selection.ShapeRange.LockAspectRatio = msoFalse
                 .Top = sh.Range(sh.Cells(34, r), sh.Cells(35, r + 1)).Top + 1
                 .Left = sh.Range(sh.Cells(34, r), sh.Cells(35, r + 1)).Left + 1
                 .Width = sh.Range(sh.Cells(34, r), sh.Cells(35, r + 1)).Width
                 .Height = sh.Range(sh.Cells(34, r), sh.Cells(35, r + 1)).Height
             End With
        End If
    Next i
Next sh
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

zhibi90

3190496160 发表于 2020-12-4 08:56

谢谢大佬