Get Selected Object Name

[niri2506]

Hello everyone,

I'm currently working on a smaller project in VBA. To set up an "Edit" function I need to pass the name of a selected object. So far the output works great for the name of cells. But when I select my (grouped) shape there is no output. Although the name of the object is displayed in the small window at the top left. How could I solve this problem?

To explain: The application is a project management tool. Operations planning takes place on a kind of Kanban chart. A form (grouped) is generated for each project and named with a unique continuous ID. If I now click on one of the Kanban cards I have to be able to pass the name of the object in order to set up an "edit" function. So that the form that opens knows which line it should pull its data from and where it should then write the changes. Right now it only outputs a "no object selected" message if i click a merged cell and the "Selected Object Name: " & selectedObjectName when I click on a cell. however not if i click on the kanban card.

Here is the code. This will then be triggered later in the sheet using the function below when the selection is changed:

Sub GetSelectedObjectName()
Dim selectedObjectName As String
Dim obj As Object
' Check if something is selected
If Not Selection Is Nothing Then
    If Selection.Count = 1 Then
    ' If a single object is selected, determine its type
    Set obj = Selection
    If TypeOf obj Is Range Then
        ' If it's a cell or range
        selectedObjectName = obj.Address
    ElseIf TypeOf obj Is shape Then
        ' If it's an individual shape
        selectedObjectName = obj.Name
    ElseIf TypeOf obj Is ChartObject Then
        ' If it's a chart
        selectedObjectName = obj.Name
        End If
    ElseIf Selection.Count > 1 Then
        ' Check if a grouped shape is selected
        If TypeName(Selection(1)) = "GroupObject" Then
            ' If it's a grouped shape
            selectedObjectName = "Grouped Shape"
        End If
    End If
End If
' Display the name in a message box
If selectedObjectName <> "" Then
    MsgBox "Selected Object Name: " & selectedObjectName
Else
    MsgBox "No object selected."
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call GetSelectedObjectName
End Sub

[Paul_Hossler]

Don't think you can


https://stackoverflow.com/questions/...re-or-image-in