Corel VBA. React in an Userform if an object is selcted in the document.

Yes there is a SelectionChange Event. You can find an example of how to use it in a docker here. 

Custom Dockers in CorelDRAW, Corel DESIGNER and Corel PHOTO-PAINT

You will also see a list of other events:

• ObjectTransformed
• StateChange
• TextSelectionChange
• DocUnitChange
• TextAttributeChange
• SelectionChange
• NewDocument
• CloseDocument
• ColourPaletteChange
• ActiveViewChange
• ZoomLevelChange
• ActivePageChange
• ViewMappingChange
• ViewScroll
• AppStarted
• AppShuttingDown
• DockerStateChanged
• OutlineAttributeChange
• FillAttributeChange
• CurveEditedChange
• MacroSetChange
• PageTypeChange
• NodeSelectionChanged
• TableTool_CellSelectionChanged
• TableCore_TableModified

If you want an example of how to do this with a UserForm you may watch the following video:

Selection change event, update size in textbox in a custom macro in CorelDraw, tutorial.

Hope that helps, 

-Shelby

Hello,
An interesting task. Thank you!
Now I will explain how to read ActiveShape.Name of UserForm.tbName and how to change ActiveShape.Name by entering new name in UserForm.tbName
1. Create User Form with name uf_BhBp_Duplicate_X5. Set property Modal = False
2. Create Text Box on it with Name tbObjectName
3. 
Private Sub tbObjectName_Change()
If ActiveSelection.Shapes.Count > 0 Then
ActiveShape.Name = tbObjectName.Value
End If
End Sub
4. 
Private Sub UserForm_Activate()
If ActiveSelection.Shapes.Count = 1 Then 'if any shape is selected
tbObjectName.Value = ActiveShape.Name
End If
.
.
.
End Sub
5.
Private Sub GlobalMacroStorage_SelectionChange()
If uf_BhBp_Duplicate_X5.Visible Then
If ActiveSelection.Shapes.Count > 0 Then
uf_BhBp_Duplicate_X5.tbObjectName.Value = ActiveShape.Name
End If
End If
End Sub

Ready!
If more question, please ask here!
If you want to support me, please use PayPal
Thank You!
Greetings!