设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 3245|回复: 13
打印 上一主题 下一主题

[其它] 表里的这些点怎去掉呢?

[复制链接]
跳转到指定楼层
1#
发表于 2008-6-27 10:49:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2008-6-27 11:01:38 | 只看该作者
这些点是什么呀,楼主最好发个附件上来,光图实在是看不出来.
3#
 楼主| 发表于 2008-6-27 11:23:24 | 只看该作者
请版主帮一下。付件已传了!
4#
发表于 2008-6-27 11:56:33 | 只看该作者
已经帮你删除

用代码删除

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

:)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
5#
 楼主| 发表于 2008-6-27 12:54:34 | 只看该作者
谢谢!但我想知怎解决方法。。这个是什么问题,可以说清楚吗?
6#
 楼主| 发表于 2008-6-27 12:56:16 | 只看该作者
代码要放在哪里?

点击这里给我发消息

7#
发表于 2008-6-27 13:10:22 | 只看该作者
代码........
按F5-定位条件-对象-确定-DEL
解决[:13]

点击这里给我发消息

8#
发表于 2008-6-27 13:13:42 | 只看该作者
代码
sub aa()
    ActiveSheet.DrawingObjects.Delete
end sub
9#
 楼主| 发表于 2008-6-27 13:59:55 | 只看该作者
謝謝了。。我學到了!!!
10#
 楼主| 发表于 2008-6-27 14:03:00 | 只看该作者
不過我想弄明那些點是有何用處呢???
還有為什麽我點中一個那樣的DEL怎去不了的?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 01:23 , Processed in 0.258315 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表