AHK and VBA of MS Word, shape to selected canvas

[mslonik]

Dear Forum,

I'd like to add a shape to the selected canva within existing MS Word document. I can't figure out how to do that. This time macro recorder of MS Word doesn't bring any help.

My unsuccessful attempts:

Code: Select all

	oWord.ActiveDocument.Selection.Shapes.AddShape(msoShapeRectangle := 1, 100, 100, 70, 30)
	oWord.Selection.Range.Shapes.CanvasItems.AddShape(msoShapeRectangle := 1, 100, 100, 70, 30)
	oWord.Selection.ChildShapeRange.AddShape(msoShapeRectangle := 1, 100, 100, 70, 30)
	
	oWord.Selection.CanvasShapes.AddShape(msoShapeRectangle := 1, 100, 100, 70, 30)
	oWord.Selection.AddShape(msoShapeRectangle := 1, 100, 100, 70, 30)

I've found some hints here:
...//docs.microsoft.com/en-us/office/vba/api/word.selection.childshaperange
and here:
...//docs.microsoft.com/en-us/office/vba/api/word.canvasshapes.addshape

(Above links are out-of-order because of forum security rules).

but it doesn't solve my issue.

Kind regards, mslonik

[mslonik]

Small progress. Now I'm able to add a shape to a new canva in a document:

Code: Select all

oWord := ComObjActive("Word.Application")
shpCanvas := oWord.ActiveDocument.Shapes.AddCanvas(100, 75, 150, 200)
shpCanvas.CanvasItems.AddShape(msoShapeRectangle := 1, 100, 100, 70, 30)
oWord := ""

I'm able also to select existing canva:

Code: Select all

oWord := ComObjActive("Word.Application")
oWord.Selection
oWord := ""

I'm still unable to figure out how to add a new object to a selected canva.

[mslonik]

Finally, I solved it:

Code: Select all

oWord := ComObjActive("Word.Application")
oWord.Selection.ShapeRange.CanvasItems.AddShape(msoShapeRectangle := 1, 100, 100, 70, 30)
oWord := "" ; Clear global COM objects when done with them

Now it seems easy...