求VBA代码代码：

qujing342

运行宏，执行   仅仅清除B7:B70单元格里的.jpg照片，工作表其他位置的所有格式的图片均保留。同时工作表内所有单元格的条件格式、数据有效性均保留。


   Option Explicit

   Sub test()
   Range("B7:B70").Select
       Dim shp
      On Error GoTo errmsg
      With Selection
      .ClearContents
       For Each shp In ActiveSheet.Shapes
        If shp.Top >= .Top And shp.Left >= .Left And _
        shp.Top <= .Top + .Height And shp.Left <= .Left + .Width Then
        shp.Delete
      End If
    Next
  End With
  Range("D7").Select
  Exit Sub
  
errmsg:
  MsgBox "选择区域！"
  
End Sub

qujing342

Option Explicit

Sub test()
Range("B2:B70").Select
  Dim shp
  On Error GoTo errmsg
  With Selection
    .ClearContents
    For Each shp In ActiveSheet.Shapes
      If shp.Top >= .Top And shp.Left >= .Left And _
        shp.Top <= .Top + .Height And shp.Left <= .Left + .Width Then
        shp.Delete
      End If
    Next
  End With
  Range("D7").Select
  Exit Sub
  
errmsg:
  MsgBox "选择区域！"
  
End Sub

请大师帮忙看看哪里出了问题，每次执行VBA时，工作表中的数据有效性也跟着清除了

excel玉米

没有附件，你可以逐步运行代码，看看是在哪一个语句出现这个现象。
ClearContents这个动作是不会删除数据有效性的。shp.delete也只会删除图片。
看上面的代码是正常的。

xunanming

Sub test()
Range("b2:b70").Select
  Dim shp
  On Error GoTo errmsg
  With Selection
    .clearcontents
    For Each shp In ActiveSheet.Shapes
    If shp.Type = 13 Then        ,13(msopicture) 判断是否为图片   
                  shp.delete            
        End If
    Next
  End With
  Range("D7").Select
  Exit Sub
  
errmsg:
  MsgBox "选择区域！"
  
End Sub

qujing342

谢谢你的帮助，我试了你的代码，感觉不是我想要的结果：
你的代码只能删除从文件菜单-插入-插入图片，本工作表用VBA插入的照片（就是B7:B70)的照片无法删除，而且把B7:B70的姓名也给删除了。

请帮忙看看是哪里出了问题，先谢谢……

xunanming

已解决,看是否是你想要的结果.至于姓名被删除,是因为你的代码中有清除B7:b70内容的代码. 我给注释了.

qujing342

再次请教老师，一个员工考勤登记表，看看VBA代码哪里出了问题

qujing342

请大师在工作表被保护的状态下操作看看，问题多多

xunanming

做了一些修改,看是否如你要求.......................