setMsoChartScale: Optimize the scale range and major unit of the axes of a...
In madlogos/aseshms: Toolkit for ASES HMS Team

Description Usage Arguments Value Author(s) See Also Examples

It is a pipelined wrapper of getMsoChartDims, getMsoChartSeries and getOptScaleUnit, getOptScaleRange to deal with the source data matrix of the mscChart object. By default, the function directly sets the parameters MajorUnit, MinimumScale and MaximumScale of the msoChart, and returns nothing about the optimized scale range or major unit.

1	setMsoChartScale(oChart, changeScale = TRUE, returnValue = FALSE, ...)

`oChart`	msoChart object (COMIDispatch class)
`changeScale`	Logical, change the MinimumScale and MaximumScale parameters or not. Default `TRUE`.
`returnValue`	Logical, return optimized parameters or not. Default `FALSE`.
`...`	Other params.

If returnValue is TRUE, then returns a list list(MajorUnit, ScaleRange). If FALSE, then returns nothing.

Yiying Wang, wangy@aetna.com

getMsoChartDims getMsoChartSeries getOptScaleUnit getOptScaleRange

## Not run: 
ppt <- RDCOMClient::COMCreate("Powerpoint.Application")
pres <- ppt$Presentations()$Open(<some ppt file>)
slide <- pres$Slides(2)  # the 2nd slide
shape <- slide$Shapes(3)  # the 3rd shape
if (shape[['HasChart']] == -1) {  # if the shape contains msoChart
    chart <- shape[['Chart']]
    setMsoChartScale(chart)
}

## End(Not run)