Here's the code dummied up to use the CAR view. If I just change the ON GRAPH PCHOLD FORMAT PPT statement to a different format like JPEG then I get the diamonds. I have other graph types like line graphs that display diamonds in PPT format.
TABLE FILE CAR
PRINT *
BY CAR
BY MODEL
ON TABLE HOLD AS CARDATA
END
DEFINE FILE CARDATA
_COUNTER/I3 = _COUNTER + 1;
_PERCENT/I11% = (MPG / 30) * 100;
END
TABLE FILE CARDATA
SUM
CAR
MODEL
BY _PERCENT
BY _COUNTER
ON TABLE HOLD AS GRAPHDATA
END
-*INTERNAL_PROPERTIES$fieldDisplayMode=label;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$enablePreview=true;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$prefixDisplayMode=;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$GlobalRecordLimit=500;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$SampleData=false;OBJECTID=GLOBAL
GRAPH FILE GRAPHDATA
-* Created by Advanced Graph Assistant
SUM GRAPHDATA.GRAPHDAT._PERCENT
BY GRAPHDATA.GRAPHDAT._COUNTER
ON GRAPH PCHOLD FORMAT PPT
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET VZERO OFF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET HAXIS 970
ON GRAPH SET VAXIS 405
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH SCATTERS
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 1
ON GRAPH SET GRAPHSTYLE *
setReportParsingErrors(false);
setSelectionEnableMove(false);
setTransparentBorderColor(getSeries(0),true);
setTransparentBorderColor(getSeries(1),true);
setTransparentBorderColor(getSeries(2),true);
setTransparentBorderColor(getSeries(3),true);
setTransparentBorderColor(getSeries(4),true);
setTransparentBorderColor(getSeries(5),true);
setTransparentBorderColor(getSeries(6),true);
setTransparentBorderColor(getSeries(7),true);
setTransparentBorderColor(getSeries(8),true);
setTransparentBorderColor(getSeries(9),true);
setTransparentBorderColor(getSeries(10),true);
setUseSeriesShapes(true);
setScaleMustIncludeZero(getX1Axis(),false);
setScaleMustIncludeZero(getY1Axis(),false);
setScaleMustIncludeZero(getY2Axis(),false);
setTransparentBorderColor(getChartBackground(),true);
setPlace(true);
setTransparentFillColor(getFrame(),true);
setTransparentBorderColor(getFrame(),true);
setTextString(getX1Title(),"");
setDisplay(getX1MajorGrid(),false);
setReverseGroups(false);
setScaleMaxAuto(getX1Axis(),false);
setScaleMax(getX1Axis(),150.0);
setTextFormatPattern(getY1Label(),"###%");
setTextFormatPreset(getY1Label(),-2);
setGridStyle(getY1MajorGrid(),1);
setGridStepAuto(getY1MajorGrid(),false);
setGridStep(getY1MajorGrid(),10.0);
setTextString(getY1Title(),"");
setScaleMinAuto(getY1Axis(),false);
setScaleMaxAuto(getY1Axis(),false);
setScaleMax(getY1Axis(),100.0);
setFillColor(getSeries(0),new Color(0,95,134));
setDisplay(getX1Label(),false);
setDepthRadius(0);
setDepthAngle(0);
setMarkerSizeUnit(900);
setMarkerSizeDefault(60);
setLogScale(getSeries(0),false);
setMarkerShape(getSeries(0),3);
setSquareMarkers(true);
setMarkerShape(getLegendLabelMarker(0),3);
setMarkerSize(getSeries(0),50);
ENDSTYLE
END
-EXIT
WebFOCUS 7.6.11
Windows
Excel, PDF, HTML, csv