如何判断图形是否被选中的问题？

gao2ming1

当在文档中有很多图形，比方说有有“直线 12” “椭圆 23” “文本框 34”

如何写代码判断是否有图形被选中？选中了哪一个或哪几个？

sub bb()

if '直线被选中 then msgbox "直线"

if '直线 和椭圆选中 then  "椭圆和直线"

end sub

代码如何填写

[此贴子已经被作者于2007-6-5 11:34:22编辑过]

chylhr

'判断Shape自选图形类型的代码工作量较大，下面仅给个思路，自己写吧。

Sub main()
  '这里仅指Shape,不包括InlineShape
  Dim myShape As Shape, myShapeRange As ShapeRange
  Set myShapeRange = Selection.ShapeRange
  If myShapeRange.Count = 0 Then
     MsgBox "没有选择图形!"
  Else
     For Each myShape In myShapeRange
        Select Case myShape.Type
        Case msoAutoShape   '自选图形
           Select Case myShape.AutoShapeType
              Case msoShape24pointStar
              Case msoShape4pointStar
              '还有很多个Case自己写吧,可参看帮助的AutoShapeType属性
              
           End Select
        Case msoCanvas
        Case msoComment
        '还有几个Case自己写吧,可参看帮助的Type属性

        End Select
     Next
  End If
End Sub

守柔

请参考：

Sub Example()
    Dim selNames As String, selShapes As ShapeRange, oShape As Shape
    If Selection.Type = wdSelectionShape Then
        Set selShapes = Selection.ShapeRange
        For Each oShape In selShapes
            selNames = selNames & oShape.Name & vbLf
        Next
        MsgBox "所选图形:" & vbLf & selNames
    Else
        MsgBox "没有选定的图形!"
    End If
End Sub

说明：仅适用于非画布中的浮动式图形。

chylhr

QUOTE:

以下是引用守柔在2007-6-6 6:12:34的发言：

请参考：

Sub Example()
    Dim selNames As String, selShapes As ShapeRange, oShape As Shape
    If Selection.Type = wdSelectionShape Then
        Set selShapes = Selection.ShapeRange
        For Each oShape In selShapes
            selNames = selNames & oShape.Name & vbLf
        Next
        MsgBox "所选图形:" & vbLf & selNames
    Else
        MsgBox "没有选定的图形!"
    End If
End Sub

说明：仅适用于非画布中的浮动式图形。

版主遗漏了些图形,如Shape为自选图形时,均显示为AutoShape