Is it possible to mark the path to the node and the node "Macho"? .Maybe the node border and path to it could be red? I need to use TreeForm since is the easiest to build random trees
TreeForm[Criminals["cat" , "dog", "human"["killer", "thug", "macho"]],
DirectedEdges -> True,
VertexRenderingFunction -> (Inset[
Panel@Rotate[#2, -\[Pi]/2], #1] &)] // Rotate[#, \[Pi]/2] &