表里的这些点怎去掉呢?

swfeng

我想问一下这表里的这些点是什么?能去掉吗？可以教一下方法吗？

[ 本帖最后由 swfeng 于 2008-6-27 11:22 编辑 ]

pureshadow

这些点是什么呀,楼主最好发个附件上来,光图实在是看不出来.

swfeng

请版主帮一下。付件已传了！

cjls2000

已经帮你删除

用代码删除

Sub cleanlines()
Dim num, i, k
Dim asg As Object
Dim shparray() As Variant
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
                                             
Application.ScreenUpdating = False
With ActiveSheet.Shapes
            If .Count < 1 Then
                MsgBox "无直线图形！"
                Exit Sub
            End If
            num = .Count
            k = 1
            ReDim autoshparray(1 To num)
            For i = 1 To num
                If .Item(i).Type = msoLine Then
           
                    dic.Add k, .Item(i).Name
                    k = k + 1
                End If
            Next
            ReDim Preserve shparray(1 To k - 1)
            shparray = dic.items
            Set asg = .Range(shparray)
            MsgBox asg.Count
            asg.Delete
End With
                                             
Application.ScreenUpdating = True
End Sub

:)

swfeng

谢谢！但我想知怎解决方法。。这个是什么问题，可以说清楚吗？

swfeng

代码要放在哪里？

pureshadow

代码........
按F5-定位条件-对象-确定-DEL
解决[:13]

pureshadow

代码
sub aa()
    ActiveSheet.DrawingObjects.Delete
end sub

swfeng

謝謝了。。我學到了！！！

swfeng

不過我想弄明那些點是有何用處呢？？？
還有為什麽我點中一個那樣的DEL怎去不了的？