求助：Excel中出现奇怪的图片，无法删除

fieldsun · 发表于 2004-7-8 14:22

可以用编缉-定位-定位条件中选"对象",确定后删除的办法其他办法也应该可行

fieldsun · 发表于 2004-7-8 14:00

我试过,对楼主的文件,4楼、5楼、6楼的办法均可达到目的

Emily · 发表于 2004-7-8 11:19

你可用這方法刪除圖案

Dim Sh As Shape With ActiveSheet TotalShapes = ActiveSheet.Shapes.Count ' 數有多小圖案 For Each Sh In .Shapes If Not Application.Intersect(Sh.TopLeftCell, .Range("A1:B13")) Is Nothing Then Sh.Delete Next Sh End With

Emily · 发表于 2004-7-8 10:22

只有 14 個圖案，點選刪除就可以

		自动登录	找回密码
密码			免费注册