求教我写的VBA代码删除图片的同时 却把组合框控件也自动删掉了，如何解决？

bearpopopo

这是加载图的代码：
Sub 加载oilDM预测图()
  Dim arr
  mypath = ThisWorkbook.Path & "\DM-PLOTS-OIL\"
  With Worksheets("预测PDP-oil")
       arr = .Range("cb2")
         With .Pictures.Insert(mypath & arr & ".jpg")
                             .ShapeRange.LockAspectRatio = msoFalse
                            .Placement = xlMoveAndSize
                            .ShapeRange.Left = Range("cg2 ").Left
                            .ShapeRange.Top = Range("cg2 ").Top
                            .ShapeRange.Height = Range("cg2:cg22 ").Height
                            .ShapeRange.Width = Range("cg2:ct2 ").Width
    End With
    End With
End Sub

这是删除图的代码：
Sub 清除oil所有预测图()
      Dim arr
  mypath = ThisWorkbook.Path & "\DM-PLOTS-OIL-CP\"
  With Worksheets("预测PDP-oil")
        arr = .Range("cb21:cb23")
       .Pictures.Delete
           End With
        End Sub

在这张表中我为了有个下拉菜单特意加了一个active组合框控件，但是运行上面的删除图的代码后，组合框的控件也被删掉了
是不是我的删除图的代码不妥？
各位高手请不吝赐教！

bearpopopo

朱荣兴 发表于 2015-11-7 11:07

我忘了说了  我这张表里面还有一个很重要的生成的图表
你的代码执行后 图表都删除了
还有别的高招吗？
多谢
能实现把所有的*.jpg删掉即可

bearpopopo

朱荣兴 发表于 2015-11-7 14:10
那就加一个判断呀，
For Each a In Worksheets("预测PDP-oil").Shapes
if a " 你的图表名称"

已经解决 谢谢你
我的代码如下：
Sub 清除oil所有预测图()
    Dim Sh As Shape     '定义一个图形的变量
For Each Sh In ActiveSheet.Shapes        '遍游活动表里的所有图形组件
    If Sh.Name Like "Picture*" Or Sh.Name Like "图片*" Then  '如果图形对象的名称里有“Picture *”通配的往下执行，因为图片对象默认对象名称是Picture 数字
    Sh.Select                                    '选择图片名称的对象
    Selection.Delete                         '删除图片对象
    End If
Next Sh
MsgBox "清除完毕"
End Sub