如何删除所有簿中所有表中15行以下照片和内容

kszcs

附件中的代码只能删除内容，不能删除图片。
怎么能把15行以下的内容和图片一起删除

liulang0808

做下图片的topleftcell的判断，确定是否是15行以后的，然后删除

kszcs

liulang0808 发表于 2014-10-28 14:21
做下图片的topleftcell的判断，确定是否是15行以后的，然后删除

谢谢！
不过俺对VBA几乎是文盲

liulang0808

Sub 按钮3_Click()
    Application.ScreenUpdating = False
    Set fso = CreateObject("scripting.filesystemobject")
    Set ff = fso.getfolder(ThisWorkbook.Path) '
    For Each f In ff.Files
   
        If f.Name <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(f)
            For Each sh In wb.Sheets
                For Each pic In sh.Shapes
            
                    If pic.TopLeftCell.Row > 15 Then
                        pic.Delete
                    End If
                Next pic
            Next sh
            wb.Save
            wb.Close
        End If
    Next

    Application.ScreenUpdating = True
End Sub

liulang0808

具体见附件，删除图片

kszcs

liulang0808 发表于 2014-10-29 07:56
具体见附件，删除图片

谢谢老师!
好使了！