Microsoft Office Forums - View Single Post - [Solved] Insert a canvas at current cursor location [code attached]

Guessed · 06-04-2023, 07:23 PM

I think you need to position the canvas at the location of the selected paragraph before setting it to inline.

Code:

Sub InsertCanvas2()
  Dim shpCanvas As Shape, CanvasWidth As Double, iTop As Integer, iLeft As Integer
  Dim CanvasHeight As Double, aRng As Range
    
  'Call FigureTools.ExitCompatibilityMode 'Exit the compatibility mode
  
  ' Get the current paragraph
  Set aRng = Selection.Range.Paragraphs(1).Range
  iTop = aRng.Information(wdVerticalPositionRelativeToPage)
  iLeft = aRng.Information(wdHorizontalPositionRelativeToPage)
  CanvasWidth = 450
  CanvasHeight = 252
  
  ' Add a drawing canvas to the active document at the current paragraph
  Set shpCanvas = ActiveDocument.Shapes.AddCanvas(Left:=iLeft, Top:=iTop, Width:=CanvasWidth, Height:=CanvasHeight, Anchor:=aRng)
  
  With shpCanvas
    '.Fill.ForeColor.RGB = RGB(24, 100, 30)
    .WrapFormat.Type = wdWrapInline
    .Visible = msoTrue
  End With
    
End Sub