-
Get Selected Object Name
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:
Code:
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
-
