Insert a canvas at current cursor location [code attached]

puff · #1 06-04-2023, 04:35 PM

Hi! I simply want to insert a canvas as an inline at the current location of my cursor but my code keeps inserting it at the 1st paragraph of a page. Below attached my code:

Code:

Sub InsertCanvas()
    Dim shpCanvas As Shape
    Dim CanvasWidth As Double
    Dim CanvasHeight As Double
    Dim currentParagraph As Paragraph
      

    
    Call FigureTools.ExitCompatibilityMode 'Exit the compatibility mode 
    
    ' Get the current paragraph
    Set currentParagraph = Selection.Range.Paragraphs(1)
    
    CanvasWidth = 450 
    CanvasHeight = 252 
   
    
    ' Add a drawing canvas to the active document at the current paragraph
    Set shpCanvas = ActiveDocument.Shapes.AddCanvas(Left:=100, Top:=75, Width:=CanvasWidth, Height:=CanvasHeight, Anchor:=currentParagraph.Range)
 
    
    With shpCanvas
        .WrapFormat.Type = wdWrapInline

        .Visible = msoTrue 
    End With
    
End Sub

According to the documentation, the Anchor of AddCanvas() is "A Range object that represents the text to which the canvas is bound. If Anchor is specified, the anchor is positioned at the beginning of the first paragraph in the anchoring range. If this argument is omitted, the anchoring range is selected automatically and the canvas is positioned relative to the top and left edges of the page." I don't understand as AddCanvas seems to ignore the Anchor I provided. Could someone give some suggestions on how to fix this? Thanks!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Determine Style of paragraph at current location	exoson	Word VBA	2	01-25-2022 11:15 AM
How do I insert a drawing canvas in Office Professional 2010?	laredotornado	Word	2	02-22-2017 02:28 PM
Cursor location on first click -- insertion point	stevec5088	Word	1	12-14-2016 02:45 PM
Hightlight cells based on cursor location	megads	Excel Programming	2	07-31-2014 06:10 PM
Auto insert current month's name and current year	Styler001	Word	4	01-25-2010 06:40 PM