Inline canvas from shape

[viter.alex]

Is there ane way to convert canvas to InlineShape. This code push
error at the last line:
Sub test()
Dim oshp As Shape
Dim oInShp As InlineShape
Set oshp = ActiveDocument.Shapes.AddCanvas(0, 0, 100, 100)
Set oInShp = oshp.ConvertToInlineShape
End Sub

 

[Doug Robbins - Word MVP]

Use:

Dim oshp As Shape
Set oshp = ActiveDocument.Shapes.AddCanvas(0, 0, 100, 100)
oshp.WrapFormat.Type = wdWrapInline


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com