Как получить выбранную фигуру в Excel VBA?

Question

Я вставил смарт-арт и преобразовал его в фигуры.И выбрал фигуру, нажав на нее.

Теперь я хочу получить объект Shape из сплющенной формы.Я пробовал это, но он выдает исключение.

dim shap as Excel.Shape = ExcelApp.Selection 

Я могу получить объект формы, итерируя на ActiveSheet.Shapes или как этовыбран или нет, действительно нужна помощь Спасибо.

Answer 1

Попробуйте Selection.ShapeRange, чтобы получить ссылку на объект формы.

Answer 2

Возвращает одну выбранную фигуру или ничего, если ни одна или несколько фигур не выбраны.Очевидно, вы можете отбросить вызовы MsgBox.

Function GetSelectedShape() As Shape
    If TypeName(Selection) <> "Rectangle" Then
        MsgBox "Selection is not a single shape"
        Exit Function
    End If
    Dim oShapes As ShapeRange
    Set oShapes = Selection.ShapeRange

    If oShapes.Count <> 1 Then
        MsgBox "Selection is not a single shape"
        Exit Function
    End If

    Set GetSelectedShape = oShapes(1)

End Function