you could use EdgeStyle as option of CommunityGraphPlot:
CommunityGraphPlot[ RandomGraph[{60, 1500}, DirectedEdges -> True, GraphLayout -> Automatic], EdgeStyle -> Directive[Opacity[.1], Gray, Arrowheads[{{.01, 0.99}}]]]