Hello,I need code by exampleSub TEST()'If Shape is selectedMsgbox ActiveShape.CenterX
'If no shape is selectedMsgbox "No Shape is selected"End SubGreetings!
Check if activeShape is null
Hello,Thank You for this answer!Please, write a code to Check if activeShape is null
Now I use this code:
Sub Check_If_Selected()On Error GoTo noSelectedIf ActiveShape.Selected ThenMsgBox "ActiveShape.CenterX = " & ActiveShape.CenterXExit SubEnd IfnoSelected:MsgBox "No Shape is selected"End Sub
Greetings!
If ActiveShape Is Nothing Then'TODO End If
Prefect,Thank YouGreetings!