Hi all,
I try to convert the VBA code below to run it from R using rcom and Power Point.
The VBA code creates a shape and will move the handle of the the shape to
another position.
This fails using rcom and I do not understand what I am doing wrong...
### VBA ###
ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangularCallout,
144, 144, 200, 200).Select
With ActiveWindow.Selection.ShapeRange
.Adjustments.Item(1) = 0.0942
.Adjustments.Item(2) = 1.7395
End With
### R ###
library(rcom)
## initializing power point program and slide
ppt <- comCreateObject("PowerPoint.Application")
ppt[["visible"]] <- TRUE
pres <- ppt[["Presentations"]]$add()
slide <- pres[["Slides"]]$add(1, 12)
slide$Select()
## adding the ppt autoform (corresponds to the above VBA code). The last lines
fail for some reason.
doc <- ppt[["ActivePresentation"]][["Slides"]]$Item(1)
rect <- doc[["Shapes"]]$AddShape(Type=105, Top=144, Left=144, Width=200,
Height=200)
rect$Select()
shp <- ppt[["ActiveWindow"]][["Selection"]][["ShapeRange"]]
shp[["Adjustments"]][["Count"]]
# there are adjustment items!!
names(comGetObjectInfo(shp[["Adjustments"]])) # there is a
function called Item
# now the code below does not work
shp[["Adjustments"]][["Item"]] # does not work
shp[["Adjustments"]]$Item(1) # does not work
shp[["Adjustments"]]$Item(1) <- .9 # does not work -> error
Does someone why this is the case or what I am doing wrong?
Thanks !
Mark
––––––––––––––––––––––––––––––––––––
Mark Heckmann
Blog: www.markheckmann.de
R-Blog: http://ryouready.wordpress.com
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
