In[]:=
ListPlot[{{1,1,1},{2,2,2},{3,3,3},{4,4,4},{5,5,5},{6,6,6},{7,7,7},{8,8,8},{9,9,9},{10,10,10}},PlotMarkers->Automatic,PlotStyle->Red]​​​​{filledcircle,filledsquare,filleddiamond,filleduptriangle,filleddowntriangle,circle,square,diamond,uptriangle,downtriangle}=Graphics`PlotMarkers[][[All,1]];​​​​nSize:=12​​​​ListPlot[{{1,1,1},{2,2,2},{3,3,3},{4,4,4},{5,5,5},{6,6,6},{7,7,7},{8,8,8},{9,9,9},{10,10,10}},PlotMarkers->{{filledcircle,nSize},{filledsquare,nSize},{filleddiamond,nSize},{filleduptriangle,nSize},{filleddowntriangle,nSize},{circle,nSize},{square,nSize},{diamond,nSize},{uptriangle,nSize},{downtriangle,nSize}},PlotStyle->Red]
Out[]=
Out[]=
In[]:=
Head[Graphics[Disk[]]]
Out[]=
Graphics