I make this plot:

myVertexes = {"Criminals", "cat", "dog", "human", "killer", "thug", 
  "macho"}; myVertexLabels = 
 Table[myVertexes[[i]] -> 
   Placed[Rotate[
     Panel[myVertexes[[i]], 
      Background -> 
       If[AnyTrue[{"Criminals", "human", 
          "macho"}, # == myVertexes[[i]] &], Orange, Yellow]], -\[Pi]/
      2], Center], {i, Length[myVertexes]}]; 
myEdgeShape[el_, ___] := Arrow[el, 0.2]; CriminalTree = 
 TreeGraph[{"Criminals" -> "cat", "Criminals" -> "dog", 
   Style["Criminals" -> "human", Thick, Orange], "human" -> "killer", 
   "human" -> "thug", Style["human" -> "macho", Thick, Orange]}, 
  DirectedEdges -> True, EdgeShapeFunction -> myEdgeShape, 
  VertexLabels -> myVertexLabels]; Rotate[
 Image[CriminalTree], \[Pi]/2]

When I copy and paste it to Paint or Word is inverted Why LOL ?