执行宏定位当前光标选定区域内的全部对象

LangQueS

如何通过执行宏定位当前光标选定区域内的全部对象？

  eATzwebU.rar (6.74 KB, 下载次数: 105)

2007-4-8 15:11 上传

点击文件名下载附件
执行宏定位当前光标选定区域内的全部对象

lwxg

shape对象有一个

BottomRightCell 属性

请参阅 应用于 示例 特性

返回 Range 对象，该对象代表指定对象右下角的单元格。只读。

[此贴子已经被作者于2007-4-8 18:24:04编辑过]

taller

只判断shape的左上角是否在选中区域内，如果需要判断整个对象是否完全在区域内，可以加入BottomRightCell的判断，方法类似

Private Sub CommandButton1_Click()
    Dim rng As Range, shp As Shape, ctl()
    Set rng = Selection
    n = 0
    For Each shp In Shapes
        If Not Application.Intersect(shp.TopLeftCell, rng) Is Nothing Then
            ReDim Preserve ctl(n)
            ctl(n) = shp.Name
            n = n + 1
        End If
    Next
    ActiveSheet.Shapes.Range(ctl).Select
End Sub

LangQueS

谢谢lwxg兄和taller版主的解答，可以了。

[此贴子已经被作者于2007-4-8 20:51:16编辑过]

shijianchang

谢谢二位版主,可以解决我的问题了!

[此贴子已经被作者于2007-5-8 17:37:47编辑过]