[求助]只删除指定区域的贴图

yohi

为了好的效果。我采用下列代码在指定区域中显示图片 With ActiveSheet.Pictures.Insert(imagefile) .ShapeRange.ScaleWidth cellwidth / .Width, msoture .ShapeRange.ScaleHeight cellheight / .Height, msoture End With 要在控制中对图片进行更新，能不能只删除指定区域的贴图。 下列的程序将所有控件删除，而且还老发生中断 Public Function clearimage(rng)`rng是指定区域 On Error Resume Next rng.Cells(1).Select With ActiveSheet.Pictures.Delete End With End Function 有没有更好的办法。请高手点播

yohi

请给出简单提示代码，我没试出来 有劳

yohi

多谢提示，现在已经成功了。 下列代码共享 Public Function ddd() Dim i, count1 As Integer Dim ss As String count1 = ActiveSheet.Pictures.count On Error Resume Next For i = 1 To count1 ss = "" ss = ss + ActiveSheet.Pictures(i).Name If InStr(ss, "Picture") <> 0 Then ActiveSheet.Pictures(i).Delete i = i - 1 count1 = count1 - 1 MsgBox "del :" & ss End If Next i End Function

bigbigpig

真不错！以后遇到类似的情况，处理起来就舒服多了。谢谢！

vnset

为了好的效果。我采用下列代码在指定区域中显示图片 With ActiveSheet.Pictures.Insert(imagefile) .ShapeRange.ScaleWidth cellwidth / .Width, msoture .ShapeRange.ScaleHeight cellheight / .Height, msoture End With

请问YOHI，这是显示在什么位置?

我想让图片显示在窗口正中，应当用什么语句?

leaf

to Emily: 高明！！！

Emily

以下是引用Emily在2003-6-23 20:08:00的发言： 得外國 MVP 提貼，試試 Sub Test() Dim Sh As Shape With Worksheets("Sheet1") For Each Sh In .Shapes If Not Application.Intersect(Sh.TopLeftCell, .Range("A1:E50")) Is Nothing Then If Sh.Type = msoPicture Then Sh.Delete End If Next Sh End With End Sub

[此贴子已经被作者于2003-6-23 20:51:21编辑过]

Emily

得外國 MVP 提貼，試試 Sub Test() Dim Sh As Shape With Worksheets("Sheet1") For Each Sh In .Shapes If Not Application.Intersect(Sh.TopLeftCell, .Range("A1:E50")) Is Nothing Then If Sh.Type = msoPicture Then Sh.Delete End If Next Sh End With End Sub

[此贴子已经被作者于2003-6-23 20:51:21编辑过]

leaf

我想到的办法是通过循环判断是否有 picture 位于指定区域内，然后将其删除。

ldhyob

对某图形对象进行操作，必须要知道其序号或名称，否则将是对所有的图形操作了。下面的代码将会显示出当前表中所含的图形对象名称，明白其意，相信你通过循环一定能编写出针对确定名称图形的操作了。 Sub ddd() Dim i As Integer Dim ss As String ss = "" For i = 1 To ActiveSheet.Pictures.Count ss = ss + ActiveSheet.Pictures(i).Name + VBA.Chr(13) Next i MsgBox ss End Sub